From c693f7923e09a5aec6f79da27f32e469abddb60d Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 24 Jul 2010 10:43:05 +0000
Subject: [PATCH] IDE: fixed creating designer form

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

diff --git a/ide/main.pp b/ide/main.pp
index 8bf9cae070..7105b39fa4 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -6164,7 +6164,7 @@ begin
   if not (ofLoadHiddenResource in OpenFlags) then
   begin
     DesignerForm := FormEditor1.GetDesignerForm(NewComponent);
-    if DesignerForm=nil then
+    if (DesignerForm=nil) or (DesignerForm.Designer=nil) then
       DesignerForm := CreateDesignerForComponent(AnUnitInfo,NewComponent);
   end;
 
@@ -10012,6 +10012,7 @@ begin
     // select a form (object inspector, formeditor, control selection)
     if FLastFormActivated<>nil then begin
       LastDesigner:=TDesigner(FLastFormActivated.Designer);
+      debugln(['TMainIDE.DoOpenProjectFile ',DbgSName(FLastFormActivated),' ',DbgSName(FLastFormActivated.Designer)]);
       LastDesigner.SelectOnlyThisComponent(LastDesigner.LookupRoot);
     end;