diff --git a/GridPanel/GridPanelV.xaml b/GridPanel/GridPanelV.xaml index a6aa234..7fb3e1e 100644 --- a/GridPanel/GridPanelV.xaml +++ b/GridPanel/GridPanelV.xaml @@ -6,20 +6,20 @@ + - - + - + diff --git a/ViewPanel/ViewPanelVM.vb b/ViewPanel/ViewPanelVM.vb index 8ff91a6..d7965ed 100644 --- a/ViewPanel/ViewPanelVM.vb +++ b/ViewPanel/ViewPanelVM.vb @@ -8,6 +8,7 @@ Public Class ViewPanelVM ' Definizione comandi Private m_cmdZoomAll As ICommand Private m_cmdTopView As ICommand + Private m_cmdBottomView As ICommand Private m_cmdFrontView As ICommand Private m_cmdLeftView As ICommand Private m_cmdBackView As ICommand @@ -27,6 +28,11 @@ Public Class ViewPanelVM Return EgtMsg(MSG_GRIDVIEWPANEL + 7) End Get End Property + Public ReadOnly Property LookFromBottomToolTip As String + Get + Return EgtMsg(5284) + End Get + End Property Public ReadOnly Property LookFromFrontToolTip As String Get @@ -110,6 +116,29 @@ Public Class ViewPanelVM #End Region ' TopViewCommand +#Region "BottomViewCommand" + + ''' + ''' Returns a command that do TopView. + ''' + Public ReadOnly Property BottomViewCommand As ICommand + Get + If m_cmdBottomView Is Nothing Then + m_cmdBottomView = New RelayCommand(AddressOf BottomView) + End If + Return m_cmdBottomView + End Get + End Property + + ''' + ''' Execute the BottomView. This method is invoked by the BottomViewCommand. + ''' + Public Sub BottomView(ByVal param As Object) + Map.refProjectVM.GetScene.BottomView() + End Sub + +#End Region ' BottomViewCommand + #Region "FrontViewCommand" '''