paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 22:37:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

TreeFilterEdit: implement a property ExpandAllInitially.

Browse Source 
git-svn-id: trunk@34898 -
This commit is contained in:
juha 2012-01-24 14:08:15 +00:00
parent 75d7918d0a
commit d9a52fce0a
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/lazcontrols/treefilteredit.pas
View File

@ -53,6 +53,8 @@ type
fSelectionList: TStringList; // Store/restore the old selections here.
fShowDirHierarchy: Boolean; // Show direcories / files as a tree structure.
fBranches: TBranchList; // Items are under these nodes can be sorted.
fExpandAllInitially: Boolean; // Expand all levels when searched for the first time.
fIsFirstTime: Boolean; // Needed for fExpandAllInitially.
fOnGetImageIndex: TImageIndexEvent;
function GetFilteredTreeview: TCustomTreeview;
procedure SetFilteredTreeview(const AValue: TCustomTreeview);
@ -76,9 +78,9 @@ type
property ImageIndexDirectory: integer read fImageIndexDirectory write fImageIndexDirectory;
property SelectionList: TStringList read fSelectionList;
property ShowDirHierarchy: Boolean read fShowDirHierarchy write SetShowDirHierarchy;
//property Branches: TBranchList read fBranches write fBranches;
published
property FilteredTreeview: TCustomTreeview read GetFilteredTreeview write SetFilteredTreeview;
property ExpandAllInitially: Boolean read fExpandAllInitially write fExpandAllInitially default False;
property OnGetImageIndex: TImageIndexEvent read fOnGetImageIndex write fOnGetImageIndex;
end;
@ -311,6 +313,8 @@ begin
inherited Create(AOwner);
fSelectionList:=TStringList.Create;
fImageIndexDirectory := -1;
fExpandAllInitially := False;
fIsFirstTime := True;
end;
destructor TTreeFilterEdit.Destroy;
@ -381,11 +385,15 @@ var
i: Integer;
begin
fFilteredTreeview.BeginUpdate;
if Assigned(fBranches) then begin // Filter the brances
if Assigned(fBranches) then begin // Apply filter for the brances
for i:=0 to fBranches.Count-1 do
fBranches[i].ApplyFilter;
end
else begin // Filter the whole tree.
else begin // Apply filter for the whole tree.
if fExpandAllInitially and fIsFirstTime then begin
fFilteredTreeview.FullExpand;
fIsFirstTime := False;
end;
FilterTree(fFilteredTreeview.Items.GetFirstNode);
end;
fFilteredTreeview.ClearInvisibleSelection;

2
lcl/include/treeview.inc
View File

@ -902,7 +902,7 @@ begin
Result:=GetPrevVisibleSibling;
if Result <> nil then begin
while Result.Visible and Result.Expanded do begin
ANode:=Result.GetLastVisibleChild;
ANode:=Result.GetLastChild;
if ANode=nil then break;
Result:=ANode;
end;