paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 22:34:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@22359 -
This commit is contained in:
paul 2009-10-31 15:06:47 +00:00
parent 030a84366d
commit 00cc1fb130
4 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/mainintf.pas
View File

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

2
ide/newdialog.lfm
View File

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

2
ide/newdialog.lrs
View File

@ -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' +#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' +'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 +'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 +'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 +#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' +#8'TabOrder'#2#0#0#9'TTreeView'#13'ItemsTreeView'#22'AnchorSideLeft.Control'

1
ide/newdialog.pas
View File

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