Egalware/EgtCAM5
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtCAM5 :

Browse Source 
- aggiunta gestione colore griglia nelle opzioni.
This commit is contained in:
Dario Sassi
2018-06-25 07:18:33 +00:00
parent 0f1aa3f26d
commit 2d7c5c82a3
3 changed files with 73 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
OptionsWindow/OptionModule.vb
+7 -3
View File
@@ -34,6 +34,7 @@ Friend Module OptionModule
Friend m_TopSceneBackground As Color3d
Friend m_BotSceneBackground As Color3d
Friend m_GridColor As Color3d
Friend m_DefMaterialColor As Color3d
' inizializzazione lettura variabili ad inizio programma
@@ -67,15 +68,18 @@ Friend Module OptionModule
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)
' Inizializzo variabili colori di sfondo scena, griglia e materiale default
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)
Dim DefColor As New Color3d(0, 0, 0)
GetPrivateProfileColor(S_GEOMDB, K_DEFAULTCOLOR, DefColor)
Dim GridColor As New Color3d(0, 0, 0)
GetPrivateProfileColor(S_GRID, K_MINLNCOLOR, GridColor)
m_TopSceneBackground = BackTopColor
m_BotSceneBackground = BackBotColor
m_GridColor = GridColor
m_DefMaterialColor = DefColor
End Sub