paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-29 19:49:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

although loading, attach menu to form if handle already created, if this is not wanted, then prevent creation of handle somehow

Browse Source 
fixes bug #197

git-svn-id: trunk@5271 -
This commit is contained in:
micha 2004-03-06 14:39:50 +00:00
parent 2efd3f22ee
commit 579f6ef046
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/customform.inc
View File

@ -963,7 +963,7 @@ begin
FMenu := Value;
if FMenu<>nil then begin
FMenu.Parent:=Self;
if HandleAllocated and (not (csLoading in ComponentState)) then
if HandleAllocated then
begin
FMenu.HandleNeeded;
InterfaceObject.AttachMenuToWindow(FMenu);
@ -1592,6 +1592,10 @@ end;
{ =============================================================================
$Log$
Revision 1.130 2004/03/06 14:39:50 micha
although loading, attach menu to form if handle already created, if this is not wanted, then prevent creation of handle somehow
fixes bug #197
Revision 1.129 2004/02/28 00:34:35 mattias
fixed CreateComponent for buttons, implemented basic Drag And Drop