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,32 @@
+<UserControl x:Class="GridPanelV"
+   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
+
+   <StackPanel Background="Transparent" Orientation="Horizontal">
+      <Button Command="{Binding CPlaneTopCommand}" ToolTip="{Binding CPlaneTopToolTip}" Style="{StaticResource GridViewPanelButton}">
+         <Image Source="/Resources/GridViewPanel/CplaneTOP.png" Stretch="Uniform"/>
+      </Button>
+      <Button Command="{Binding CPlaneFrontCommand}" ToolTip="{Binding CPlaneFrontToolTip}" Style="{StaticResource GridViewPanelButton}">
+         <Image Source="/Resources/GridViewPanel/CplaneFRONT.png" Stretch="Uniform"/>
+      </Button>
+      <Button Command="{Binding CPlaneRightCommand}" ToolTip="{Binding CPlaneRightToolTip}" Style="{StaticResource GridViewPanelButton}">
+         <Image Source="/Resources/GridViewPanel/CplaneRIGHT.png" Stretch="Uniform"/>
+      </Button>
+      <Button Command="{Binding CPlaneBackCommand}" ToolTip="{Binding CPlaneBackToolTip}" Style="{StaticResource GridViewPanelButton}">
+         <Image Source="/Resources/GridViewPanel/CplaneBACK.png" Stretch="Uniform"/>
+      </Button>
+      <Button Command="{Binding CPlaneLeftCommand}" ToolTip="{Binding CPlaneLeftToolTip}" Style="{StaticResource GridViewPanelButton}">
+         <Image Source="/Resources/GridViewPanel/CplaneLEFT.png" Stretch="Uniform"/>
+      </Button>
+      <Button Command="{Binding CPlaneBottomCommand}" ToolTip="{Binding CPlaneBottomToolTip}" Style="{StaticResource GridViewPanelButton}">
+         <Image Source="/Resources/GridViewPanel/CplaneBOTTOM.png" Stretch="Uniform"/>
+      </Button>
+      <Button Command="{Binding CPlaneElevationCommand}" ToolTip="{Binding CPlaneElevationToolTip}" Style="{StaticResource GridViewPanelButton}">
+         <Image Source="/Resources/GridViewPanel/CplaneELEVATION.png" Stretch="Uniform"/>
+      </Button>
+      <Button Command="{Binding CPlaneOriginCommand}" ToolTip="{Binding CPlaneOriginToolTip}" Style="{StaticResource GridViewPanelButton}">
+         <Image Source="/Resources/GridViewPanel/CplaneORIGIN.png" Stretch="Uniform"/>
+      </Button>
+   </StackPanel>
+
+</UserControl>
@@ -0,0 +1,3 @@
+Public Class GridPanelV
+
+End Class
@@ -0,0 +1,268 @@
+Imports EgtUILib
+
+Namespace EgtCAM5
+
+   Public Class GridPanelVM
+      Inherits ViewModelBase
+
+#Region "FIELDS & PROPERTIES"
+
+      ' Definizione comandi
+      Private m_cmdCPlaneTop As ICommand
+      Private m_cmdCPlaneFront As ICommand
+      Private m_cmdCPlaneRight As ICommand
+      Private m_cmdCPlaneBack As ICommand
+      Private m_cmdCPlaneLeft As ICommand
+      Private m_cmdCPlaneBottom As ICommand
+      Private m_cmdCPlaneView As ICommand
+      Private m_cmdCPlaneElevation As ICommand
+      Private m_cmdCPlaneOrigin As ICommand
+      Private m_cmdCPlaneRotate As ICommand
+      Private m_cmdCPlane3P As ICommand
+      Private m_cmdCPlanePerpObj As ICommand
+      Private m_cmdCPlaneObj As ICommand
+
+#Region "ToolTip"
+
+      Public ReadOnly Property CPlaneTopToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 19)
+         End Get
+      End Property
+      Public ReadOnly Property CPlaneFrontToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 20)
+         End Get
+      End Property
+      Public ReadOnly Property CPlaneRightToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 21)
+         End Get
+      End Property
+      Public ReadOnly Property CPlaneBackToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 22)
+         End Get
+      End Property
+      Public ReadOnly Property CPlaneLeftToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 23)
+         End Get
+      End Property
+      Public ReadOnly Property CPlaneBottomToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 24)
+         End Get
+      End Property
+      Public ReadOnly Property CPlaneElevationToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 26)
+         End Get
+      End Property
+      Public ReadOnly Property CPlaneOriginToolTip As String
+         Get
+            Return EgtMsg(MSG_GRIDVIEWPANEL + 27)
+         End Get
+      End Property
+
+#End Region    ' Tooltip
+
+#End Region
+
+#Region "COMMANDS"
+
+#Region "CPlaneTopCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneTop.
+      ''' </summary>
+      Public ReadOnly Property CPlaneTopCommand As ICommand
+         Get
+            If m_cmdCPlaneTop Is Nothing Then
+               m_cmdCPlaneTop = New RelayCommand(AddressOf CPlaneTop)
+            End If
+            Return m_cmdCPlaneTop
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneTop.  This method is invoked by the CPlaneTopCommand.
+      ''' </summary>
+      Public Sub CPlaneTop(ByVal param As Object)
+         Map.refProjectVM.GetController.SetLastInteger(Controller.GRID_TYPE.TOP)
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.GRID)
+      End Sub
+
+#End Region ' CPlaneTopCommand
+
+#Region "CPlaneFrontCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneFront.
+      ''' </summary>
+      Public ReadOnly Property CPlaneFrontCommand As ICommand
+         Get
+            If m_cmdCPlaneFront Is Nothing Then
+               m_cmdCPlaneFront = New RelayCommand(AddressOf CPlaneFront)
+            End If
+            Return m_cmdCPlaneFront
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneFront.  This method is invoked by the CPlaneFrontCommand.
+      ''' </summary>
+      Public Sub CPlaneFront(ByVal param As Object)
+         Map.refProjectVM.GetController.SetLastInteger(Controller.GRID_TYPE.FRONT)
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.GRID)
+      End Sub
+
+#End Region ' CPlaneFrontCommand
+
+#Region "CPlaneRightCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneRight.
+      ''' </summary>
+      Public ReadOnly Property CPlaneRightCommand As ICommand
+         Get
+            If m_cmdCPlaneRight Is Nothing Then
+               m_cmdCPlaneRight = New RelayCommand(AddressOf CPlaneRight)
+            End If
+            Return m_cmdCPlaneRight
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneRight.  This method is invoked by the CPlaneRightCommand.
+      ''' </summary>
+      Public Sub CPlaneRight(ByVal param As Object)
+         Map.refProjectVM.GetController.SetLastInteger(Controller.GRID_TYPE.RIGHT)
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.GRID)
+      End Sub
+
+#End Region ' CPlaneRightCommand
+
+#Region "CPlaneBackCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneBack.
+      ''' </summary>
+      Public ReadOnly Property CPlaneBackCommand As ICommand
+         Get
+            If m_cmdCPlaneBack Is Nothing Then
+               m_cmdCPlaneBack = New RelayCommand(AddressOf CPlaneBack)
+            End If
+            Return m_cmdCPlaneBack
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneBack.  This method is invoked by the CPlaneBackCommand.
+      ''' </summary>
+      Public Sub CPlaneBack(ByVal param As Object)
+         Map.refProjectVM.GetController.SetLastInteger(Controller.GRID_TYPE.BACK)
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.GRID)
+      End Sub
+
+#End Region ' CPlaneBackCommand
+
+#Region "CPlaneLeftCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneLeft.
+      ''' </summary>
+      Public ReadOnly Property CPlaneLeftCommand As ICommand
+         Get
+            If m_cmdCPlaneLeft Is Nothing Then
+               m_cmdCPlaneLeft = New RelayCommand(AddressOf CPlaneLeft)
+            End If
+            Return m_cmdCPlaneLeft
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneLeft.  This method is invoked by the CPlaneLeftCommand.
+      ''' </summary>
+      Public Sub CPlaneLeft(ByVal param As Object)
+         Map.refProjectVM.GetController.SetLastInteger(Controller.GRID_TYPE.LEFT)
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.GRID)
+      End Sub
+
+#End Region ' CPlaneLeftCommand
+
+#Region "CPlaneBottomCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneBottom.
+      ''' </summary>
+      Public ReadOnly Property CPlaneBottomCommand As ICommand
+         Get
+            If m_cmdCPlaneBottom Is Nothing Then
+               m_cmdCPlaneBottom = New RelayCommand(AddressOf CPlaneBottom)
+            End If
+            Return m_cmdCPlaneBottom
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneBottom.  This method is invoked by the CPlaneBottomCommand.
+      ''' </summary>
+      Public Sub CPlaneBottom(ByVal param As Object)
+         Map.refProjectVM.GetController.SetLastInteger(Controller.GRID_TYPE.BOTTOM)
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.GRID)
+      End Sub
+
+#End Region ' CPlaneBottomCommand
+
+#Region "CPlaneElevationCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneElevation.
+      ''' </summary>
+      Public ReadOnly Property CPlaneElevationCommand As ICommand
+         Get
+            If m_cmdCPlaneElevation Is Nothing Then
+               m_cmdCPlaneElevation = New RelayCommand(AddressOf CPlaneElevation)
+            End If
+            Return m_cmdCPlaneElevation
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneElevation.  This method is invoked by the CPlaneElevationCommand.
+      ''' </summary>
+      Public Sub CPlaneElevation(ByVal param As Object)
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.GRID_ELEVATION)
+      End Sub
+
+#End Region ' CPlaneElevationCommand
+
+#Region "CPlaneOriginCommand"
+
+      ''' <summary>
+      ''' Returns a command that do CPlaneOrigin.
+      ''' </summary>
+      Public ReadOnly Property CPlaneOriginCommand As ICommand
+         Get
+            If m_cmdCPlaneOrigin Is Nothing Then
+               m_cmdCPlaneOrigin = New RelayCommand(AddressOf CPlaneOrigin)
+            End If
+            Return m_cmdCPlaneOrigin
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the CPlaneOrigin.  This method is invoked by the CPlaneOriginCommand.
+      ''' </summary>
+      Public Sub CPlaneOrigin(ByVal param As Object)
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.GRID_ORIGIN)
+      End Sub
+
+#End Region ' CPlaneOriginCommand
+
+#End Region    ' COMMANDS
+
+   End Class
+
+End Namespace