-first commit

2024-12-20 16:16:57 +01:00
parent 4fcd643672
commit 6c9c19d7fa
30 changed files with 1904 additions and 0 deletions
@@ -0,0 +1,68 @@
+Imports EgtUILib
+Imports EgtWPFLib5
+
+Friend Module OptionModule
+
+#Region "FIELDS & PROPERTIES"
+
+   ' Colori di sfondo della vista e della griglia
+   Friend m_TopSceneBackground As Color3d
+   Friend m_BotSceneBackground As Color3d
+   Friend m_GridColor As Color3d
+
+   ' Colore di default in disegno
+   Friend m_DefMaterialColor As Color3d
+
+   ' Colore di evidenziazione
+   Friend m_MarkColor As Color3d
+
+   ' Colore superfici
+   Friend m_SelSurfColor As Color3d
+
+   ' Colore rettangolo di zoom
+   Friend m_RectangleZoomColor As Color3d
+
+   ' Colore linea di distanz
+   Friend m_LineDistanceColor As Color3d
+
+#End Region    ' Fields & Properties
+
+#Region "METHODS"
+
+   ' inizializzazione lettura variabili ad inizio programma
+   Friend Sub InitOptionModule()
+      ' Inizializzo variabili colori di sfondo scena, griglia
+      Dim BackTopColor As New Color3d(0, 123, 167)
+      GetMainPrivateProfileColor(S_SCENE, K_BACKTOP, BackTopColor)
+      m_TopSceneBackground = BackTopColor
+      Dim BackBotColor As New Color3d(BackTopColor)
+      GetMainPrivateProfileColor(S_SCENE, K_BACKBOTTOM, BackBotColor)
+      m_BotSceneBackground = BackBotColor
+      Dim GridColor As New Color3d(0, 0, 0)
+      GetMainPrivateProfileColor(S_GRID, K_MINLNCOLOR, GridColor)
+      m_GridColor = GridColor
+      ' imposto colore di default
+      Dim DefColor As New Color3d(100, 10, 20)
+      GetMainPrivateProfileColor(S_GEOMDB, K_DEFAULTCOLOR, DefColor)
+      m_DefMaterialColor = DefColor
+      ' imposto colore di evidenziazione
+      Dim MarkColor As New Color3d(255, 255, 0)
+      GetMainPrivateProfileColor(S_SCENE, K_MARK, MarkColor)
+      m_MarkColor = MarkColor
+      ' imposto colore per superfici selezionate
+      Dim SelSurfColor As New Color3d(255, 255, 192)
+      GetMainPrivateProfileColor(S_SCENE, K_SELSURF, SelSurfColor)
+      m_SelSurfColor = SelSurfColor
+      ' imposto tipo e colore del rettangolo di zoom
+      Dim ZwColor As New Color3d(0, 0, 0)
+      GetMainPrivateProfileZoomWin(S_SCENE, K_ZOOMWIN, True, ZwColor)
+      m_RectangleZoomColor = ZwColor
+      ' imposto colore della linea di distanza
+      Dim DstLnColor As New Color3d(255, 0, 0)
+      GetMainPrivateProfileColor(S_SCENE, K_DISTLINE, DstLnColor)
+      m_LineDistanceColor = DstLnColor
+   End Sub
+
+#End Region    ' Methods
+
+End Module