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

Menu designer: Set Parent of ShadowMenu in a right place.

Browse Source 
git-svn-id: trunk@51551 -
This commit is contained in:
juha 2016-02-09 12:52:30 +00:00
parent f0793b0e2b
commit ad856b47a0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/menushadows.pp
View File

@ -2637,11 +2637,11 @@ begin
GlobalDesignHook.AddHandlerObjectPropertyChanged(@OnObjectPropertyChanged); GlobalDesignHook.AddHandlerObjectPropertyChanged(@OnObjectPropertyChanged);
GlobalDesignHook.AddHandlerModified(@OnDesignerModified); GlobalDesignHook.AddHandlerModified(@OnDesignerModified);
GlobalDesignHook.AddHandlerRefreshPropertyValues(@OnDesignerRefreshPropertyValues); GlobalDesignHook.AddHandlerRefreshPropertyValues(@OnDesignerRefreshPropertyValues);
Parent := aForm;
AutoSize := False; AutoSize := False;
Color := clBtnFace; Color := clBtnFace;
BorderStyle := bsNone; BorderStyle := bsNone;
Align := alClient; Align := alClient;
Parent := aForm;
end; end;
procedure TShadowMenu.AddFirstMenu(Sender: TObject); procedure TShadowMenu.AddFirstMenu(Sender: TObject);