EgtCAM5 3.1h1 :

- per utenti interni aggiunta possibilità di configurare da Options il formato di salvataggio del DB geometrico.
This commit is contained in:
Dario Sassi
2026-08-11 20:12:50 +02:00
parent 90c550fdc4
commit d19bd0b842
7 changed files with 81 additions and 15 deletions
+5
View File
@@ -16,6 +16,8 @@ Friend Module OptionModule
Friend m_ShowSurfQuality As SceneSurfQualityOpt
' Tipo di visualizzazione delle Zmap
Friend m_nShowZmapType As Integer
' Formato di salvataggio del progetto
Friend m_nGeomDBSaveType As NGE
' Colore di default in disegno
Friend m_DefMaterialColor As Color3d
@@ -122,6 +124,9 @@ Friend Module OptionModule
m_ShowSurfQuality = DirectCast( Math.Min( Math.Max( nSSQ, -2), 2), SceneSurfQualityOpt)
' Inizializzo tipo di visualizzazione Zmap
m_nShowZmapType = GetPrivateProfileInt(S_SCENE, K_SHOWZMAP, 9)
' Inizializzo formato di salvataggio del progetto
Dim nGST As Integer = GetPrivateProfileInt(S_GEOMDB, K_SAVETYPE, NGE.CMPTEXT)
m_nGeomDBSaveType = DirectCast( Math.Min( Math.Max( nGST, 0), 3), NGE)
' Inizio colore di default in disegno
Dim DefColor As New Color3d(0, 0, 0)
GetPrivateProfileColor(S_GEOMDB, K_DEFAULTCOLOR, DefColor)