Emmanuele Sassi
71ad5dd682
- introdotta possibilita' di muovere coordinate macchina in simulazione - introduzione nuova EgtTextBox2 - nuova grafica per ControllerInputPanel - nuovo componente che gestisce visibilita' macchina - gestita stop e uscita da simulazione su chiusura programma -
36 lines
1.1 KiB
VB.net
36 lines
1.1 KiB
VB.net
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class MachineViewPanelVM
|
|
Inherits VMBase
|
|
|
|
Private m_nSelMachView As MCH_LOOK
|
|
Public Property ghSelMachView As Integer
|
|
Get
|
|
Return m_nSelMachView - 1
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nSelMachView = value + 1
|
|
If Not IsNothing(Map.refSimulationPanelVM) Then
|
|
Dim MySimul As SimulationVM = Map.refSimulationPanelVM.MySimul
|
|
MySimul.SetMachLook(m_nSelMachView)
|
|
' aggiorno lo stato della macchina e la sua visualizzazione
|
|
EgtSetMachineLook(MySimul.GetMachLook())
|
|
WriteMainPrivateProfileString(S_SIMUL, K_MACHVIEWMODE, m_nSelMachView)
|
|
End If
|
|
EgtDraw()
|
|
End Set
|
|
End Property
|
|
Friend Sub SetSelViewSlider(value As MCH_LOOK)
|
|
m_nSelMachView = value
|
|
NotifyPropertyChanged(NameOf(ghSelMachView))
|
|
End Sub
|
|
|
|
Sub New()
|
|
' leggo vista macchina da ini e la imposto
|
|
Dim DefaultMachViewMode As Integer = GetMainPrivateProfileInt(S_SIMUL, K_MACHVIEWMODE, 3)
|
|
SetSelViewSlider(DefaultMachViewMode)
|
|
End Sub
|
|
|
|
End Class
|