EgtCAM5 :

- Aggiunta possibilità di getire progressbar e output message presenti nella StatusBar da LUA.
- Inizio scrittura della struttura per MTables.
- Aggiunta la possibilità di aggiungere nuovi gruppi di lavorazione.
- Gestita uscita da NewMachiningCmd(in OperationList) con Esc.
This commit is contained in:
Emmanuele Sassi
2016-10-07 10:14:14 +00:00
parent 80e92223c6
commit a312eef399
16 changed files with 276 additions and 63 deletions
-29
View File
@@ -10,7 +10,6 @@ Namespace EgtCAM5
' Definizione comandi
Private m_cmdToolDb As ICommand
Private m_cmdMachDb As ICommand
Private m_cmdMTableDb As ICommand
#End Region 'FIELDS & PROPERTIES
@@ -86,34 +85,6 @@ Namespace EgtCAM5
#End Region ' MachDbCommand
#Region "MachDbCommand"
''' <summary>
''' Returns a command that do Exec.
''' </summary>
Public ReadOnly Property MTableDbCommand As ICommand
Get
If m_cmdMTableDb Is Nothing Then
m_cmdMTableDb = New RelayCommand(AddressOf MTableDb)
End If
Return m_cmdMTableDb
End Get
End Property
''' <summary>
''' Execute the Exec. This method is invoked by the ExecCommand.
''' </summary>
Public Sub MTableDb(ByVal param As Object)
Dim MTableDbWindow As New MTableDbView
MTableDbWindow.Height = 614
MTableDbWindow.Width = 1024
MTableDbWindow.DataContext = New MTableDbViewModel
MTableDbWindow.Owner = Application.Current.MainWindow
MTableDbWindow.ShowDialog()
End Sub
#End Region ' MachDbCommand
#End Region ' COMMANDS
End Class