From bee06b19990423339c156105308af5f554d2a0fd Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Fri, 1 Dec 2023 16:53:08 +0100 Subject: [PATCH 1/3] EgtCAM5 2.5l1 : - ricompilazione con cambio versione. --- MainWindow/MainWindowVM.vb | 4 ++-- My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/MainWindow/MainWindowVM.vb b/MainWindow/MainWindowVM.vb index e03c675..fc3bd46 100644 --- a/MainWindow/MainWindowVM.vb +++ b/MainWindow/MainWindowVM.vb @@ -388,8 +388,8 @@ Public Class MainWindowVM EgtSetLockId( sLockId) End If ' Recupero livello e opzioni della chiave - Dim bKey As Boolean = EgtGetKeyLevel(3279, 2511, 1, IniFile.m_nKeyLevel) And - EgtGetKeyOptions(3279, 2511, 1, IniFile.m_nKeyOptions) + Dim bKey As Boolean = EgtGetKeyLevel(3279, 2512, 1, IniFile.m_nKeyLevel) And + EgtGetKeyOptions(3279, 2512, 1, IniFile.m_nKeyOptions) ' Leggo e imposto livello utilizzatore IniFile.m_nUserLevel = Math.Min(IniFile.m_nKeyLevel, GetPrivateProfileInt(S_GENERAL, K_USERLEVEL, 1)) ' Imposto abilitazione lavorazioni avanzate diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 57d32e0..7feb464 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -70,6 +70,6 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + + From 7dc34348ed19ad2f3609908ce0dd9b9df006392f Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Mon, 18 Dec 2023 10:33:10 +0100 Subject: [PATCH 2/3] =?UTF-8?q?EgtCAM5=202.5l2=20:=20-=20all'uscita=20dal?= =?UTF-8?q?=20DB=20lavorazioni=20se=20in=20modalit=C3=A0=20lavora=20si=20a?= =?UTF-8?q?ggiorna=20subito=20la=20lista=20delle=20lavorazioni=20inseribil?= =?UTF-8?q?i.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- MachinePanel/MyMachinePanelVM.vb | 1 + My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/MachinePanel/MyMachinePanelVM.vb b/MachinePanel/MyMachinePanelVM.vb index 068edf3..2d7bc16 100644 --- a/MachinePanel/MyMachinePanelVM.vb +++ b/MachinePanel/MyMachinePanelVM.vb @@ -283,6 +283,7 @@ Public Class MyMachinePanelVM MachDbWindowV.Width = 1024 MachDbWindowV.Owner = Application.Current.MainWindow MachDbWindowV.ShowDialog() + If Not IsNothing(Map.refMachiningTreeExpanderVM) Then Map.refMachiningTreeExpanderVM.UpdateOperationMachiningList() End If End Sub diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 7feb464..cf23d9d 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -70,6 +70,6 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + + From 3154944f94532778ae865c8d6fa89081f3d928c9 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Fri, 29 Dec 2023 13:22:26 +0100 Subject: [PATCH 3/3] EgtCAM5 2.5l3 : - aggiunta vista da sotto e riordinati bottoni per comandi vista in toolbar - riordinati bottoni per comandi griglia in toolbar. --- GridPanel/GridPanelV.xaml | 10 +++++----- My Project/AssemblyInfo.vb | 4 ++-- ViewPanel/ViewPanelV.xaml | 9 ++++++--- ViewPanel/ViewPanelVM.vb | 29 +++++++++++++++++++++++++++++ 4 files changed, 42 insertions(+), 10 deletions(-) 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" '''