diff --git a/ProjectPage/OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderViewModel.vb b/ProjectPage/OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderViewModel.vb index 1d39999..5fe203e 100644 --- a/ProjectPage/OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderViewModel.vb +++ b/ProjectPage/OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderViewModel.vb @@ -77,7 +77,7 @@ Namespace EgtCAM5 Public ReadOnly Property TreeViewDoubleClickCommand As ICommand Get If m_cmdTreeViewDoubleClick Is Nothing Then - m_cmdTreeViewDoubleClick = New RelayCommand(AddressOf TreeViewDoubleClick, AddressOf CanTreeViewDoubleClick) + m_cmdTreeViewDoubleClick = New RelayCommand(AddressOf TreeViewDoubleClick) End If Return m_cmdTreeViewDoubleClick End Get @@ -109,20 +109,13 @@ Namespace EgtCAM5 'Aggiorno le lavorazioni successive a quella corrente che appartengono alla fase corrente EgtDraw() - ' Ricarico la lista operazioni per avere quella nuova - Application.Msn.NotifyColleagues(Application.LOADOPERATIONLIST, MachiningId) ' disabilito la modalità nuova lavorazione Application.Msn.NotifyColleagues(Application.NEWMACHININGMODEISACTIVE, False) + ' Ricarico la lista operazioni per avere quella nuova + Application.Msn.NotifyColleagues(Application.LOADOPERATIONLIST, MachiningId) End If End Sub - ''' - ''' Returns always true. - ''' - Private Function CanTreeViewDoubleClick(ByVal param As Object) As Boolean - Return True - End Function - Private Function MachiningTypeToString(Type As Integer) As String Select Case Type Case MCH_MY.DRILLING diff --git a/ProjectPage/ProjectViewModel.vb b/ProjectPage/ProjectViewModel.vb index 86502a3..c4bccd3 100644 --- a/ProjectPage/ProjectViewModel.vb +++ b/ProjectPage/ProjectViewModel.vb @@ -783,7 +783,10 @@ Namespace EgtCAM5 Private Sub OnMouseSelectedAll(ByVal sender As Object) Handles m_ProjectScene.OnMouseSelectedAll ' Se in modalità Draw seleziono tutto - If IniFile.m_ProjectMode = ProjectModeOpt.DRAW Then m_Controller.MouseSelectedAll() + If IniFile.m_ProjectMode = ProjectModeOpt.DRAW Then + m_Controller.MouseSelectedAll() + Return + End If ' Sono in modalità Machining, se la modalità di selezione è NULL non seleziono nulla ed esco If m_SceneSelMode = SceneSelModeOpt.NULL Then Return Select Case m_SceneSelType @@ -847,10 +850,20 @@ Namespace EgtCAM5 End Sub Private Sub OnMouseDeselectedAll(ByVal sender As Object) Handles m_ProjectScene.OnMouseDeselectedAll + ' Se in modalità Draw seleziono tutto + If IniFile.m_ProjectMode = ProjectModeOpt.DRAW Then + m_Controller.MouseDeselectedAll() + Return + End If + ' Sono in modalità Machining, se la modalità di selezione è NULL non seleziono nulla ed esco + If m_SceneSelMode = SceneSelModeOpt.NULL Then Return ' Se sono in lavorazione - If IniFile.m_ProjectMode = ProjectModeOpt.MACHINING AndAlso _ - (m_SceneSelType = SceneSelTypeOpt.RAWPART OrElse m_SceneSelType = SceneSelTypeOpt.FIXTURE OrElse m_SceneSelType = SceneSelTypeOpt.RAWPARTWITHFIXTURE) Then - EgtResetMark(EgtGetFirstSelectedObj()) + If IniFile.m_ProjectMode = ProjectModeOpt.MACHINING Then + if (m_SceneSelType = SceneSelTypeOpt.RAWPART OrElse m_SceneSelType = SceneSelTypeOpt.FIXTURE OrElse m_SceneSelType = SceneSelTypeOpt.RAWPARTWITHFIXTURE) Then + EgtResetMark(EgtGetFirstSelectedObj()) + ElseIf m_SceneSelType = SceneSelTypeOpt.NULL Then + Return + End If End If ' deseleziono tutto m_Controller.MouseDeselectedAll()