ide: don't declare a class variable for the new inherited items if they are inherits from the TFrame (new dialog)

git-svn-id: trunk@22359 -

ide/mainintf.pas

@@ -587,8 +587,11 @@ begin
     +'  public'+LE
     +'    { public declarations }'+LE
     +'  end;'+LE
-    +LE
-    +'var'+LE
+    +LE;
+
+  if DeclareClassVariable then
+    Result := Result +
+     'var'+LE
     +'  '+ResourceName+': T'+ResourceName+';'+LE
     +LE;
 end;

ide/newdialog.lfm

@@ -9,7 +9,7 @@ object NewOtherDialog: TNewOtherDialog
   ClientHeight = 395
   ClientWidth = 476
   Position = poScreenCenter
-  LCLVersion = '0.9.27'
+  LCLVersion = '0.9.29'
   object Panel1: TPanel
     Left = 6
     Height = 351

ide/newdialog.lrs

@@ -5,7 +5,7 @@ LazarusResources.Add('TNewOtherDialog','FORMDATA',[
   +#3'Top'#3#204#0#5'Width'#3#220#1#13'ActiveControl'#7#13'ItemsTreeView'#11'Bo'
   +'rderIcons'#11#12'biSystemMenu'#0#7'Caption'#6#14'NewOtherDialog'#12'ClientH'
   +'eight'#3#139#1#11'ClientWidth'#3#220#1#8'Position'#7#14'poScreenCenter'#10
-  +'LCLVersion'#6#6'0.9.27'#0#6'TPanel'#6'Panel1'#4'Left'#2#6#6'Height'#3'_'#1#3
+  +'LCLVersion'#6#6'0.9.29'#0#6'TPanel'#6'Panel1'#4'Left'#2#6#6'Height'#3'_'#1#3
   +'Top'#2#6#5'Width'#3#208#1#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2
   +#6#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3'_'#1#11'ClientWidth'#3#208#1
   +#8'TabOrder'#2#0#0#9'TTreeView'#13'ItemsTreeView'#22'AnchorSideLeft.Control'

ide/newdialog.pas

@@ -213,6 +213,7 @@ begin
         // Set the resource class of the file descriptor
         InhCompItem.ResourceClass := TPersistentClass(AncestorComponent.ClassType);
         InhCompItem.InheritedUnit := AnUnitInfo;
+        InhCompItem.DeclareClassVariable := not AncestorComponent.ClassType.InheritsFrom(TFrame);
         //DebugLn(['TNewOtherDialog.OKButtonClick ',InhCompItem.InheritedUnit.Filename,' ',dbgsname(InhCompItem.ResourceClass)]);
       end
       else