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