EgtCAM5 :

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

ProjectPage/PopUpViewPanel/PopUpViewPanelViewModel.vb

@@ -67,7 +67,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ZoomInCommand As ICommand
          Get
             If m_cmdZoomIn Is Nothing Then
-               m_cmdZoomIn = New RelayCommand(AddressOf ZoomIn, AddressOf CanZoomIn)
+               m_cmdZoomIn = New RelayCommand(AddressOf ZoomIn)
             End If
             Return m_cmdZoomIn
          End Get
@@ -80,13 +80,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.ZOOMIN)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanZoomIn(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' ZoomInCommand
 
 #Region "ZoomOutCommand"
@@ -97,7 +90,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ZoomOutCommand As ICommand
          Get
             If m_cmdZoomOut Is Nothing Then
-               m_cmdZoomOut = New RelayCommand(AddressOf ZoomOut, AddressOf CanZoomOut)
+               m_cmdZoomOut = New RelayCommand(AddressOf ZoomOut)
             End If
             Return m_cmdZoomOut
          End Get
@@ -110,13 +103,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.ZOOMOUT)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanZoomOut(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' ZoomOutCommand
 
 #Region "IsoViewSECommand"
@@ -127,7 +113,7 @@ Namespace EgtCAM5
       Public ReadOnly Property IsoViewSECommand As ICommand
          Get
             If m_cmdIsoViewSE Is Nothing Then
-               m_cmdIsoViewSE = New RelayCommand(AddressOf IsoViewSE, AddressOf CanIsoViewSE)
+               m_cmdIsoViewSE = New RelayCommand(AddressOf IsoViewSE)
             End If
             Return m_cmdIsoViewSE
          End Get
@@ -140,13 +126,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.ISOVIEWSE)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanIsoViewSE(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' IsoViewSECommand
 
 #Region "IsoViewNECommand"
@@ -157,7 +136,7 @@ Namespace EgtCAM5
       Public ReadOnly Property IsoViewNECommand As ICommand
          Get
             If m_cmdIsoViewNE Is Nothing Then
-               m_cmdIsoViewNE = New RelayCommand(AddressOf IsoViewNE, AddressOf CanIsoViewNE)
+               m_cmdIsoViewNE = New RelayCommand(AddressOf IsoViewNE)
             End If
             Return m_cmdIsoViewNE
          End Get
@@ -170,13 +149,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.ISOVIEWNE)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanIsoViewNE(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' IsoViewNECommand
 
 #Region "IsoViewNWCommand"
@@ -187,7 +159,7 @@ Namespace EgtCAM5
       Public ReadOnly Property IsoViewNWCommand As ICommand
          Get
             If m_cmdIsoViewNW Is Nothing Then
-               m_cmdIsoViewNW = New RelayCommand(AddressOf IsoViewNW, AddressOf CanIsoViewNW)
+               m_cmdIsoViewNW = New RelayCommand(AddressOf IsoViewNW)
             End If
             Return m_cmdIsoViewNW
          End Get
@@ -200,13 +172,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.ISOVIEWNW)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanIsoViewNW(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' IsoViewNWCommand
 
 #Region "ViewToCPlaneCommand"
@@ -217,7 +182,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ViewToCPlaneCommand As ICommand
          Get
             If m_cmdViewToCPlane Is Nothing Then
-               m_cmdViewToCPlane = New RelayCommand(AddressOf ViewToCPlane, AddressOf CanViewToCPlane)
+               m_cmdViewToCPlane = New RelayCommand(AddressOf ViewToCPlane)
             End If
             Return m_cmdViewToCPlane
          End Get
@@ -230,13 +195,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.VIEWTOCPLANE)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanViewToCPlane(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' ViewToCPlaneCommand
 
 #End Region    ' COMMANDS