- riorganizzazione cartella

2025-03-19 11:05:46 +01:00
parent 1798f6541f
commit 75ea9604df
10 changed files with 2 additions and 2 deletions
@@ -0,0 +1,153 @@
+--
+-- EEEEEEEEEE      GGGGGG      TTTTTTTTTTTTTT
+-- EEEEEEEEEE    GGGGGGGGGG    TTTTTTTTTTTTTT
+-- EEEE         GGGG    GGGG        TTTT
+-- EEEE        GGGG                 TTTT
+-- EEEEEEE     GGGG   GGGGGGG       TTTT 
+-- EEEEEEE     GGGG   GGGGGGG       TTTT
+-- EEEE        GGGG      GGGG       TTTT
+-- EEEE         GGGG    GGGG        TTTT
+-- EEEEEEEEEE    GGGGGGGGGG         TTTT
+-- EEEEEEEEEE      GGGGGG           TTTT
+--
+-- by Egalware s.r.l.
+-- Window project software by Egalware s.r.l.   2023/05/02
+
+require( 'EgtBase')
+_ENV = EgtProtectGlobal()
+EgtEnableDebug( false)
+
+-- Imposto direttorio per librerie
+local sBaseDir = EgtGetSourceDir()
+EgtOutLog("BaseDir=" .. sBaseDir)
+EgtAddToPackagePath( sBaseDir .. '?.lua')
+EgtAddToPackagePath( sBaseDir .. 'WinLib\\' .. '?.lua')
+
+_G.package.loaded.WinConst = nil
+require( 'WinConst')
+_G.package.loaded.WinCreate = nil
+local WinCreate = require( 'WinCreate')
+_G.package.loaded.WinCalculate = nil
+local WinCalculate = require( 'WinCalculate')
+_G.package.loaded.WinManageProject = nil
+local WinManageProject = require( 'WinManageProject')
+
+-- WDG
+
+-- funzioni
+----------------------------------------------------------------------------------
+local function GetVariableList( sName)
+   local List = {}
+   local nIndex = 1
+   while WDG[sName .. nIndex] do
+      table.insert(List, WDG['JOINT' .. nIndex])
+      nIndex = nIndex + 1
+   end
+   return List
+end
+
+----------------------------------------------------------------------------------
+local function CleanVariableList( sName)
+   local nIndex = 1
+   while WDG[sName .. nIndex] do
+      WDG[sName .. nIndex] = nil
+      nIndex = nIndex + 1
+   end
+end
+
+----------------------------------------------------------------------------------
+local function WinCreate_ImportProfile()
+    WinCreate.ImportProfile(WDG.PROFILE)
+end
+_G.WinCreate_ImportProfile = WinCreate_ImportProfile
+
+----------------------------------------------------------------------------------
+local function WinCreate_CreateFrame()
+   local JointList = GetVariableList('JOINT')
+   WDG.AREAID = WinCreate.CreateFrame(WDG.FRAMETYPE, JointList, WDG.WIDTH, WDG.HEIGHT, WDG.HEIGHT2)
+   CleanVariableList('JOINT')
+end
+_G.WinCreate_CreateFrame = WinCreate_CreateFrame
+
+----------------------------------------------------------------------------------
+local function WinCreate_AddSash()
+   local JointList = GetVariableList('JOINT')
+   WDG.AREAID = WinCreate.AddSash( WDG.AREAID, {WDG.JOINTBL, WDG.JOINTBR, WDG.JOINTTR, WDG.JOINTTL, WDG.JOINTBL}, WDG.SASHTYPE, WDG.OPENINGTYPE)
+   CleanVariableList('JOINT')
+end
+_G.WinCreate_AddSash = WinCreate_AddSash
+
+----------------------------------------------------------------------------------
+local function WinCreate_AddHardware()
+    WinCreate.AddHardware(WDG.AREAID, WDG.FAVOURITE, WDG.HANDLE)
+end
+_G.WinCreate_AddHardware = WinCreate_AddHardware
+
+----------------------------------------------------------------------------------
+local function WinCreate_AddFill()
+    WDG.AREAID = WinCreate.AddFill(WDG.AREAID, WDG.FILLTYPE)
+end
+_G.WinCreate_AddFill = WinCreate_AddFill
+
+----------------------------------------------------------------------------------
+local function WinCreate_AddBottomRail()
+    WinCreate.AddBottomRail(WDG.AREAID)
+end
+_G.WinCreate_AddBottomRail = WinCreate_AddBottomRail
+
+----------------------------------------------------------------------------------
+local function WinCreate_AddSplits()
+    local AreaIndex = 1
+    while WDG['AREAID' .. AreaIndex] do
+        WDG['AREAID' .. AreaIndex] = nil
+        AreaIndex = AreaIndex + 1
+    end
+    local PositionList = {}
+    local PositionIndex = 1
+    while WDG['POSITION' .. PositionIndex] do
+        table.insert( PositionList, WDG['POSITION' .. PositionIndex])
+        PositionIndex = PositionIndex + 1
+    end
+    local AreaList = WinCreate.AddSplits(WDG.AREAID, WDG.SPLITORIENTATION, WDG.MEASURETYPE, PositionList, WDG.PROPORTION, WDG.SPLITTYPE)
+    for AreaIndex = 1, #AreaList do
+        WDG['AREAID' .. AreaIndex] = AreaList[ AreaIndex]
+    end
+    PositionIndex = 1
+    while WDG['POSITION' .. PositionIndex] do
+        WDG['POSITION' .. PositionIndex] = nil
+        PositionIndex = PositionIndex + 1
+    end
+end
+_G.WinCreate_AddSplits = WinCreate_AddSplits
+
+----------------------------------------------------------------------------------
+local function WinCalculate_SetCalcSolid()
+    WinCalculate.SetCalcSolid(WDG.VALUE)
+end
+_G.WinCalculate_SetCalcSolid = WinCalculate_SetCalcSolid
+
+----------------------------------------------------------------------------------
+local function WinCalculate_SetSimplifiedSolid()
+    WinCalculate.SetSimplifiedSolid(WDG.VALUE)
+end
+_G.WinCalculate_SetSimplifiedSolid = WinCalculate_SetSimplifiedSolid
+
+----------------------------------------------------------------------------------
+local function WinCalculate_CreatePartFromArea()
+    WinCalculate.CreatePartFromArea(WDG.FRAMEID)
+end
+_G.WinCalculate_CreatePartFromArea = WinCalculate_CreatePartFromArea
+
+----------------------------------------------------------------------------------
+local function WinCalculate_AddHardware()
+    WinCalculate.AddHardware(WDG.FRAMEID)
+end
+_G.WinCalculate_AddHardware = WinCalculate_AddHardware
+
+----------------------------------------------------------------------------------
+local function WinCreate_GetHardwareOptionPath()
+    WDG.HWDOPTPATH = WinCalculate.AddHardwareForSash(WDG.AREAID, true)
+end
+_G.WinCreate_GetHardwareOptionPath = WinCreate_GetHardwareOptionPath
+
+---------------------------------------------------------------------