EgtCAM5 :

- Correzzione EgtSaveFile Dialog.
- Eliminazione Can da tutti i comandi dei bottoni nel programma.

ProjectPage/ViewPanel/ViewPanelViewModel.vb

@@ -74,7 +74,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ZoomAllCommand As ICommand
          Get
             If m_cmdZoomAll Is Nothing Then
-               m_cmdZoomAll = New RelayCommand(AddressOf ZoomAll, AddressOf CanZoomAll)
+               m_cmdZoomAll = New RelayCommand(AddressOf ZoomAll)
             End If
             Return m_cmdZoomAll
          End Get
@@ -87,13 +87,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.ZOOMALL)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanZoomAll(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' ZoomAllCommand
 
 #Region "TopViewCommand"
@@ -104,7 +97,7 @@ Namespace EgtCAM5
       Public ReadOnly Property TopViewCommand As ICommand
          Get
             If m_cmdTopView Is Nothing Then
-               m_cmdTopView = New RelayCommand(AddressOf TopView, AddressOf CanTopView)
+               m_cmdTopView = New RelayCommand(AddressOf TopView)
             End If
             Return m_cmdTopView
          End Get
@@ -117,13 +110,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.TOPVIEW)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanTopView(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' TopViewCommand
 
 #Region "FrontViewCommand"
@@ -134,7 +120,7 @@ Namespace EgtCAM5
       Public ReadOnly Property FrontViewCommand As ICommand
          Get
             If m_cmdFrontView Is Nothing Then
-               m_cmdFrontView = New RelayCommand(AddressOf FrontView, AddressOf CanFrontView)
+               m_cmdFrontView = New RelayCommand(AddressOf FrontView)
             End If
             Return m_cmdFrontView
          End Get
@@ -147,13 +133,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.FRONTVIEW)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanFrontView(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' FrontViewCommand
 
 #Region "LeftViewCommand"
@@ -164,7 +143,7 @@ Namespace EgtCAM5
       Public ReadOnly Property LeftViewCommand As ICommand
          Get
             If m_cmdLeftView Is Nothing Then
-               m_cmdLeftView = New RelayCommand(AddressOf LeftView, AddressOf CanLeftView)
+               m_cmdLeftView = New RelayCommand(AddressOf LeftView)
             End If
             Return m_cmdLeftView
          End Get
@@ -177,13 +156,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.LEFTVIEW)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanLeftView(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' LeftViewCommand
 
 #Region "BackViewCommand"
@@ -194,7 +166,7 @@ Namespace EgtCAM5
       Public ReadOnly Property BackViewCommand As ICommand
          Get
             If m_cmdBackView Is Nothing Then
-               m_cmdBackView = New RelayCommand(AddressOf BackView, AddressOf CanBackView)
+               m_cmdBackView = New RelayCommand(AddressOf BackView)
             End If
             Return m_cmdBackView
          End Get
@@ -207,13 +179,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.BACKVIEW)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanBackView(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' BackViewCommand
 
 #Region "RightViewCommand"
@@ -224,7 +189,7 @@ Namespace EgtCAM5
       Public ReadOnly Property RightViewCommand As ICommand
          Get
             If m_cmdRightView Is Nothing Then
-               m_cmdRightView = New RelayCommand(AddressOf RightView, AddressOf CanRightView)
+               m_cmdRightView = New RelayCommand(AddressOf RightView)
             End If
             Return m_cmdRightView
          End Get
@@ -237,13 +202,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.RIGHTVIEW)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanRightView(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' RightViewCommand
 
 #Region "IsoViewSWCommand"
@@ -254,7 +212,7 @@ Namespace EgtCAM5
       Public ReadOnly Property IsoViewSWCommand As ICommand
          Get
             If m_cmdIsoViewSW Is Nothing Then
-               m_cmdIsoViewSW = New RelayCommand(AddressOf IsoViewSW, AddressOf CanIsoViewSW)
+               m_cmdIsoViewSW = New RelayCommand(AddressOf IsoViewSW)
             End If
             Return m_cmdIsoViewSW
          End Get
@@ -267,13 +225,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.ISOVIEWSW)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanIsoViewSW(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' IsoViewSWCommand
 
 #End Region    ' COMMANDS