paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 17:23:00 +01:00
Code Issues Packages Projects Releases Wiki Activity

Menu designer: Free Shadowmenu at the same moment, when menu designer handler hook is removed.

Browse Source 
git-svn-id: trunk@53846 -
This commit is contained in:
michl 2017-01-02 22:52:52 +00:00
parent 227b8222b5
commit 1cafe8164f
2 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
designer/menueditorform.lfm
View File

@ -9,7 +9,6 @@ object MenuDesignerForm: TMenuDesignerForm
Constraints.MinHeight = 400
Constraints.MinWidth = 730
KeyPreview = True
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnHide = FormHide

8
designer/menueditorform.pas
View File

@ -60,7 +60,6 @@ type
ShortcutItemsCountLabel: TLabel;
StatisticsGroupBox: TGroupBox;
SubmenuGroupBox: TGroupBox;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormHide(Sender: TObject);
@ -251,12 +250,6 @@ begin
SetupPopupAssignmentsDisplay;
end;
procedure TMenuDesignerForm.FormClose(Sender: TObject;
var CloseAction: TCloseAction);
begin
FDesigner.FreeShadowMenu;
end;
procedure TMenuDesignerForm.FormDestroy(Sender: TObject);
begin
FreeAndNil(FPopupAssignments);
@ -269,6 +262,7 @@ end;
procedure TMenuDesignerForm.FormHide(Sender: TObject);
begin
FDesigner.FreeShadowMenu;
GlobalDesignHook.RemoveHandlerSetSelection(@OnDesignerSetSelection);
end;