paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 14:40:25 +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; FInitialSelectedMenuItem := aSelect;
SetInitialBounds(0, 0, aWidth, aHeight); SetInitialBounds(0, 0, aWidth, aHeight);
Name := 'ShadowMenu'; Name := 'ShadowMenu';
DisableAutoSizing;
try
FItemsPopupMenu := TPopupMenu.Create(Self); FItemsPopupMenu := TPopupMenu.Create(Self);
FItemsPopupMenu.Name := 'ItemsPopupMenu'; FItemsPopupMenu.Name := 'ItemsPopupMenu';
FActionList := TActionList.Create(Self); FActionList := TActionList.Create(Self);
@ -1889,8 +1891,6 @@ begin
GlobalDesignHook.AddHandlerObjectPropertyChanged(@OnObjectPropertyChanged); GlobalDesignHook.AddHandlerObjectPropertyChanged(@OnObjectPropertyChanged);
GlobalDesignHook.AddHandlerModified(@OnDesignerModified); GlobalDesignHook.AddHandlerModified(@OnDesignerModified);
GlobalDesignHook.AddHandlerRefreshPropertyValues(@OnDesignerRefreshPropertyValues); GlobalDesignHook.AddHandlerRefreshPropertyValues(@OnDesignerRefreshPropertyValues);
DisableAutoSizing;
try
AutoSize := False; AutoSize := False;
Color := clBtnFace; Color := clBtnFace;
BorderStyle := bsNone; BorderStyle := bsNone;