Samuele E. Locatelli
142 lines
3.4 KiB
VB.net
142 lines
3.4 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class ShowBeamPanelVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
#Region "ToolTip"
|
|
|
|
Public ReadOnly Property RenderingWFToolTip As String
|
|
Get
|
|
Return EgtMsg(MSG_GRIDVIEWPANEL + 1)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property RenderingHLToolTip As String
|
|
Get
|
|
Return EgtMsg(MSG_GRIDVIEWPANEL + 2)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property RenderingSHToolTip As String
|
|
Get
|
|
Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property CurveDirToolTip As String
|
|
Get
|
|
Return EgtMsg(MSG_GRIDVIEWPANEL + 16)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
Private m_bShowAll As Boolean = True
|
|
Friend Property bShowAll As Boolean
|
|
Get
|
|
Return m_bShowAll
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_bShowAll = value
|
|
If m_bShowAll Then
|
|
m_ShowSolid_IsEnabled = False
|
|
m_ShowBuilding_IsEnabled = True
|
|
Else
|
|
m_ShowSolid_IsEnabled = True
|
|
m_ShowBuilding_IsEnabled = False
|
|
End If
|
|
NotifyPropertyChanged("ShowSolid_IsEnabled")
|
|
NotifyPropertyChanged("ShowBuilding_IsEnabled")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_bShowSolid As Boolean
|
|
Public Property ShowSolid_IsChecked As Boolean
|
|
Get
|
|
Return m_bShowSolid
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_bShowSolid = value
|
|
If Not IsNothing(Map.refProjectVM.BTLStructure) Then Map.refProjectVM.BTLStructure.ShowSolid()
|
|
End Set
|
|
End Property
|
|
Friend Sub SetShowSolid(bValue As Boolean)
|
|
m_bShowSolid = bValue
|
|
NotifyPropertyChanged("ShowSolid_IsChecked")
|
|
End Sub
|
|
|
|
Private m_bShowBuilding As Boolean
|
|
Public Property ShowBuilding_IsChecked As Boolean
|
|
Get
|
|
Return m_bShowBuilding
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_bShowBuilding = value
|
|
If Not IsNothing(Map.refProjectVM.BTLStructure) Then Map.refProjectVM.BTLStructure.ShowBuilding()
|
|
End Set
|
|
End Property
|
|
Friend Sub SetShowBuilding(bValue As Boolean)
|
|
m_bShowBuilding = bValue
|
|
NotifyPropertyChanged("ShowBuilding_IsChecked")
|
|
End Sub
|
|
|
|
Private m_ShowSolid_IsEnabled As Boolean
|
|
Public Property ShowSolid_IsEnabled As Boolean
|
|
Get
|
|
Return m_ShowSolid_IsEnabled
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_ShowSolid_IsEnabled = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_ShowBuilding_IsEnabled As Boolean
|
|
Public Property ShowBuilding_IsEnabled As Boolean
|
|
Get
|
|
Return m_ShowBuilding_IsEnabled
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_ShowBuilding_IsEnabled = value
|
|
End Set
|
|
End Property
|
|
|
|
' Definizione comandi
|
|
Private m_cmdShowAll As ICommand
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
'Creo riferimento a questa classe in EgtBeamWALL
|
|
Map.SetRefShowBeamPanelVM(Me)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "ShowAll"
|
|
|
|
Public ReadOnly Property ShowAll_Command As ICommand
|
|
Get
|
|
If m_cmdShowAll Is Nothing Then
|
|
m_cmdShowAll = New Command(AddressOf ShowAll)
|
|
End If
|
|
Return m_cmdShowAll
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub ShowAll()
|
|
If Not IsNothing(Map.refProjectVM.BTLStructure) Then
|
|
Map.refProjectVM.BTLStructure.ShowAll()
|
|
End If
|
|
End Sub
|
|
|
|
#End Region ' ShowAll
|
|
|
|
#End Region ' COMMANDS
|
|
|
|
End Class |