From 61d3cff9f65eb0c049d78758d79bf32aaee192aa Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 23 Sep 2005 20:59:23 +0000
Subject: [PATCH] fixed IDE mainbar windows menu

git-svn-id: trunk@7808 -
---
 ide/mainbase.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ide/mainbase.pas b/ide/mainbase.pas
index 9a32fbabaa..5df7b1caf3 100644
--- a/ide/mainbase.pas
+++ b/ide/mainbase.pas
@@ -223,7 +223,7 @@ var
 begin
   i:=Screen.CustomFormCount-1;
   while (i>=0) do begin
-    if Screen.CustomForms[i].Caption=TMenuItem(Sender).Caption then begin
+    if Screen.CustomForms[i].Caption=(Sender as {$IFDEF UseMenuIntf}TIDEMenuCommand{$ELSE}TMenuItem{$ENDIF}).Caption then begin
       Screen.CustomForms[i].BringToFront;
       break;
     end;