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

TreeFilterEdit: Remove unused "TTreeFilterBranch.Cleanup" method

Browse Source 
git-svn-id: trunk@35105 -
This commit is contained in:
juha 2012-02-02 22:07:51 +00:00
parent e06db40808
commit 928ff120e9
1 changed files with 4 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/lazcontrols/treefilteredit.pas
View File

@ -40,7 +40,6 @@ type
constructor Create(AOwner: TTreeFilterEdit; ARootNode: TTreeNode);
destructor Destroy; override;
procedure AddNodeData(ANodeText: string; AData: TObject; AFullFilename: string = '');
procedure CleanUp;
end;
TBranchList = specialize TFPGObjectList<TTreeFilterBranch>;
@ -136,13 +135,6 @@ begin
fFilenameMap[ANodeText]:=AFullFilename;
end;
procedure TTreeFilterBranch.CleanUp;
// Will be called at the end.
begin
FreeTVNodeData(fRootNode);
fRootNode := nil;
end;
function TTreeFilterBranch.CompareFNs(AFilename1,AFilename2: string): integer;
begin
if fOwner.SortData then
@ -388,14 +380,11 @@ end;
procedure TTreeFilterEdit.Notification(AComponent: TComponent; Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if (Operation = opRemove) then
if (Operation=opRemove) and (FilteredTreeview=AComponent) then
begin
if FilteredTreeview=AComponent then
begin
fFilteredTreeview.RemoveHandlerOnBeforeDestruction(@OnBeforeTreeDestroy);
fFilteredTreeview:=nil;
FreeAndNil(fBranches);
end;
fFilteredTreeview.RemoveHandlerOnBeforeDestruction(@OnBeforeTreeDestroy);
fFilteredTreeview:=nil;
FreeAndNil(fBranches);
end;
end;