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:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user