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

AnchorDocking: Remove all handlers of Forms when DockMaster is destroyed. Patch by Anton Kavalenka

Browse Source
This commit is contained in:
michl 2021-10-09 16:59:11 +02:00
parent e67c74ed7e
commit 11191cc81c
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/anchordocking/anchordocking.pas
View File

@ -3150,6 +3150,11 @@ var
AControl: TControl; AControl: TControl;
i, j: Integer; i, j: Integer;
begin begin
if Assigned(FFormStyles) and not Application.Terminated then
for i:=FFormStyles.Count-1 downto 0 do
begin
FFormStyles[i].Form.RemoveAllHandlersOfObject(Self);
end;
Screen.RemoveHandlerFormAdded(@ScreenFormAdded); Screen.RemoveHandlerFormAdded(@ScreenFormAdded);
Screen.RemoveHandlerRemoveForm(@ScreenRemoveForm); Screen.RemoveHandlerRemoveForm(@ScreenRemoveForm);
QueueSimplify:=false; QueueSimplify:=false;