Minor usability improvement: Ensure that the item we searched for is scrolled towards, in the list view. Related to issue #101

Author: SaschaSchaefer

Designer/FCommands.pas

@@ -253,6 +253,7 @@ procedure TFrameCommands.ActionSearchCommandExecute(Sender: TObject);
       begin
         if lItem.Data = lCommandSearchForm.ListViewCommands.Selected.Data then
           Self.ListViewCommands.Selected := lItem;
+          Self.ListViewCommands.Selected.MakeVisible(False);
       end; //for lItem
     end; //if ShowModal
   finally