EgtCAM5 :

- Cambiati nomi classi e file.
2018-04-10 17:08:35 +00:00
parent 4e2801a1c4
commit a4b5cd4834
144 changed files with 517 additions and 521 deletions
@@ -0,0 +1,151 @@
+Imports EgtUILib
+
+Namespace EgtCAM5
+
+   Public Class MachinePanelVM
+      Inherits ViewModelBase
+
+#Region "FIELDS & PROPERTIES"
+
+      ' Definizione comandi
+      Private m_cmdToolDb As ICommand
+      Private m_cmdMachDb As ICommand
+      Private m_cmdMachOptions As ICommand
+
+#Region "Messages"
+
+      Public ReadOnly Property ToolDBMsg As String
+         Get
+            Return EgtMsg(MSG_MAINWINDOW + 6)
+         End Get
+      End Property
+      Public ReadOnly Property MachiningDbMsg As String
+         Get
+            Return EgtMsg(MSG_MAINWINDOW + 7)
+         End Get
+      End Property
+
+#End Region    ' Messages
+
+#Region "ToolTip"
+
+      Public ReadOnly Property ToolDBToolTip As String
+         Get
+            Return EgtMsg(MSG_MAINWINDOW + 3)
+         End Get
+      End Property
+      Public ReadOnly Property MachiningDbToolTip As String
+         Get
+            Return EgtMsg(MSG_MAINWINDOW + 4)
+         End Get
+      End Property
+
+#End Region   ' ToolTip
+
+#End Region    'FIELDS & PROPERTIES
+
+#Region "COMMANDS"
+
+#Region "ToolDbCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Exec.
+      ''' </summary>
+      Public ReadOnly Property ToolDbCommand As ICommand
+         Get
+            If m_cmdToolDb Is Nothing Then
+               m_cmdToolDb = New RelayCommand(AddressOf ToolDb)
+            End If
+            Return m_cmdToolDb
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Exec.  This method is invoked by the ExecCommand.
+      ''' </summary>
+      Public Sub ToolDb(ByVal param As Object)
+         If Not EgtVerifyMachinesDir() Then Return
+         ' ricarico il database per intercettare eventuali aggiornamenti fatti da altre istanze del programma (se la cartella Machines è condivisa)
+         If Not EgtTdbReload() Then
+            EgtOutLog("Impossible reloading tool Db")
+            MessageBox.Show(EgtMsg(MSG_TOOLSERRORS + 30), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+            Return
+         End If
+         Dim ToolDbWindow As New ToolsDbV
+         ToolDbWindow.Height = 640
+         ToolDbWindow.Width = 1024
+         ToolDbWindow.DataContext = New ToolsDbVM
+         ToolDbWindow.Owner = Application.Current.MainWindow
+         ToolDbWindow.ShowDialog()
+      End Sub
+
+#End Region    ' ToolDbCommand
+
+#Region "MachDbCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Exec.
+      ''' </summary>
+      Public ReadOnly Property MachDbCommand As ICommand
+         Get
+            If m_cmdMachDb Is Nothing Then
+               m_cmdMachDb = New RelayCommand(AddressOf MachDb)
+            End If
+            Return m_cmdMachDb
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Exec.  This method is invoked by the ExecCommand.
+      ''' </summary>
+      Public Sub MachDb(ByVal param As Object)
+         If Not EgtVerifyMachinesDir() Then Return
+         ' ricarico il database per intercettare eventuali aggiornamenti fatti da altre istanze del programma (se la cartella Machines è condivisa)
+         If Not EgtMdbReload() Then
+            EgtOutLog("Impossible reloading machining Db")
+            MessageBox.Show(EgtMsg(MSG_MACHININGSERRORS + 7), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+            Return
+         End If
+         Dim MachDbWindow As New MachiningDbV
+         MachDbWindow.Height = 614
+         MachDbWindow.Width = 1024
+         MachDbWindow.DataContext = New MachiningDbVM
+         MachDbWindow.Owner = Application.Current.MainWindow
+         MachDbWindow.ShowDialog()
+      End Sub
+
+#End Region    ' MachDbCommand
+
+#Region "MachOptionsCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Exec.
+      ''' </summary>
+      Public ReadOnly Property MachOptionsCommand As ICommand
+         Get
+            If m_cmdMachOptions Is Nothing Then
+               m_cmdMachOptions = New RelayCommand(AddressOf MachOptions)
+            End If
+            Return m_cmdMachOptions
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Exec.  This method is invoked by the ExecCommand.
+      ''' </summary>
+      Public Sub MachOptions(ByVal param As Object)
+         Dim MachOptionWindow As New MachOptionV
+         'MachOptionWindow.Height = 614
+         'MachOptionWindow.Width = 256
+         MachOptionWindow.DataContext = New MachOptionVM
+         MachOptionWindow.Owner = Application.Current.MainWindow
+         MachOptionWindow.ShowDialog()
+      End Sub
+
+#End Region    ' MachOptionsCommand
+
+#End Region    ' COMMANDS
+
+   End Class
+
+End Namespace