EgtCAM5 :

- Migliorie varie.

ProjectPage/DrawPanel/DrawPanelViewModel.vb

@@ -251,6 +251,48 @@ Namespace EgtCAM5
             Return m_bSelOk
          End Get
       End Property
+
+      ' Proprietà che permettono di aprire e chiudere gli expander
+      Private m_Draw2DIsExpanded As Boolean
+      Public Property Draw2DIsExpanded As Boolean
+         Get
+            Return m_Draw2DIsExpanded
+         End Get
+         Set(value As Boolean)
+            m_Draw2DIsExpanded = value
+         End Set
+      End Property
+
+      Private m_Draw3DIsExpanded As Boolean
+      Public Property Draw3DIsExpanded As Boolean
+         Get
+            Return m_Draw3DIsExpanded
+         End Get
+         Set(value As Boolean)
+            m_Draw3DIsExpanded = value
+         End Set
+      End Property
+
+      Private m_ModifyIsExpanded As Boolean
+      Public Property ModifyIsExpanded As Boolean
+         Get
+            Return m_ModifyIsExpanded
+         End Get
+         Set(value As Boolean)
+            m_ModifyIsExpanded = value
+         End Set
+      End Property
+
+      Private m_TransformIsExpanded As Boolean
+      Public Property TransformIsExpanded As Boolean
+         Get
+            Return m_TransformIsExpanded
+         End Get
+         Set(value As Boolean)
+            m_TransformIsExpanded = value
+         End Set
+      End Property
+
       ' Definizione comandi
       Private m_cmdPoint As ICommand
       Private m_cmdLine2P As ICommand
@@ -301,6 +343,23 @@ Namespace EgtCAM5
 #Region "CONSTRUCTOR"
 
       Sub New()
+         ' Leggo stato expander da file ini
+         Dim Draw2D = GetPrivateProfileInt(S_GENERAL, K_DRAW2D, 0)
+         Draw2DIsExpanded = If(Draw2D = 0, False, True)
+         Dim Draw3D = GetPrivateProfileInt(S_GENERAL, K_DRAW3D, 0)
+         Draw3DIsExpanded = If(Draw3D = 0, False, True)
+         Dim Modify = GetPrivateProfileInt(S_GENERAL, K_MODIFY, 0)
+         ModifyIsExpanded = If(Modify = 0, False, True)
+         Dim Transform = GetPrivateProfileInt(S_GENERAL, K_TRANSFORM, 0)
+         TransformIsExpanded = If(Transform = 0, False, True)
+
+         Application.Msn.Register(Application.CLOSEAPPLICATION, Sub()
+                                                                   WritePrivateProfileString(S_GENERAL, K_DRAW2D, If(m_Draw2DIsExpanded, "1", "0"))
+                                                                   WritePrivateProfileString(S_GENERAL, K_DRAW3D, If(m_Draw3DIsExpanded, "1", "0"))
+                                                                   WritePrivateProfileString(S_GENERAL, K_MODIFY, If(m_ModifyIsExpanded, "1", "0"))
+                                                                   WritePrivateProfileString(S_GENERAL, K_TRANSFORM, If(m_TransformIsExpanded, "1", "0"))
+                                                                End Sub)
+
          Application.Msn.Register(Application.SETCURRLAYER, Sub(CurrLayer As Integer)
                                                                m_CurrentLayer = CurrLayer
                                                             End Sub)