EgtCAM5 :

- Migliorie varie.

ProjectPage/GridViewPanel/GridViewPanelViewModel.vb

@@ -15,6 +15,60 @@ Namespace EgtCAM5
          End Set
       End Property
 
+      Private m_CurveDirIsChecked As Boolean
+      Public Property CurveDirIsChecked As Boolean
+         Get
+            Return m_CurveDirIsChecked
+         End Get
+         Set(value As Boolean)
+            If value <> m_CurveDirIsChecked Then
+               m_CurveDirIsChecked = value
+               EgtSetShowCurveDirection(value)
+               OnPropertyChanged("CurveDirIsChecked")
+            End If
+         End Set
+      End Property
+
+      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
+               GetDistIsChecked = False
+               If value Then
+                  Application.Msn.NotifyColleagues(Application.SETSTATUSANALYZE)
+               Else
+                  Application.Msn.NotifyColleagues(Application.RESETSTATUSANALYZE)
+               End If
+               OnPropertyChanged("GetDistIsChecked")
+               OnPropertyChanged("AnalyzeIsChecked")
+            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
+               AnalyzeIsChecked = False
+               If value Then
+                  Application.Msn.NotifyColleagues(Application.SETSTATUSGETDISTANCE)
+               Else
+                  Application.Msn.NotifyColleagues(Application.RESETSTATUSGETDISTANCE)
+               End If
+               OnPropertyChanged("GetDistIsChecked")
+               OnPropertyChanged("AnalyzeIsChecked")
+            End If
+         End Set
+      End Property
+
       'Proprietà ToolTip
       Public ReadOnly Property RenderingWFToolTip As String
          Get
@@ -686,95 +740,95 @@ Namespace EgtCAM5
 
 #End Region ' IsoViewNWCommand
 
-#Region "CurveDirCommand"
+      '#Region "CurveDirCommand"
 
-      ''' <summary>
-      ''' Returns a command that do CurveDir.
-      ''' </summary>
-      Public ReadOnly Property CurveDirCommand As ICommand
-         Get
-            If m_cmdCurveDir Is Nothing Then
-               m_cmdCurveDir = New RelayCommand(AddressOf CurveDir, AddressOf CanCurveDir)
-            End If
-            Return m_cmdCurveDir
-         End Get
-      End Property
+      '      ''' <summary>
+      '      ''' Returns a command that do CurveDir.
+      '      ''' </summary>
+      '      Public ReadOnly Property CurveDirCommand As ICommand
+      '         Get
+      '            If m_cmdCurveDir Is Nothing Then
+      '               m_cmdCurveDir = New RelayCommand(AddressOf CurveDir, AddressOf CanCurveDir)
+      '            End If
+      '            Return m_cmdCurveDir
+      '         End Get
+      '      End Property
 
-      ''' <summary>
-      ''' Execute the CurveDir.  This method is invoked by the CurveDirCommand.
-      ''' </summary>
-      Public Sub CurveDir(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.CURVEDIR)
-      End Sub
+      '      ''' <summary>
+      '      ''' Execute the CurveDir.  This method is invoked by the CurveDirCommand.
+      '      ''' </summary>
+      '      Public Sub CurveDir(ByVal param As Object)
+      '         Application.Msn.NotifyColleagues(Application.CURVEDIR)
+      '      End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCurveDir(ByVal param As Object) As Boolean
-         Return True
-      End Function
+      '      ''' <summary>
+      '      ''' Returns always true.
+      '      ''' </summary>
+      '      Private Function CanCurveDir(ByVal param As Object) As Boolean
+      '         Return True
+      '      End Function
 
-#End Region ' CurveDirCommand
+      '#End Region ' CurveDirCommand
 
-#Region "AnalyzeCommand"
+      '#Region "AnalyzeCommand"
 
-      ''' <summary>
-      ''' Returns a command that do Analyze.
-      ''' </summary>
-      Public ReadOnly Property AnalyzeCommand As ICommand
-         Get
-            If m_cmdAnalyze Is Nothing Then
-               m_cmdAnalyze = New RelayCommand(AddressOf Analyze, AddressOf CanAnalyze)
-            End If
-            Return m_cmdAnalyze
-         End Get
-      End Property
+      '      ''' <summary>
+      '      ''' Returns a command that do Analyze.
+      '      ''' </summary>
+      '      Public ReadOnly Property AnalyzeCommand As ICommand
+      '         Get
+      '            If m_cmdAnalyze Is Nothing Then
+      '               m_cmdAnalyze = New RelayCommand(AddressOf Analyze, AddressOf CanAnalyze)
+      '            End If
+      '            Return m_cmdAnalyze
+      '         End Get
+      '      End Property
 
-      ''' <summary>
-      ''' Execute the Analyze.  This method is invoked by the AnalyzeCommand.
-      ''' </summary>
-      Public Sub Analyze(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.ANALYZE)
-      End Sub
+      '      ''' <summary>
+      '      ''' Execute the Analyze.  This method is invoked by the AnalyzeCommand.
+      '      ''' </summary>
+      '      Public Sub Analyze(ByVal param As Object)
+      '         Application.Msn.NotifyColleagues(Application.ANALYZE)
+      '      End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanAnalyze(ByVal param As Object) As Boolean
-         Return True
-      End Function
+      '      ''' <summary>
+      '      ''' Returns always true.
+      '      ''' </summary>
+      '      Private Function CanAnalyze(ByVal param As Object) As Boolean
+      '         Return True
+      '      End Function
 
-#End Region ' AnalyzeCommand
+      '#End Region ' AnalyzeCommand
 
-#Region "GetDistCommand"
+      '#Region "GetDistCommand"
 
-      ''' <summary>
-      ''' Returns a command that do GetDist.
-      ''' </summary>
-      Public ReadOnly Property GetDistCommand As ICommand
-         Get
-            If m_cmdGetDist Is Nothing Then
-               m_cmdGetDist = New RelayCommand(AddressOf GetDist, AddressOf CanGetDist)
-            End If
-            Return m_cmdGetDist
-         End Get
-      End Property
+      '      ''' <summary>
+      '      ''' Returns a command that do GetDist.
+      '      ''' </summary>
+      '      Public ReadOnly Property GetDistCommand As ICommand
+      '         Get
+      '            If m_cmdGetDist Is Nothing Then
+      '               m_cmdGetDist = New RelayCommand(AddressOf GetDist, AddressOf CanGetDist)
+      '            End If
+      '            Return m_cmdGetDist
+      '         End Get
+      '      End Property
 
-      ''' <summary>
-      ''' Execute the GetDist.  This method is invoked by the GetDistCommand.
-      ''' </summary>
-      Public Sub GetDist(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.GETDIST)
-      End Sub
+      '      ''' <summary>
+      '      ''' Execute the GetDist.  This method is invoked by the GetDistCommand.
+      '      ''' </summary>
+      '      Public Sub GetDist(ByVal param As Object)
+      '         Application.Msn.NotifyColleagues(Application.GETDIST)
+      '      End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanGetDist(ByVal param As Object) As Boolean
-         Return True
-      End Function
+      '      ''' <summary>
+      '      ''' Returns always true.
+      '      ''' </summary>
+      '      Private Function CanGetDist(ByVal param As Object) As Boolean
+      '         Return True
+      '      End Function
 
-#End Region ' GetDistCommand
+      '#End Region ' GetDistCommand
 
 #Region "CPlaneTopCommand"