Emmanuele Sassi
fa737c7c80
- aggiornata icona vista tool - gestita visualizzazione strati dopo calcolo slice - uniformata textbox assi macchina in simulazione
31 lines
1.0 KiB
VB.net
31 lines
1.0 KiB
VB.net
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class MachineViewPanelVM
|
|
Inherits VMBase
|
|
|
|
Public Property ghSelMachView As Integer
|
|
Get
|
|
Return If(Not IsNothing(Map.refSimulationPanelVM) AndAlso Not IsNothing(Map.refSimulationPanelVM.MySimul), Map.refSimulationPanelVM.MySimul.GetMachLook() - 1, Nothing)
|
|
End Get
|
|
Set(value As Integer)
|
|
If Not IsNothing(Map.refSimulationPanelVM) AndAlso Not IsNothing(Map.refSimulationPanelVM.MySimul) Then
|
|
Map.refSimulationPanelVM.MySimul.SetMachLook(value + 1)
|
|
' aggiorno lo stato della macchina e la sua visualizzazione
|
|
EgtSetMachineLook(Map.refSimulationPanelVM.MySimul.GetMachLook())
|
|
WriteMainPrivateProfileString(S_SIMUL, K_MACHVIEWMODE, value + 1)
|
|
End If
|
|
EgtDraw()
|
|
End Set
|
|
End Property
|
|
Friend Sub RefreshSelViewSlider()
|
|
NotifyPropertyChanged(NameOf(ghSelMachView))
|
|
End Sub
|
|
|
|
Sub New()
|
|
' Creo riferimento a questa classe in OmagOFFICEMap
|
|
Map.SetRefMachineViewPanelVM(Me)
|
|
End Sub
|
|
|
|
End Class
|