Demetrio Cassarino
48 lines
1.7 KiB
VB.net
48 lines
1.7 KiB
VB.net
Imports EgtWPFLib5.EgtFloating
|
|
|
|
Public Class ProjectV
|
|
|
|
Private m_bSpecial As Boolean = False
|
|
Private m_bBeam As Boolean = False
|
|
Private m_bWall As Boolean = False
|
|
Private m_bDoors As Boolean = False
|
|
Private m_bGunStock As Boolean = False
|
|
|
|
Private Sub UserControl_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
|
|
' Creo riferimento a questa classe in Map
|
|
Map.SetRefProjectV(Me)
|
|
End Sub
|
|
|
|
Private Sub UserControl_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
|
|
' Leggo posizioni Floating window
|
|
Dim sState As String = String.Empty
|
|
Dim nIndex As Integer = -1
|
|
Dim nLeft As Integer = -1
|
|
Dim nTop As Integer = -1
|
|
m_bSpecial = IniFile.IsActiveSpecialPanel()
|
|
m_bBeam = IniFile.IsActiveBeam()
|
|
m_bWall = IniFile.IsActiveWall()
|
|
m_bDoors = IniFile.IsActiveDoors()
|
|
m_bGunStock = IniFile.IsActiveGunStock()
|
|
End Sub
|
|
|
|
Private Sub PanelPositioning(FloatingPanel As EgtFloatingPanel, sState As String, nIndex As Integer, nLeft As Integer, nTop As Integer)
|
|
End Sub
|
|
|
|
Friend Sub SetDbPanelVisibility()
|
|
End Sub
|
|
|
|
Friend Sub MachiningMode_IsChecked()
|
|
Map.refMachGroupPanelVM.SetMachGroupPanelVisibility(IniFile.m_bMachiningGroup) ' MachGroupPanel.Visibility = If(IniFile.m_bMachiningGroup, Visibility.Visible, Visibility.Collapsed)
|
|
If m_bDoors Then Map.refDoorPanelVM.SetDoorPanelButtonsVisibility(False)
|
|
End Sub
|
|
|
|
Friend Sub DrawMode_IsChecked()
|
|
End Sub
|
|
|
|
Private Sub UserControl_Unloaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
|
|
' Salvo le posizioni di tutti gli EgtPanel
|
|
End Sub
|
|
|
|
End Class
|