mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-14 10:19:22 +02:00
AnchorDocking: Closing with caFree with PopupMenu added, missed part of revision 64798 #970b6b43d6, issue #38296
git-svn-id: trunk@64805 -
This commit is contained in:
parent
6b6de2da43
commit
9777df5da6
@ -5748,9 +5748,7 @@ begin
|
|||||||
if IsMainForm then
|
if IsMainForm then
|
||||||
Application.Terminate
|
Application.Terminate
|
||||||
else begin
|
else begin
|
||||||
NeedEnableAutoSizing:=false;
|
Close;
|
||||||
Release;
|
|
||||||
AForm.Release;
|
|
||||||
exit;
|
exit;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user