EgtCAM5 :

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

TopCommandBar/TopCommandBarViewModel.vb

@@ -101,6 +101,7 @@ Namespace EgtCAM5
                   Application.Msn.NotifyColleagues(Application.LOADOBJTREE)
                   IniFile.m_ProjectMode = ProjectModeOpt.DRAW
                End If
+               OnPropertyChanged("DrawIsChecked")
             End If
          End Set
       End Property
@@ -163,7 +164,7 @@ Namespace EgtCAM5
       Public ReadOnly Property NewCommand As ICommand
          Get
             If m_cmdNew Is Nothing Then
-               m_cmdNew = New RelayCommand(AddressOf NewCmd, AddressOf CanNew)
+               m_cmdNew = New RelayCommand(AddressOf NewCmd)
             End If
             Return m_cmdNew
          End Get
@@ -177,13 +178,6 @@ Namespace EgtCAM5
          OnPropertyChanged("MruFileNames")
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanNew(ByVal param As Object) As Boolean
-         Return m_DrawIsChecked
-      End Function
-
 #End Region ' NewCommand
 
 #Region "OpenCommand"
@@ -194,7 +188,7 @@ Namespace EgtCAM5
       Public ReadOnly Property OpenCommand As ICommand
          Get
             If m_cmdOpen Is Nothing Then
-               m_cmdOpen = New RelayCommand(AddressOf Open, AddressOf CanOpen)
+               m_cmdOpen = New RelayCommand(AddressOf Open)
             End If
             Return m_cmdOpen
          End Get
@@ -207,13 +201,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.OPENPROJECT, String.Empty)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanOpen(ByVal param As Object) As Boolean
-         Return m_DrawIsChecked
-      End Function
-
 #End Region ' OpenCommand
 
 #Region "OpenMruFileCommand"
@@ -293,7 +280,7 @@ Namespace EgtCAM5
       Public ReadOnly Property InsertCommand As ICommand
          Get
             If m_cmdInsert Is Nothing Then
-               m_cmdInsert = New RelayCommand(AddressOf Insert, AddressOf CanInsert)
+               m_cmdInsert = New RelayCommand(AddressOf Insert)
             End If
             Return m_cmdInsert
          End Get
@@ -306,13 +293,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.INSERTPROJECT)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanInsert(ByVal param As Object) As Boolean
-         Return m_DrawIsChecked
-      End Function
-
 #End Region ' InsertCommand
 
 #Region "ImportCommand"
@@ -323,7 +303,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ImportCommand As ICommand
          Get
             If m_cmdImport Is Nothing Then
-               m_cmdImport = New RelayCommand(AddressOf Import, AddressOf CanImport)
+               m_cmdImport = New RelayCommand(AddressOf Import)
             End If
             Return m_cmdImport
          End Get
@@ -336,13 +316,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.IMPORTPROJECT)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanImport(ByVal param As Object) As Boolean
-         Return m_DrawIsChecked
-      End Function
-
 #End Region ' ImportCommand
 
 #Region "ExportCommand"
@@ -353,7 +326,7 @@ Namespace EgtCAM5
       Public ReadOnly Property ExportCommand As ICommand
          Get
             If m_cmdExport Is Nothing Then
-               m_cmdExport = New RelayCommand(AddressOf Export, AddressOf CanExport)
+               m_cmdExport = New RelayCommand(AddressOf Export)
             End If
             Return m_cmdExport
          End Get
@@ -366,13 +339,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.EXPORTPROJECT)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanExport(ByVal param As Object) As Boolean
-         Return m_DrawIsChecked
-      End Function
-
 #End Region ' ExportCommand
 
 #Region "OptionsCommand"
@@ -383,7 +349,7 @@ Namespace EgtCAM5
       Public ReadOnly Property OptionsCommand As ICommand
          Get
             If m_cmdOptions Is Nothing Then
-               m_cmdOptions = New RelayCommand(AddressOf Options, AddressOf CanOptions)
+               m_cmdOptions = New RelayCommand(AddressOf Options)
             End If
             Return m_cmdOptions
          End Get
@@ -401,13 +367,6 @@ Namespace EgtCAM5
          OptionsWindow.ShowDialog()
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanOptions(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' OptionsCommand
 
 #End Region    ' Commands