From 86cf5d94fb836c489aa6607453d77e22d8130674 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 7 Jul 2008 14:09:13 +0000
Subject: [PATCH] IDE: fixed crash on selecting frame

git-svn-id: trunk@15694 -
---
 ide/main.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ide/main.pp b/ide/main.pp
index b3caf18728..7cf3c2cad5 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -7661,7 +7661,7 @@ begin
         if TViewUnitsEntry(UnitList.Objects[i]).Selected then
         begin
           AnUnitInfo := Project1.Units[TViewUnitsEntry(UnitList.Objects[i]).ID];
-          if (AnUnitInfo.ComponentName <> '') then
+          if (AnUnitInfo.Component<>nil) then
           begin
             Result := TComponentClass(AnUnitInfo.Component.ClassType);
             //DebugLn(AnUnitInfo.ComponentName + ' has been selected');