egwwindowlua/Designing/WinProject.lua

--
-- 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

----------------------------------------------------------------------------------
local function WinCalculate_AddAccessories()
   WinCalculate.AddAccessories( WDG.FRAMEID, WDG.DRAW)
end
_G.WinCalculate_AddAccessories = WinCalculate_AddAccessories

----------------------------------------------------------------------------------
local function WinGetImage()
   -- sistemo la vista
   EgtSetView( SCE_VD.TOP, false)
   EgtZoom( SCE_ZM.ALL, false)
   -- salvo immagine
   EgtGetImage( SCE_SM.SH, EgtStdColor('WHITE'), EgtStdColor('WHITE'), 1920, 1080, WDG.FILE)
end
_G.WinGetImage = WinGetImage