diff --git a/AboutBoxWindow/AboutBoxView.xaml b/AboutBoxWindow/AboutBoxView.xaml
new file mode 100644
index 0000000..537943b
--- /dev/null
+++ b/AboutBoxWindow/AboutBoxView.xaml
@@ -0,0 +1,58 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/AboutBoxWindow/AboutBoxView.xaml.vb b/AboutBoxWindow/AboutBoxView.xaml.vb
new file mode 100644
index 0000000..8d4c4d5
--- /dev/null
+++ b/AboutBoxWindow/AboutBoxView.xaml.vb
@@ -0,0 +1,47 @@
+Imports EgtUILib
+
+Public Class AboutBoxView
+
+ ' Riferimento alla MainWindow
+ Private m_MainWindow As Window = Application.Current.MainWindow
+
+ Sub New()
+
+ ' This call is required by the designer.
+ InitializeComponent()
+
+ ' Add any initialization after the InitializeComponent() call.
+ Application.Msn.Register(Application.CLOSEAPPLICATION, Sub()
+ Me.Close()
+ End Sub)
+ End Sub
+
+ Private Sub AboutBoxView_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+ Me.Owner = Application.Current.MainWindow
+ Me.Owner = Owner
+ Me.Top = Owner.Top + (Owner.Height / 2 - Me.Height / 2)
+ Me.Left = Owner.Left + (Owner.Width / 2 - Me.Width / 2)
+
+ End Sub
+
+ Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click
+ Me.Visibility = Visibility.Hidden
+ End Sub
+
+ Private Sub AboutBoxWD_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
+ DescriptionLbl.Text = My.Application.Info.Description.ToString()
+ VersionLbl.Text = "Version : " & My.Application.Info.Version.Major.ToString() &
+ "." & My.Application.Info.Version.Minor.ToString() &
+ (ChrW(97 - 1 + My.Application.Info.Version.Build)).ToString() &
+ My.Application.Info.Version.Revision.ToString()
+ Dim sKey As String = String.Empty
+ EgtGetKeyInfo(sKey)
+ Dim sOpts As String = IniFile.m_nKeyOptions.ToString()
+ KeyLbl.Text = sKey & " - " & sOpts
+ CopyrightLbl.Text = My.Application.Info.Copyright.ToString()
+ 'MachineLbl.Text = "Machine : " & m_MainWindow.m_CurrentMachine.sMachineName
+ 'ProjectLbl.Text = "Project : " & m_MainWindow.m_CurrentProjectPageUC.GetCurrentProjectName()
+ ExitBtn.Content = EgtMsg(MSG_MISSINGKEYWD + 4) 'Ok
+ End Sub
+
+End Class
diff --git a/AboutBoxWindow/AboutBoxViewModel.vb b/AboutBoxWindow/AboutBoxViewModel.vb
new file mode 100644
index 0000000..f3dd8a7
--- /dev/null
+++ b/AboutBoxWindow/AboutBoxViewModel.vb
@@ -0,0 +1,56 @@
+Namespace EgtCAM5
+
+ Public Class AboutBoxViewModel
+ Inherits ViewModelBase
+
+ Private m_AboutBoxVisibility As Visibility
+ Public Property AboutBoxVisibility As Visibility
+ Get
+ Return m_AboutBoxVisibility
+ End Get
+ Set(value As Visibility)
+ If value <> m_AboutBoxVisibility Then
+ m_AboutBoxVisibility = value
+ OnPropertyChanged("AboutBoxVisibility")
+ End If
+ End Set
+ End Property
+ ' Definizione comandi
+ Private m_cmdClose As ICommand
+
+#Region "COMMANDS"
+
+#Region "CloseCommand"
+
+ '''
+ ''' Returns a command that do Point.
+ '''
+ Public ReadOnly Property CloseCommand As ICommand
+ Get
+ If m_cmdClose Is Nothing Then
+ m_cmdClose = New RelayCommand(AddressOf Close, AddressOf CanClose)
+ End If
+ Return m_cmdClose
+ End Get
+ End Property
+
+ '''
+ ''' Execute the Point. This method is invoked by the PointCommand.
+ '''
+ Public Sub Close(ByVal param As Object)
+ AboutBoxVisibility = Visibility.Hidden
+ End Sub
+
+ '''
+ ''' Returns always true.
+ '''
+ Private Function CanClose(ByVal param As Object) As Boolean
+ Return True
+ End Function
+
+#End Region ' CloseCommand
+
+#End Region ' Commands
+ End Class
+
+End Namespace
\ No newline at end of file
diff --git a/Application.xaml.vb b/Application.xaml.vb
index 20f1143..9ae5e84 100644
--- a/Application.xaml.vb
+++ b/Application.xaml.vb
@@ -1,4 +1,5 @@
-Imports EgtCAM5.EgtCAM5
+Imports EgtWPFLib5
+Imports EgtCAM5.EgtCAM5
Class Application
diff --git a/Constants/ConstMsg.vb b/Constants/ConstMsg.vb
index 13ed22a..5cd6d0e 100644
--- a/Constants/ConstMsg.vb
+++ b/Constants/ConstMsg.vb
@@ -11,7 +11,7 @@
Public Const MSG_TOOLSERRORS As Integer = MSG_EGTCAM5 + 1085
Public Const MSG_MACHININGSDBPAGE As Integer = MSG_EGTCAM5 + 1100
Public Const MSG_MACHININGSERRORS As Integer = MSG_EGTCAM5 + 1220
- 'Public Const MSG_MANUALAXESMOVEPAGEUC As Integer = MSG_OMAGCUT + 220
+ Public Const MSG_MISSINGKEYWD As Integer = 10100
'Public Const MSG_CADCUTPAGEUC As Integer = MSG_OMAGCUT + 300
'Public Const MSG_NESTPAGEUC As Integer = MSG_OMAGCUT + 330
'Public Const MSG_SPLITPAGEUC As Integer = MSG_OMAGCUT + 340
diff --git a/EgtCAM5.vbproj b/EgtCAM5.vbproj
index 50d8fed..2beebc5 100644
--- a/EgtCAM5.vbproj
+++ b/EgtCAM5.vbproj
@@ -106,6 +106,9 @@
MSBuild:Compile
Designer
+
+ AboutBoxView.xaml
+
BaseWindowView.xaml
@@ -147,28 +150,28 @@
InputExpanderView.xaml
-
+
MachiningTreeExpanderView.xaml
-
+
ManageLayerExpanderView.xaml
-
+
OperationExpanderView.xaml
-
-
-
+
+
+
OperationPropertyExpanderView.xaml
-
-
+
+
SimulationExpanderView.xaml
-
+
ProjectView.xaml
@@ -189,6 +192,10 @@
+
+ Designer
+ MSBuild:Compile
+
MSBuild:Compile
Designer
@@ -233,7 +240,7 @@
Designer
MSBuild:Compile
-
+
Designer
MSBuild:Compile
@@ -241,15 +248,15 @@
Designer
MSBuild:Compile
-
+
Designer
MSBuild:Compile
-
+
Designer
MSBuild:Compile
-
+
Designer
MSBuild:Compile
@@ -440,6 +447,12 @@
+
+
+
+
+
+
IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\EgtCAM5\EgtCAM5R32.exe
diff --git a/IniFile.vb b/IniFile.vb
index 5e51608..5b99a6a 100644
--- a/IniFile.vb
+++ b/IniFile.vb
@@ -5,6 +5,7 @@ Module IniFile
' MainWindow Page
Friend m_nInstance As Integer = 0
Friend m_nUserLevel As Integer = 1
+ Friend m_nKeyOptions As UInteger
Public ReadOnly Property nUserLevel As Integer
Get
Return m_nUserLevel
diff --git a/MainWindow/MainWindow.xaml b/MainWindow/MainWindow.xaml
index 16bfa5b..07888ad 100644
--- a/MainWindow/MainWindow.xaml
+++ b/MainWindow/MainWindow.xaml
@@ -1,10 +1,11 @@
-
+ Title="MainWindow" Height="768" Width="1366" Icon="/Resources/EgtCAM5.ico"
+ WindowStyle="None" AboutBox="{Binding AboutBox}">
@@ -43,4 +44,4 @@
-
+
diff --git a/MainWindow/MainWindowViewModel.vb b/MainWindow/MainWindowViewModel.vb
index ae5273e..2cc1f0d 100644
--- a/MainWindow/MainWindowViewModel.vb
+++ b/MainWindow/MainWindowViewModel.vb
@@ -21,7 +21,7 @@ Namespace EgtCAM5
Private m_sIniFile As String = String.Empty
Private m_nDebug As Integer = 0
' Opzioni abilitate dalla licenza attiva associata alla chiave
- Private m_nKeyOptions As UInteger
+ 'Private m_nKeyOptions As UInteger
Friend Enum KEY_OPT As UInteger
BASE = 1
End Enum
@@ -32,6 +32,14 @@ Namespace EgtCAM5
' GRAPHICAL FIELDS
' Event commands
' MainWindow ContentRendered Event
+
+ Private m_AboutBox As Window
+ Public ReadOnly Property AboutBox As Window
+ Get
+ Return New AboutBoxView
+ End Get
+ End Property
+
Private m_cmdMainWindow_ContentRendered As ICommand
' MainWindow Activated Event
Private m_cmdMainWindow_Activated As ICommand
@@ -124,6 +132,7 @@ Namespace EgtCAM5
#Region "CONSTRUCTOR"
Sub New()
+ 'Application.Current.MainWindow.Icon = New System.Windows.Media.Imaging.BitmapImage(New Uri("/Resources/EgtCAM5.ico", UriKind.Relative))
RegisterMyMessages()
' INITIALIZE EGALTECH ENVIRONMENT
InitializeEgtEnvironment()
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/InfoExpander/InfoExpanderView.xaml b/ProjectPage/OptionPanel/DrawOptionPanel/InfoExpander/InfoExpanderView.xaml
index 570287b..e9f1d3e 100644
--- a/ProjectPage/OptionPanel/DrawOptionPanel/InfoExpander/InfoExpanderView.xaml
+++ b/ProjectPage/OptionPanel/DrawOptionPanel/InfoExpander/InfoExpanderView.xaml
@@ -5,7 +5,7 @@
-
+
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderView.xaml b/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderView.xaml
index 76383a5..9509667 100644
--- a/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderView.xaml
+++ b/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderView.xaml
@@ -24,6 +24,9 @@
+
+
+
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderViewModel.vb b/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderViewModel.vb
index 2e12a4b..0348031 100644
--- a/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderViewModel.vb
+++ b/ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderViewModel.vb
@@ -37,6 +37,7 @@ Namespace EgtCAM5
Private m_cmdNewLayer As ICommand
Private m_cmdLayerColor As ICommand
Private m_cmdTreeViewDoubleClick As ICommand
+ Private m_cmdTreeViewMouseRightButton As ICommand
' Lista dei layer
Private m_LayerList As New ObservableCollection(Of LayerTreeViewItem)
@@ -209,6 +210,39 @@ Namespace EgtCAM5
#End Region ' TreeViewDoubleClickCommand
+#Region "TreeViewMouseRightButtonCommand"
+
+ '''
+ ''' Returns a command that do Point.
+ '''
+ Public ReadOnly Property TreeViewMouseRightButtonCommand As ICommand
+ Get
+ If m_cmdTreeViewMouseRightButton Is Nothing Then
+ m_cmdTreeViewMouseRightButton = New RelayCommand(AddressOf TreeViewMouseRightButton, AddressOf CanTreeViewMouseRightButton)
+ End If
+ Return m_cmdTreeViewMouseRightButton
+ End Get
+ End Property
+
+ '''
+ ''' Execute the Point. This method is invoked by the PointCommand.
+ '''
+ Public Sub TreeViewMouseRightButton(ByVal param As Object)
+ If m_nObjTreeOldId <> GDB_ID.NULL Then
+ Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, m_nObjTreeOldId)
+ Application.Msn.NotifyColleagues(Application.EXECUTECOMMAND, Controller.CMD.SETCURRPARTLAYER)
+ End If
+ End Sub
+
+ '''
+ ''' Returns always true.
+ '''
+ Private Function CanTreeViewMouseRightButton(ByVal param As Object) As Boolean
+ Return True
+ End Function
+
+#End Region ' TreeViewMouseRightButtonCommand
+
#End Region ' Commands
#Region "METHODS"
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderView.xaml b/ProjectPage/OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderView.xaml
similarity index 100%
rename from ProjectPage/OptionPanel/DrawOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderView.xaml
rename to ProjectPage/OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderView.xaml
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderView.xaml.vb b/ProjectPage/OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderView.xaml.vb
similarity index 100%
rename from ProjectPage/OptionPanel/DrawOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderView.xaml.vb
rename to ProjectPage/OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderView.xaml.vb
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderViewModel.vb b/ProjectPage/OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderViewModel.vb
similarity index 100%
rename from ProjectPage/OptionPanel/DrawOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderViewModel.vb
rename to ProjectPage/OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderViewModel.vb
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/OperationExpander/OperationExpanderView.xaml b/ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderView.xaml
similarity index 100%
rename from ProjectPage/OptionPanel/DrawOptionPanel/OperationExpander/OperationExpanderView.xaml
rename to ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderView.xaml
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/OperationExpander/OperationExpanderView.xaml.vb b/ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderView.xaml.vb
similarity index 100%
rename from ProjectPage/OptionPanel/DrawOptionPanel/OperationExpander/OperationExpanderView.xaml.vb
rename to ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderView.xaml.vb
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/OperationExpander/OperationExpanderViewModel.vb b/ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderViewModel.vb
similarity index 100%
rename from ProjectPage/OptionPanel/DrawOptionPanel/OperationExpander/OperationExpanderViewModel.vb
rename to ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderViewModel.vb
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/OperationExpander/OperationListBox.vb b/ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationListBox.vb
similarity index 100%
rename from ProjectPage/OptionPanel/DrawOptionPanel/OperationExpander/OperationListBox.vb
rename to ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationListBox.vb
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/OperationPropertyExpander/OperationPropertyExpanderView.xaml b/ProjectPage/OptionPanel/MachiningOptionPanel/OperationPropertyExpander/OperationPropertyExpanderView.xaml
similarity index 100%
rename from ProjectPage/OptionPanel/DrawOptionPanel/OperationPropertyExpander/OperationPropertyExpanderView.xaml
rename to ProjectPage/OptionPanel/MachiningOptionPanel/OperationPropertyExpander/OperationPropertyExpanderView.xaml
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/OperationPropertyExpander/OperationPropertyExpanderView.xaml.vb b/ProjectPage/OptionPanel/MachiningOptionPanel/OperationPropertyExpander/OperationPropertyExpanderView.xaml.vb
similarity index 100%
rename from ProjectPage/OptionPanel/DrawOptionPanel/OperationPropertyExpander/OperationPropertyExpanderView.xaml.vb
rename to ProjectPage/OptionPanel/MachiningOptionPanel/OperationPropertyExpander/OperationPropertyExpanderView.xaml.vb
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/OperationPropertyExpander/OperationPropertyExpanderViewModel.vb b/ProjectPage/OptionPanel/MachiningOptionPanel/OperationPropertyExpander/OperationPropertyExpanderViewModel.vb
similarity index 100%
rename from ProjectPage/OptionPanel/DrawOptionPanel/OperationPropertyExpander/OperationPropertyExpanderViewModel.vb
rename to ProjectPage/OptionPanel/MachiningOptionPanel/OperationPropertyExpander/OperationPropertyExpanderViewModel.vb
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/SimulationExpander/SimulationExpanderView.xaml b/ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderView.xaml
similarity index 100%
rename from ProjectPage/OptionPanel/DrawOptionPanel/SimulationExpander/SimulationExpanderView.xaml
rename to ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderView.xaml
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/SimulationExpander/SimulationExpanderView.xaml.vb b/ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderView.xaml.vb
similarity index 100%
rename from ProjectPage/OptionPanel/DrawOptionPanel/SimulationExpander/SimulationExpanderView.xaml.vb
rename to ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderView.xaml.vb
diff --git a/ProjectPage/OptionPanel/DrawOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb b/ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb
similarity index 100%
rename from ProjectPage/OptionPanel/DrawOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb
rename to ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb
diff --git a/Resources/AboutBoxImage.png b/Resources/AboutBoxImage.png
new file mode 100644
index 0000000..a11230b
Binary files /dev/null and b/Resources/AboutBoxImage.png differ
diff --git a/Resources/EgtCAM5.ico b/Resources/EgtCAM5.ico
new file mode 100644
index 0000000..f61aa51
Binary files /dev/null and b/Resources/EgtCAM5.ico differ