-aggiunto ridimensionameto griglia, possibilità di averla o no

OptionsWindow/OptionModule.vb

@@ -41,6 +41,20 @@ Friend Module OptionModule
    ' selezione tema toppanel (default=0)
    Friend m_SelectedThemaTopPanel As Integer = 0
 
+   Friend m_bShowGridFrame As Boolean
+   Friend m_bGridState As Integer
+
+   Friend m_bMmUnits As Boolean
+
+   Friend m_MinLnColor As Color3d
+   Friend m_MajLnColor As Color3d
+
+   Friend m_dSnapStepMm As Double
+   Friend m_dSnapStepInch As Double
+   Friend m_nMinLineSStep As Integer
+   Friend m_nMajLineSStep As Integer
+   Friend m_nExtSStep As Integer
+
 #End Region    ' Fields & Properties
 
 #Region "METHODS"
@@ -108,6 +122,19 @@ Friend Module OptionModule
       m_SelectedThema = GetMainPrivateProfileInt(S_GENERAL, K_THEMA, 0)
       ' imposto il tema toppanel
       m_SelectedThemaTopPanel = GetMainPrivateProfileInt(S_GENERAL, K_TOPPANEL, 0)
+      m_bShowGridFrame = (GetMainPrivateProfileInt(S_GRID, K_SHOWFRAME, 1) <> 0)
+      m_bGridState = GetMainPrivateProfileInt(S_GENERAL, K_GRIDSTATE, 1)
+      ' imposto unità di misura per interfaccia utente
+      m_bMmUnits = (GetMainPrivateProfileInt(S_SCENE, K_MMUNITS, 1) <> 0)
+      m_MinLnColor = New Color3d(160, 160, 160)
+      GetMainPrivateProfileColor(S_GRID, K_MINLNCOLOR, m_MinLnColor)
+      m_MajLnColor = New Color3d(160, 160, 160)
+      GetMainPrivateProfileColor(S_GRID, K_MINLNCOLOR, m_MajLnColor)
+      m_dSnapStepMm = GetMainPrivateProfileDouble(S_GRID, K_SNAPSTEP, 10)
+      m_dSnapStepInch = GetMainPrivateProfileDouble(S_GRID, K_SNAPSTEPINCH, 10)
+      m_nMinLineSStep = GetMainPrivateProfileInt(S_GRID, K_MINLINESSTEP, 1)
+      m_nMajLineSStep = GetMainPrivateProfileInt(S_GRID, K_MAJLINESSTEP, 10)
+      m_nExtSStep = GetMainPrivateProfileInt(S_GRID, K_EXTSSTEP, 50)
    End Sub
 
 #End Region    ' Methods