Emmanuele Sassi
152 lines
4.0 KiB
VB.net
152 lines
4.0 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(NameOf(ShowSolid_IsEnabled))
|
|
NotifyPropertyChanged(NameOf(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.BTLStructureVM) Then Map.refProjectVM.BTLStructureVM.ShowSolid()
|
|
End Set
|
|
End Property
|
|
Friend Sub SetShowSolid(bValue As Boolean)
|
|
If m_bShowSolid = bValue Then Return
|
|
ShowSolid_IsChecked = bValue
|
|
NotifyPropertyChanged(NameOf(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.BTLStructureVM) Then Map.refProjectVM.BTLStructureVM.ShowBuilding()
|
|
End Set
|
|
End Property
|
|
Friend Sub SetShowBuilding(bValue As Boolean)
|
|
m_bShowBuilding = bValue
|
|
NotifyPropertyChanged(NameOf(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 IsNothing(Map.refProjectVM.BTLStructureVM) Then Return
|
|
' se necessario tolgo solido dal precedentemente selezionato
|
|
If Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) AndAlso m_bShowSolid Then
|
|
Map.refShowBeamPanelVM.SetShowSolid(False)
|
|
End If
|
|
' nascondo barra del pezzo
|
|
Map.refProjectVM.SetPartManager_Visibility(False)
|
|
Map.refProjectVM.NotifyPropertyChanged(NameOf(Map.refProjectVM.PartManager_Visibility))
|
|
' mosto in parte bassa dati BTL
|
|
Map.refBottomPanelVM.SetSelPartFeatureTab(BottomPanelVM.PartFeatureTab.STRUCTURE_)
|
|
' mostro tutti i pezzi
|
|
Map.refProjectVM.BTLStructureVM.ShowAll()
|
|
End Sub
|
|
|
|
#End Region ' ShowAll
|
|
|
|
#End Region ' COMMANDS
|
|
|
|
End Class |