paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 15:16:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

amenuobject compilation fix

Browse Source 
git-svn-id: trunk@4735 -
This commit is contained in:
micha 2003-10-29 14:24:21 +00:00
parent 246851ae33
commit 795e6432b3
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/win32/win32object.inc
View File

@ -1239,8 +1239,8 @@ end;
procedure TWin32Object.AttachMenuToWindow(AMenuObject: TComponent);
begin
Windows.SetMenu(TWinControl((AMenu as TMenu).Owner).Handle,
TMenu(AMenu).Handle);
Windows.SetMenu(TWinControl(AMenuObject.Owner).Handle,
(AMenuObject as TMenu).Handle);
end;
{ Private methods (in no significant order) }
@ -2804,6 +2804,9 @@ End;
{
$Log$
Revision 1.123 2003/10/29 14:24:21 micha
amenuobject compilation fix
Revision 1.122 2003/10/28 14:25:37 mattias
fixed unit circle