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

IDE: designer: menu editor: less overhead

Browse Source 
git-svn-id: trunk@52225 -
This commit is contained in:
mattias 2016-04-20 09:47:03 +00:00
parent 4819139549
commit 75349695d6
1 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
designer/menueditor.pp
View File

@ -1864,6 +1864,8 @@ begin
FInitialSelectedMenuItem := aSelect;
SetInitialBounds(0, 0, aWidth, aHeight);
Name := 'ShadowMenu';
DisableAutoSizing;
try
FItemsPopupMenu := TPopupMenu.Create(Self);
FItemsPopupMenu.Name := 'ItemsPopupMenu';
FActionList := TActionList.Create(Self);
@ -1889,8 +1891,6 @@ begin
GlobalDesignHook.AddHandlerObjectPropertyChanged(@OnObjectPropertyChanged);
GlobalDesignHook.AddHandlerModified(@OnDesignerModified);
GlobalDesignHook.AddHandlerRefreshPropertyValues(@OnDesignerRefreshPropertyValues);
DisableAutoSizing;
try
AutoSize := False;
Color := clBtnFace;
BorderStyle := bsNone;