From 795e6432b3d28c8cd7edd73cbf067f272d9ea960 Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Wed, 29 Oct 2003 14:24:21 +0000
Subject: [PATCH] amenuobject compilation fix

git-svn-id: trunk@4735 -
---
 lcl/interfaces/win32/win32object.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/win32/win32object.inc b/lcl/interfaces/win32/win32object.inc
index 77d13f8bce..fedb5033f4 100644
--- a/lcl/interfaces/win32/win32object.inc
+++ b/lcl/interfaces/win32/win32object.inc
@@ -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