Renzo Lanza
7eb8240749
- MachGroupPanelVM, MachinePanelVM, StatusBarVM spostati in EgtWPFLib5. Ora qua sono presenti le versioni My_ che ereditano quelle della Libreria. - ComboBox della Macchina corrente spostata in MachinePanel (accanto a Db Ut./Lav./SetUp). - modificato OptionPanel in modo da gestire i nuovi DrawOptionPanel e MachiningOptionPanel in base alle modalità DISEGNA e LAVORA. - ogni Expander di MachiningOptionPanel ora ha il suo VM e il suo V. - nuova gestione degli Expander di MachiningOptionPanel tramite funzioni Init e Exit. - barra TOPTRAY ora può estendersi su una seconda riga in base a larghezza finestra. - eliminati molti Application.Msn.Register/NotifyColleagues. Ora le funzioni che chiamavano sono chiamate tramite i riferimenti in Map. - corretta selezione superfici quando si sceglie Nuova Lav. in LAVORA.
63 lines
1.6 KiB
VB.net
63 lines
1.6 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class DrawOptionPanelVM
|
|
Inherits ViewModelBase
|
|
|
|
' GRAPHICAL ELEMENTS
|
|
Private m_ManageLayerExpander As ManageLayerExpanderV
|
|
Public ReadOnly Property ManageLayerExpander As ContentControl
|
|
Get
|
|
If IsNothing(m_ManageLayerExpander) Then
|
|
m_ManageLayerExpander = New ManageLayerExpanderV
|
|
m_ManageLayerExpander.DataContext = New ManageLayerExpanderVM
|
|
End If
|
|
Return m_ManageLayerExpander
|
|
End Get
|
|
End Property
|
|
|
|
Private m_InfoExpander As InfoExpanderV
|
|
Public ReadOnly Property InfoExpander As ContentControl
|
|
Get
|
|
If IsNothing(m_InfoExpander) Then
|
|
m_InfoExpander = New InfoExpanderV
|
|
m_InfoExpander.DataContext = New InfoExpanderVM
|
|
End If
|
|
Return m_InfoExpander
|
|
End Get
|
|
End Property
|
|
|
|
Private m_InputExpander As InputExpanderV
|
|
Public ReadOnly Property InputExpander As ContentControl
|
|
Get
|
|
If IsNothing(m_InputExpander) Then
|
|
m_InputExpander = New InputExpanderV
|
|
m_InputExpander.DataContext = New InputExpanderVM
|
|
End If
|
|
Return m_InputExpander
|
|
End Get
|
|
End Property
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' Creo riferimento a questa classe in Map
|
|
Map.SetRefDrawOptionPanelVM(Me)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "METHODS"
|
|
|
|
Friend Function InitDrawOptionPanel() As Boolean
|
|
'EgtZoom(ZM.ALL)
|
|
Return True
|
|
End Function
|
|
|
|
Friend Function ExitDrawOptionPanel() As Boolean
|
|
|
|
Return True
|
|
End Function
|
|
|
|
#End Region ' METHODS
|
|
|
|
End Class |