- aggiunta funzione per esportare immagine.

2025-03-19 17:38:14 +01:00
parent 19255f12bc
commit 4c895d4d5c
1 changed files with 10 additions and 0 deletions
@@ -155,3 +155,13 @@ 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)
+   EgtZoom( SCE_ZM.ALL)
+   -- salvo immagine
+   EgtGetImage( SCE_SM.SH, EgtStdColor('WHITE'), EgtStdColor('WHITE'), 1920, 1080, WDG.FILE)
+end
+_G.WinGetImage = WinGetImage