paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 04:49:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

Opkman: Add incremental search for the package tree.

Browse Source 
git-svn-id: trunk@62673 -
This commit is contained in:
balazs 2020-02-26 13:37:42 +00:00
parent 2cc4f78981
commit 545444126b
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/onlinepackagemanager/opkman_visualtree.pas
View File

@ -137,6 +137,7 @@ type
Node: PVirtualNode; Column: TColumnIndex; const {%H-}CellRect: TRect);
procedure VSTDblClick(Sender: TObject);
procedure VSTScroll(Sender: TBaseVirtualTree; {%H-}DeltaX, {%H-}DeltaY: Integer);
procedure VSTIncrementalSearch(Sender: TBaseVirtualTree; Node: PVirtualNode; const SearchText: String; var Result: Integer);
procedure VSTClick(Sender: TObject);
procedure VSTAfterPaint(Sender: TBaseVirtualTree; {%H-}TargetCanvas: TCanvas);
procedure VSTEnter(Sender: TObject);
@ -271,6 +272,10 @@ begin
HintMode := hmHint;
ShowHint := True;
TabOrder := 2;
IncrementalSearch := isVisibleOnly;
IncrementalSearchDirection := sdForward;
IncrementalSearchStart := ssFocusedNode;
IncrementalSearchTimeout := 3000;
TreeOptions.MiscOptions := [toCheckSupport, toFullRepaintOnResize, toInitOnSave, toWheelPanning];
TreeOptions.PaintOptions := [toHideFocusRect, toAlwaysHideSelection, toPopupMode, toShowButtons, toShowDropmark, toShowRoot, toThemeAware];
TreeOptions.SelectionOptions := [toFullRowSelect, toRightClickSelect];
@ -298,6 +303,7 @@ begin
OnEnter := @VSTEnter;
OnFreeNode := @VSTFreeNode;
OnScroll := @VSTScroll;
OnIncrementalSearch := @VSTIncrementalSearch;
end;
FShowHintFrm := TShowHintFrm.Create(nil);
if AImgList <> nil then
@ -1968,6 +1974,18 @@ begin
FShowHintFrm.Hide;
end;
procedure TVisualTree.VSTIncrementalSearch(Sender: TBaseVirtualTree;
Node: PVirtualNode; const SearchText: String; var Result: Integer);
var
Data: PData;
begin
Data := FVST.GetNodeData(Node);
if FVST.GetNodeLevel(Node) = 1 then
Result := StrLIComp(PChar(SearchText), PChar(Data^.PackageDisplayName), Min(Length(SearchText), Length(Data^.PackageDisplayName)))
else
Result := -1;
end;
procedure TVisualTree.VSTClick(Sender: TObject);
begin
if FLinkClicked then