EgtCAM5 :

- Cambiati nomi classi e file.

InstrumentPanel/InstrumentPanelVM.vb

@@ -0,0 +1,101 @@
+Imports EgtUILib
+
+Namespace EgtCAM5
+
+   Public Class InstrumentPanelVM
+      Inherits ViewModelBase
+
+#Region "FIELDS & PROPERTIES"
+
+#Region "ToolTip"
+
+      Public ReadOnly Property AnalyzeToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 17)
+         End Get
+      End Property
+      Public ReadOnly Property GetDistToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 18)
+         End Get
+      End Property
+
+#End Region       ' ToolTip
+
+      Private m_AnalyzeIsChecked As Boolean
+      Public Property AnalyzeIsChecked As Boolean
+         Get
+            Return m_AnalyzeIsChecked
+         End Get
+         Set(value As Boolean)
+            If value <> m_AnalyzeIsChecked Then
+               m_AnalyzeIsChecked = value
+               If value Then
+                  Map.refProjectVM.GetScene.SetStatusAnalyze()
+               Else
+                  Map.refProjectVM.GetScene.ResetStatusAnalyze()
+                  Application.Msn.NotifyColleagues(Application.SELECTIDINOBJTREE, GDB_ID.NULL)
+               End If
+               OnPropertyChanged("AnalyzeIsChecked")
+            End If
+         End Set
+      End Property
+
+      Private m_AnalyzeIsEnabled As Boolean
+      Public Property AnalyzeIsEnabled As Boolean
+         Get
+            Return m_AnalyzeIsEnabled
+         End Get
+         Set(value As Boolean)
+            If value <> m_AnalyzeIsEnabled Then
+               m_AnalyzeIsEnabled = value
+               OnPropertyChanged("AnalyzeIsEnabled")
+            End If
+         End Set
+      End Property
+
+
+      Private m_GetDistIsChecked As Boolean
+      Public Property GetDistIsChecked As Boolean
+         Get
+            Return m_GetDistIsChecked
+         End Get
+         Set(value As Boolean)
+            If value <> m_GetDistIsChecked Then
+               m_GetDistIsChecked = value
+               If value Then
+                  Map.refProjectVM.GetScene.SetStatusGetDistance()
+               Else
+                  Map.refProjectVM.GetScene.ResetStatusGetDistance()
+                  Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, String.Empty)
+               End If
+               OnPropertyChanged("GetDistIsChecked")
+            End If
+         End Set
+      End Property
+
+#End Region    ' FIELDS & PROPERTIES
+
+#Region "CONSTRUCTOR"
+
+      Sub New()
+         Application.Msn.Register(Application.MACHININGMODE_ISCHECKED, Sub()
+                                                                          AnalyzeIsChecked = False
+                                                                          AnalyzeIsEnabled = False
+                                                                       End Sub)
+         Application.Msn.Register(Application.DRAWMODE_ISCHECKED, Sub()
+                                                                     AnalyzeIsEnabled = True
+                                                                  End Sub)
+         Application.Msn.Register(Application.ANALYZE_ISCHECKED, Sub(bIsChecked As Boolean)
+                                                                    AnalyzeIsChecked = bIsChecked
+                                                                 End Sub)
+         Application.Msn.Register(Application.GETDISTANCE_ISCHECKED, Sub(bIsChecked As Boolean)
+                                                                        GetDistIsChecked = bIsChecked
+                                                                     End Sub)
+      End Sub
+
+#End Region    ' CONSTRUCTOR
+
+   End Class
+
+End Namespace