EgtCAM5 :

- Cambiati nomi classi e file.
2018-04-10 17:08:35 +00:00
parent 4e2801a1c4
commit a4b5cd4834
144 changed files with 517 additions and 521 deletions
@@ -0,0 +1,29 @@
+<UserControl x:Class="ViewPanelV"
+   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
+
+   <StackPanel Background="Transparent" Orientation="Horizontal">
+      <Button ToolTip="{Binding ZoomAllToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding ZoomAllCommand}">
+         <Image Source="/Resources/GridViewPanel/ZoomAll.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding LookFromTopToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding TopViewCommand}">
+         <Image Source="/Resources/GridViewPanel/LookFromTOP.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding LookFromFrontToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding FrontViewCommand}">
+         <Image Source="/Resources/GridViewPanel/LookFromFRONT.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding LookFromRightToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding RightViewCommand}">
+         <Image Source="/Resources/GridViewPanel/LookFromRIGHT.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding LookFromBackToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding BackViewCommand}">
+         <Image Source="/Resources/GridViewPanel/LookFromBACK.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding LookFromLeftToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding LeftViewCommand}">
+         <Image Source="/Resources/GridViewPanel/LookFromLEFT.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding LookFromIso_SWToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding IsoViewSWCommand}">
+         <Image Source="/Resources/GridViewPanel/LookFromISO_SW.png" Stretch="Uniform"/>
+      </Button>
+   </StackPanel>
+
+</UserControl>
@@ -0,0 +1,3 @@
+Public Class ViewPanelV
+
+End Class
@@ -0,0 +1,234 @@
+Imports EgtUILib
+
+Namespace EgtCAM5
+
+   Public Class ViewPanelVM
+      Inherits ViewModelBase
+
+#Region "FIELDS & PROPERTIES"
+
+      ' Definizione comandi
+      Private m_cmdZoomAll As ICommand
+      Private m_cmdTopView As ICommand
+      Private m_cmdFrontView As ICommand
+      Private m_cmdLeftView As ICommand
+      Private m_cmdBackView As ICommand
+      Private m_cmdRightView As ICommand
+      Private m_cmdIsoViewSW As ICommand
+
+#Region "ToolTip"
+
+      Public ReadOnly Property ZoomAllToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 4)
+         End Get
+      End Property
+
+      Public ReadOnly Property LookFromTopToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 7)
+         End Get
+      End Property
+
+      Public ReadOnly Property LookFromFrontToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 8)
+         End Get
+      End Property
+
+      Public ReadOnly Property LookFromLeftToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 9)
+         End Get
+      End Property
+
+      Public ReadOnly Property LookFromBackToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 10)
+         End Get
+      End Property
+
+      Public ReadOnly Property LookFromRightToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 11)
+         End Get
+      End Property
+
+      Public ReadOnly Property LookFromIso_SWToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 12)
+         End Get
+      End Property
+
+#End Region    ' ToolTip
+
+#End Region    ' FIELDS & PROPERTIES
+
+#Region "COMMANDS"
+
+#Region "ZoomAllCommand"
+
+      ''' <summary>
+      ''' Returns a command that do ZoomAll.
+      ''' </summary>
+      Public ReadOnly Property ZoomAllCommand As ICommand
+         Get
+            If m_cmdZoomAll Is Nothing Then
+               m_cmdZoomAll = New RelayCommand(AddressOf ZoomAll)
+            End If
+            Return m_cmdZoomAll
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the ZoomAll.  This method is invoked by the ZoomAllCommand.
+      ''' </summary>
+      Public Sub ZoomAll(ByVal param As Object)
+         Map.refProjectVM.GetScene.ZoomAll()
+      End Sub
+
+#End Region ' ZoomAllCommand
+
+#Region "TopViewCommand"
+
+      ''' <summary>
+      ''' Returns a command that do TopView.
+      ''' </summary>
+      Public ReadOnly Property TopViewCommand As ICommand
+         Get
+            If m_cmdTopView Is Nothing Then
+               m_cmdTopView = New RelayCommand(AddressOf TopView)
+            End If
+            Return m_cmdTopView
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the TopView.  This method is invoked by the TopViewCommand.
+      ''' </summary>
+      Public Sub TopView(ByVal param As Object)
+         Map.refProjectVM.GetScene.TopView()
+      End Sub
+
+#End Region ' TopViewCommand
+
+#Region "FrontViewCommand"
+
+      ''' <summary>
+      ''' Returns a command that do FrontView.
+      ''' </summary>
+      Public ReadOnly Property FrontViewCommand As ICommand
+         Get
+            If m_cmdFrontView Is Nothing Then
+               m_cmdFrontView = New RelayCommand(AddressOf FrontView)
+            End If
+            Return m_cmdFrontView
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the FrontView.  This method is invoked by the FrontViewCommand.
+      ''' </summary>
+      Public Sub FrontView(ByVal param As Object)
+         Map.refProjectVM.GetScene.FrontView()
+      End Sub
+
+#End Region ' FrontViewCommand
+
+#Region "LeftViewCommand"
+
+      ''' <summary>
+      ''' Returns a command that do LeftView.
+      ''' </summary>
+      Public ReadOnly Property LeftViewCommand As ICommand
+         Get
+            If m_cmdLeftView Is Nothing Then
+               m_cmdLeftView = New RelayCommand(AddressOf LeftView)
+            End If
+            Return m_cmdLeftView
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the LeftView.  This method is invoked by the LeftViewCommand.
+      ''' </summary>
+      Public Sub LeftView(ByVal param As Object)
+         Map.refProjectVM.GetScene.LeftView()
+      End Sub
+
+#End Region ' LeftViewCommand
+
+#Region "BackViewCommand"
+
+      ''' <summary>
+      ''' Returns a command that do BackView.
+      ''' </summary>
+      Public ReadOnly Property BackViewCommand As ICommand
+         Get
+            If m_cmdBackView Is Nothing Then
+               m_cmdBackView = New RelayCommand(AddressOf BackView)
+            End If
+            Return m_cmdBackView
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the BackView.  This method is invoked by the BackViewCommand.
+      ''' </summary>
+      Public Sub BackView(ByVal param As Object)
+         Map.refProjectVM.GetScene.BackView()
+      End Sub
+
+#End Region ' BackViewCommand
+
+#Region "RightViewCommand"
+
+      ''' <summary>
+      ''' Returns a command that do RightView.
+      ''' </summary>
+      Public ReadOnly Property RightViewCommand As ICommand
+         Get
+            If m_cmdRightView Is Nothing Then
+               m_cmdRightView = New RelayCommand(AddressOf RightView)
+            End If
+            Return m_cmdRightView
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the RightView.  This method is invoked by the RightViewCommand.
+      ''' </summary>
+      Public Sub RightView(ByVal param As Object)
+         Map.refProjectVM.GetScene.RightView()
+      End Sub
+
+#End Region ' RightViewCommand
+
+#Region "IsoViewSWCommand"
+
+      ''' <summary>
+      ''' Returns a command that do IsoViewSW.
+      ''' </summary>
+      Public ReadOnly Property IsoViewSWCommand As ICommand
+         Get
+            If m_cmdIsoViewSW Is Nothing Then
+               m_cmdIsoViewSW = New RelayCommand(AddressOf IsoViewSW)
+            End If
+            Return m_cmdIsoViewSW
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the IsoViewSW.  This method is invoked by the IsoViewSWCommand.
+      ''' </summary>
+      Public Sub IsoViewSW(ByVal param As Object)
+         Map.refProjectVM.GetScene.IsoViewSW()
+      End Sub
+
+#End Region ' IsoViewSWCommand
+
+#End Region    ' COMMANDS
+
+   End Class
+
+End Namespace