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

TreeFilterEdit: Small optimization + fix comment.

Browse Source 
git-svn-id: trunk@43635 -
This commit is contained in:
juha 2014-01-02 18:16:58 +00:00
parent 5daea7f22c
commit 9f824e8954
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazcontrols/treefilteredit.pas
View File

@ -226,15 +226,13 @@ begin
TVNode:=fOwner.fFilteredTreeview.Items.AddChild(fRootNode,FileN);
// Save the long filename to Node.Data
AObject := TObject(fNodeTextToDataMap[FileN]);
If Assigned(AObject) And AObject.InheritsFrom(TTFENodeData) then Begin
TTFENodeData(AObject).Node := TVNode;
TTFENodeData(AObject).Branch := Self;
end;
if fNodeTextToFullFilenameMap.Count > 0 then begin
s:=FileN;
if fNodeTextToFullFilenameMap.Contains(FileN) then
s:=fNodeTextToFullFilenameMap[FileN]; // Full file name.
AObject := TFileNameItem.Create(s, AObject);
end;
If Assigned(AObject) and (AObject is TTFENodeData) then Begin
TTFENodeData(AObject).Node := TVNode;
TTFENodeData(AObject).Branch := Self;
end;
@ -473,7 +471,7 @@ begin
end;
procedure TTreeFilterEdit.SortAndFilter;
// Copy data from fOriginalData to fSortedData in sorted order
// Sort and filter either branches or the whole tree depending on operation mode.
var
i: Integer;
begin