- correzione ricerca profili su split

- correzione scelta profili per calcolo Delta
- aggiunti posizionamenti dowel per bottom rail
- correzione ricerca prev e next dell'outline per split
- aggiunta verifica esistenza file su import profilo
- aggiunto fix ordine outline su area
- cambiate path da cartella Window  a EgwWindowLua
- aggiunto dialogo di scelta file su open

Profiles/WinLib/WinCreate.lua

@@ -24,6 +24,13 @@ require( 'WinConst')
 
 -- funzione che importa il profilo
 function WinCreate.ImportProfile( sProfilePath)
+   -- verifico esistenza file
+   if not EgtExistsFile( sProfilePath) then
+      EgtOutLog( 'File del profilo non trovato! ' .. sProfilePath)
+      EgtOutText( 'File del profilo non trovato! ' .. sProfilePath)
+      EgtPause(5000)
+      return false
+   end
    -- creo gruppo per il profilo
    local nProfileId = EgtGroup( GDB_ID.ROOT)
    EgtSetName( nProfileId, WIN_PROFILE)
@@ -43,6 +50,7 @@ function WinCreate.ImportProfile( sProfilePath)
    end
    -- riporto path nel Part del profilo
    EgtSetInfo( nProfileId, WIN_PROFILEPATH, sProfilePath)
+   return true
 end
 
 -- funzione che crea il buco rettangolare per la finestra
@@ -411,6 +419,21 @@ function WinCreate.CreateAreaFromSplit( nAreaLayerId, nSplitId)
          nOutlineId = EgtGetFirstInGroup( nOutlineLayerId)
       end
    end
+   -- scorro pezzi del primo e secondo outline per avere bottom come primo
+   local nFirstInAreaId = EgtGetFirstInGroup( nArea1OutlineLayerId)
+   local sFirstInAreaName = EgtGetName( nFirstInAreaId)
+   while sFirstInAreaName ~= WIN_BOTTOM do
+      EgtRelocate( nFirstInAreaId, nArea1OutlineLayerId)
+      nFirstInAreaId = EgtGetFirstInGroup( nArea1OutlineLayerId)
+      sFirstInAreaName = EgtGetName( nFirstInAreaId)
+   end
+   nFirstInAreaId = EgtGetFirstInGroup( nArea2OutlineLayerId)
+   sFirstInAreaName = EgtGetName( nFirstInAreaId)
+   while sFirstInAreaName ~= WIN_BOTTOM do
+      EgtRelocate( nFirstInAreaId, nArea2OutlineLayerId)
+      nFirstInAreaId = EgtGetFirstInGroup( nArea2OutlineLayerId)
+      sFirstInAreaName = EgtGetName( nFirstInAreaId)
+   end
    -- error('qqq')
    return nArea1Id, nArea2Id
 end