paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 09:36:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazControls: Prevent TreeFilterEdit crashing when a form is closing, again. Issue #41509.

Browse Source
This commit is contained in:
Juha 2025-03-08 18:49:18 +02:00
parent db66ebdbb3
commit ceb97dc470
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/lazcontrols/treefilteredit.pas
View File

@ -136,6 +136,7 @@ type
procedure SetFilteredTreeview(AValue: TCustomTreeview);
procedure SetShowDirHierarchy(AValue: Boolean);
function FilterTree(Node: TTreeNode): Boolean;
procedure BeforeTreeDestroy(Sender: TObject);
protected
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure MoveNext(ASelect: Boolean = False); override;
@ -703,6 +704,7 @@ end;
destructor TTreeFilterEdit.Destroy;
begin
FilteredTreeview:=nil;
FreeAndNil(fBranches);
FreeAndNil(fSelectionList);
inherited Destroy;
@ -713,19 +715,27 @@ begin
Result := 'btnfiltercancel';
end;
procedure TTreeFilterEdit.BeforeTreeDestroy(Sender: TObject);
begin
FreeAndNil(fBranches);
end;
procedure TTreeFilterEdit.SetFilteredTreeview(AValue: TCustomTreeview);
begin
if fFilteredTreeview = AValue then Exit;
if fFilteredTreeview <> nil then
begin
fFilteredTreeview.RemoveFreeNotification(Self);
ForceFilter('');
fFilteredTreeview.RemoveHandlerOnBeforeDestruction(@BeforeTreeDestroy);
if not (csDestroying in ComponentState) then
ForceFilter('');
FreeAndNil(fBranches);
end;
fFilteredTreeview := AValue;
if fFilteredTreeview <> nil then
begin
InternalSetFilter(Text);
fFilteredTreeview.AddHandlerOnBeforeDestruction(@BeforeTreeDestroy);
fFilteredTreeview.FreeNotification(Self);
end;
end;
@ -784,6 +794,7 @@ begin
begin
IdleConnected:=False;
fNeedFiltering:=False;
fFilteredTreeview.RemoveHandlerOnBeforeDestruction(@BeforeTreeDestroy);
fFilteredTreeview:=nil;
FreeAndNil(fBranches);
end;