EgtCAM5 :

- Aggiunti colori per sfondo e materiale default.
- Migliorata pagina opzioni.

OptionsWindow/OptionModule.vb

@@ -1,4 +1,5 @@
 Imports System.Collections.ObjectModel
+Imports EgtUILib
 
 Friend Module OptionModule
 
@@ -23,12 +24,18 @@ Friend Module OptionModule
    Friend m_SelGeomGenMachining As SceneSelModeOpt
    Friend m_SelGeomChiseling As SceneSelModeOpt
 
+   ' Tolleranza geometrica
+   Friend m_GeometryTolerance As Double
    ' Variabile che indica se quando viene creata una nuova operazione di lavorazione deve essere aggiunta in fondo
    ' alla fase o subito dopo la lavorazione selezionata
    Friend m_bNewMachiningIsLastOne As Boolean
    ' Variabile che indica se usare lo script per calcolare automaticamente la disposizione quando si passa in lavorazione
    Friend m_bUseDispositionScript As Boolean
 
+   Friend m_TopSceneBackground As Color3d
+   Friend m_BotSceneBackground As Color3d
+   Friend m_DefMaterialColor As Color3d
+
    ' inizializzazione lettura variabili ad inizio programma
    Friend Sub InitOptionModule()
       ' Inizializzo variabili per export
@@ -54,10 +61,22 @@ Friend Module OptionModule
       m_SelGeomGenMachining = If(Temp < 0 Or Temp > 3, SceneSelModeOpt.PARTCURVESANDSURFACES, DirectCast(Temp, SceneSelModeOpt))
       Temp = GetPrivateProfileInt(S_MACH, K_SELGEOMCHISELING, -1)
       m_SelGeomChiseling = If(Temp < 0 Or Temp > 3, SceneSelModeOpt.PARTCURVESANDSURFACES, DirectCast(Temp, SceneSelModeOpt))
+      ' Inizializzo tolleranza geometrica
+      m_GeometryTolerance = GetPrivateProfileDouble(S_GEOMDB, K_SURFTMTOLER, 0.05)
       ' Inizializzo variabile che indica posizione nuova operazione di lavorazione
       m_bNewMachiningIsLastOne = If(GetPrivateProfileInt(S_OPTIONS, K_NEWMACHININGISLASTONE, 0) <> 0, True, False)
       ' Inizializzo variabile che indica se usare script di disposizione
       m_bUseDispositionScript = If(GetPrivateProfileInt(S_OPTIONS, K_USEDISPOSITIONSCRIPT, 0) <> 0, True, False)
+      ' Inizializzo variabili colori di sfondo scena e materiale default
+      Dim DefColor As New Color3d(0, 0, 0)
+      GetPrivateProfileColor(S_GEOMDB, K_DEFAULTCOLOR, DefColor)
+      Dim BackTopColor As New Color3d(192, 192, 192)
+      GetPrivateProfileColor(S_SCENE, K_BACKTOP, BackTopColor)
+      Dim BackBotColor As New Color3d(BackTopColor)
+      GetPrivateProfileColor(S_SCENE, K_BACKBOTTOM, BackBotColor)
+      m_TopSceneBackground = BackTopColor
+      m_BotSceneBackground = BackBotColor
+      m_DefMaterialColor = DefColor
    End Sub
 
 End Module