paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 18:39:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

Removed Aliases property from TProject. CAW

Browse Source 
git-svn-id: trunk@206 -
This commit is contained in:
lazarus 2001-03-01 03:51:32 +00:00
parent 7407397d7f
commit 40ce1a6b63
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/project.pp
View File

@ -73,7 +73,6 @@ type
xmlcfg: TXMLConfig; xmlcfg: TXMLConfig;
{ Variables } { Variables }
fAliases: String;
fCompilerOptions: TCompilerOptions; fCompilerOptions: TCompilerOptions;
fIconPath: String; fIconPath: String;
fLoaded: Boolean; fLoaded: Boolean;
@ -108,7 +107,6 @@ type
procedure Clear; procedure Clear;
{ Properties } { Properties }
property Aliases: String read fAliases write fAliases;
property CompilerOptions: TCompilerOptions read fCompilerOptions write fCompilerOptions; property CompilerOptions: TCompilerOptions read fCompilerOptions write fCompilerOptions;
property IconPath: String read fIconPath write fIconPath; property IconPath: String read fIconPath write fIconPath;
property Loaded: Boolean read fLoaded write fLoaded; property Loaded: Boolean read fLoaded write fLoaded;
@ -229,7 +227,6 @@ begin
xmlcfg := nil; xmlcfg := nil;
fAliases := '';
fCompilerOptions := TCompilerOptions.Create; fCompilerOptions := TCompilerOptions.Create;
fIconPath := ''; fIconPath := '';
fMainUnit := ''; fMainUnit := '';
@ -275,7 +272,6 @@ begin
try try
xmlcfg.SetValue('ProjectOptions/General/ProjectFile/Value', ProjectFile); xmlcfg.SetValue('ProjectOptions/General/ProjectFile/Value', ProjectFile);
xmlcfg.SetValue('ProjectOptions/General/MainUnit/Value', MainUnit); xmlcfg.SetValue('ProjectOptions/General/MainUnit/Value', MainUnit);
xmlcfg.SetValue('ProjectOptions/General/Aliases/Value', Aliases);
xmlcfg.SetValue('ProjectOptions/General/IconPath/Value', IconPath); xmlcfg.SetValue('ProjectOptions/General/IconPath/Value', IconPath);
xmlcfg.SetValue('ProjectOptions/General/TargetFileExt/Value', TargetFileExt); xmlcfg.SetValue('ProjectOptions/General/TargetFileExt/Value', TargetFileExt);
xmlcfg.SetValue('ProjectOptions/General/Title/Value', Title); xmlcfg.SetValue('ProjectOptions/General/Title/Value', Title);
@ -350,7 +346,6 @@ begin
ProjectFile := xmlcfg.GetValue('ProjectOptions/General/ProjectFile/Value', ''); ProjectFile := xmlcfg.GetValue('ProjectOptions/General/ProjectFile/Value', '');
MainUnit := xmlcfg.GetValue('ProjectOptions/General/MainUnit/Value', ''); MainUnit := xmlcfg.GetValue('ProjectOptions/General/MainUnit/Value', '');
UnitNameList := xmlcfg.GetValue('ProjectOptions/General/UnitNameList/Value', ''); UnitNameList := xmlcfg.GetValue('ProjectOptions/General/UnitNameList/Value', '');
Aliases := xmlcfg.GetValue('ProjectOptions/General/Aliases/Value', '');
IconPath := xmlcfg.GetValue('ProjectOptions/General/IconPath/Value', './'); IconPath := xmlcfg.GetValue('ProjectOptions/General/IconPath/Value', './');
TargetFileExt := xmlcfg.GetValue('ProjectOptions/General/TargetFileExt/Value', ''); TargetFileExt := xmlcfg.GetValue('ProjectOptions/General/TargetFileExt/Value', '');
Title := xmlcfg.GetValue('ProjectOptions/General/Title/Value', ''); Title := xmlcfg.GetValue('ProjectOptions/General/Title/Value', '');
@ -456,7 +451,6 @@ procedure TProject.Clear;
begin begin
xmlcfg := nil; xmlcfg := nil;
fAliases := '';
fCompilerOptions.Clear; fCompilerOptions.Clear;
fIconPath := ''; fIconPath := '';
fMainUnit := ''; fMainUnit := '';
@ -527,6 +521,9 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.9 2001/03/01 03:51:32 lazarus
Removed Aliases property from TProject. CAW
Revision 1.8 2001/02/22 17:04:57 lazarus Revision 1.8 2001/02/22 17:04:57 lazarus
added environment options + killed ide unit circles added environment options + killed ide unit circles