EgtCAM5 :

- Migliorata gestione feedback.
- Aggiunto shift + F3 per ricerca precedente in MTable.

MTableDb/MTableDbViewModel.vb

@@ -233,6 +233,7 @@ Namespace EgtCAM5
       Private m_cmdRemoveTable As ICommand
       Private m_cmdSetActiveTable As ICommand
       Private m_cmdResetSearch As ICommand
+      Private m_cmdSearchPrevious As ICommand
       Private m_cmdSearchNext As ICommand
       Private m_cmdFocusSearch As ICommand
       Private m_cmdAddMach As ICommand
@@ -604,6 +605,50 @@ Namespace EgtCAM5
 
 #End Region    ' ResetSearchCommand
 
+#Region "SearchPreviousCommand"
+
+      ''' <summary>
+      ''' Returns a command that do Exec.
+      ''' </summary>
+      Public ReadOnly Property SearchPreviousCommand As ICommand
+         Get
+            If m_cmdSearchPrevious Is Nothing Then
+               m_cmdSearchPrevious = New RelayCommand(AddressOf SearchPrevious)
+            End If
+            Return m_cmdSearchPrevious
+         End Get
+      End Property
+
+      ''' <summary>
+      ''' Execute the Exec.  This method is invoked by the ExecCommand.
+      ''' </summary>
+      Public Sub SearchPrevious()
+         If String.IsNullOrWhiteSpace(m_TextToSearch) Then
+            Return
+         End If
+         Dim bFound As Boolean = False
+         Dim LastSearchedRow As MTableAssociationGridBoxItem = Nothing
+         For TableIndex = 0 To m_TablesList.Count - 1
+            If m_TablesList(TableIndex).IsSelected Then
+               For AssociationIndex = 0 To m_TablesList(TableIndex).AssociationList.Count - 1
+                  Dim CurrAssociation As MTableAssociationGridBoxItem = m_TablesList(TableIndex).AssociationList(AssociationIndex)
+                  If CurrAssociation.IsSelected Then
+                     If Not IsNothing(LastSearchedRow) Then
+                        LastSearchedRow.IsSelected = True
+                     End If
+                     Return
+                  End If
+                  If CurrAssociation.IsValidForSearch Then
+                     LastSearchedRow = CurrAssociation
+                  End If
+               Next
+               Exit For
+            End If
+         Next
+      End Sub
+
+#End Region    ' SearchPreviousCommand
+
 #Region "SearchNextCommand"
 
       ''' <summary>