Dario Sassi
aeaf8c61f5
- aggiunta gestione BeamNT - aggiunto switch automatico toolbar Beam e BeamNT (dipende da ultimo lancio da programma esterno e salvato in INI come [BeamNT] BntShow=1).
50 lines
1.6 KiB
VB.net
50 lines
1.6 KiB
VB.net
Imports EgtWPFLib5.EgtFloating
|
|
|
|
Public Class ProjectV
|
|
|
|
Private m_bSpecial As Boolean = False
|
|
Private m_bBeamNT 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
|
|
' Carico Pannelli Speciali
|
|
m_bSpecial = IniFile.IsActiveSpecialPanel()
|
|
m_bBeamNT = IniFile.IsActiveBeamNT()
|
|
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)
|
|
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
|
|
End Sub
|
|
|
|
End Class
|