From 451424cf20fb3a1df2a0fe2bea38613ec8fc99da Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 9 Sep 2012 20:48:13 +0000
Subject: [PATCH] IDE: fixed crash in menu editor, issue #22699

git-svn-id: trunk@38606 -
---
 designer/designermenu.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/designer/designermenu.pp b/designer/designermenu.pp
index 55a35e5328..68fbe19aaf 100644
--- a/designer/designermenu.pp
+++ b/designer/designermenu.pp
@@ -1434,6 +1434,7 @@ var
   InvalidateNeeded: Boolean;
   DesignerMenuItem: TDesignerMenuItem;
 begin
+  if not (Sender is TPropertyEditor) then Exit;
   for i := 0 to TPropertyEditor(Sender).PropCount - 1 do
   begin
     Instance := TPropertyEditor(Sender).GetComponent(i);