From c8ab6fa0c5f80456e6242ed891a3b02456c52d9b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 17 Jan 2007 11:13:57 +0000
Subject: [PATCH] IDE: added resourcestring

git-svn-id: trunk@10461 -
---
 ide/lazarusidestrconsts.pas |  3 +++
 ide/main.pp                 | 20 ++++++++++++++------
 2 files changed, 17 insertions(+), 6 deletions(-)

diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index 133ddaf3f8..61a348a239 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -2093,6 +2093,9 @@ resourcestring
   lisCodeTemplComment = 'Comment:';
   lisCodeTemplATokenAlreadyExists = ' A token %s%s%s already exists! ';
   lisCodeTemplError = 'Error';
+  lisUnableToOpenDesignerTheClassDoesNotDescendFromADes = 'Unable to open '
+    +'designer.%sThe class %s does not descend from a designable class like '
+    +'TForm or TDataModule.';
   lisClassConflictsWithLfmFileTheUnitUsesTheTheUnitWhic = 'Class conflicts '
     +'with .lfm file:%sThe unit %s%suses the the unit %s%swhich contains the '
     +'class %s,%sbut the .lfm file contains already another class.%sThere can '
diff --git a/ide/main.pp b/ide/main.pp
index 4b07525722..e1dfca36bd 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -4911,6 +4911,14 @@ begin
             NewClassName, '"', '"', AncestorClassName, '"']),
             mtError,[mbCancel],0);
           Result:=mrCancel;
+          exit;
+        end else if CompareText(AncestorClassName,'TComponent')=0 then begin
+          MessageDlg(lisCodeTemplError, Format(
+            lisUnableToOpenDesignerTheClassDoesNotDescendFromADes, [#13,
+            NewClassName]),
+            mtError,[mbCancel],0);
+          Result:=mrCancel;
+          exit;
         end;
       end else begin
         AncestorType:=TForm;
@@ -5318,7 +5326,7 @@ function TMainIDE.CloseUnitComponent(AnUnitInfo: TUnitInfo; Flags: TCloseFlags
   begin
     CompUnitInfo:=Project1.FirstUnitWithComponent;
     while CompUnitInfo<>nil do begin
-      DebugLn(['FreeUnusedComponents ',CompUnitInfo.Filename,' ',dbgsName(CompUnitInfo.Component),' UnitComponentIsUsed=',UnitComponentIsUsed(CompUnitInfo,true)]);
+      //DebugLn(['FreeUnusedComponents ',CompUnitInfo.Filename,' ',dbgsName(CompUnitInfo.Component),' UnitComponentIsUsed=',UnitComponentIsUsed(CompUnitInfo,true)]);
       if not UnitComponentIsUsed(CompUnitInfo,true) then begin
         CloseUnitComponent(CompUnitInfo,Flags);
         exit;
@@ -5334,7 +5342,7 @@ var
 begin
   LookupRoot:=AnUnitInfo.Component;
   if LookupRoot=nil then exit(mrOk);
-  DebugLn(['TMainIDE.CloseUnitComponent ',AnUnitInfo.Filename,' ',dbgsName(LookupRoot)]);
+  //DebugLn(['TMainIDE.CloseUnitComponent ',AnUnitInfo.Filename,' ',dbgsName(LookupRoot)]);
 
   // save
   if (cfSaveFirst in Flags) and (AnUnitInfo.EditorIndex>=0) then begin
@@ -5356,7 +5364,7 @@ begin
     FLastFormActivated:=nil;
   if (OldDesigner=nil) then begin
     // hidden component
-    DebugLn(['TMainIDE.CloseUnitComponent freeing hidden component without designer: ',AnUnitInfo.Filename,' ',DbgSName(AnUnitInfo.Component)]);
+    //DebugLn(['TMainIDE.CloseUnitComponent freeing hidden component without designer: ',AnUnitInfo.Filename,' ',DbgSName(AnUnitInfo.Component)]);
     if UnitComponentIsUsed(AnUnitInfo,false) then begin
       // hidden component is still used => keep it
     end else begin
@@ -5369,11 +5377,11 @@ begin
     // component with designer
     if UnitComponentIsUsed(AnUnitInfo,false) then begin
       // free designer, keep component hidden
-      DebugLn(['TMainIDE.CloseUnitComponent hiding component and freeing designer: ',AnUnitInfo.Filename,' ',DbgSName(AnUnitInfo.Component)]);
+      //DebugLn(['TMainIDE.CloseUnitComponent hiding component and freeing designer: ',AnUnitInfo.Filename,' ',DbgSName(AnUnitInfo.Component)]);
       OldDesigner.FreeDesigner(false);
     end else begin
       // free designer and design form
-      DebugLn(['TMainIDE.CloseUnitComponent freeing component and designer: ',AnUnitInfo.Filename,' ',DbgSName(AnUnitInfo.Component)]);
+      //DebugLn(['TMainIDE.CloseUnitComponent freeing component and designer: ',AnUnitInfo.Filename,' ',DbgSName(AnUnitInfo.Component)]);
       OldDesigner.FreeDesigner(true);
       AnUnitInfo.Component:=nil;
       FreeUnusedComponents;
@@ -12424,7 +12432,7 @@ begin
     Result:=FormEditor1.GetDesignerForm(AnUnitInfo.Component);
   if ((Result=nil) or (Result.Designer=nil)) and LoadForm
   and FilenameIsPascalSource(AnUnitInfo.Filename) then begin
-    DebugLn(['TMainIDE.GetFormOfSource ',AnUnitInfo.Filename,' ',dbgsName(AnUnitInfo.Component)]);
+    //DebugLn(['TMainIDE.GetFormOfSource ',AnUnitInfo.Filename,' ',dbgsName(AnUnitInfo.Component)]);
     DoLoadLFM(AnUnitInfo,[],[]);
   end;
   if (Result=nil) and (AnUnitInfo.Component<>nil) then