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

EgtCAM5 2.1k6 :

Browse Source 
- aggiunta gestione spessore linee (da finestra Opzioni)
- aggiunta campo chiave nesting automatico da file di licenza.
This commit is contained in:
Dario Sassi
2019-12-02 07:47:57 +00:00
parent a4cd4db5fb
commit 12cb04e07e
8 changed files with 49 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
OptionsWindow/OptionModule.vb
+6 -2
View File
@@ -10,8 +10,10 @@ Friend Module OptionModule
Friend m_TopSceneBackground As Color3d
Friend m_BotSceneBackground As Color3d
Friend m_GridColor As Color3d
' Flag per visualizzazione spessa delle linee
Friend m_bThickLine As Boolean
' Flag per visualizzazione smussata delle superfici
Friend m_bTriMeshSmoothed As Boolean
Friend m_bSmoothTriMesh As Boolean
' Colore di default in disegno
Friend m_DefMaterialColor As Color3d
@@ -79,8 +81,10 @@ Friend Module OptionModule
Dim GridColor As New Color3d(0, 0, 0)
GetPrivateProfileColor(S_GRID, K_MINLNCOLOR, GridColor)
m_GridColor = GridColor
' Inizializzo flag linee ingrossate
m_bThickLine = GetPrivateProfileInt(S_SCENE, K_LINEWIDTH, 1) <> 1
' Inizializzo flag visualizzazione smussata delle superfici
m_bTriMeshSmoothed = GetPrivateProfileInt(S_SCENE, K_SHOWTRIAADV, 1) <> 0
m_bSmoothTriMesh = GetPrivateProfileInt(S_SCENE, K_SHOWTRIAADV, 1) <> 0
' Inizio colore di default in disegno
Dim DefColor As New Color3d(0, 0, 0)
GetPrivateProfileColor(S_GEOMDB, K_DEFAULTCOLOR, DefColor)