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

MG: fixed run parameter saving

Browse Source 
git-svn-id: trunk@393 -
This commit is contained in:
lazarus 2001-11-06 16:21:05 +00:00
parent 96f6250917
commit c40fc48e9e
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/project.pp
View File

@ -1023,6 +1023,7 @@ begin
Clear; Clear;
ProjectInfoFile:=LPIFilename; ProjectInfoFile:=LPIFilename;
writeln('TProject.ReadProject A');
try try
xmlconfig := TXMLConfig.Create(ProjectInfoFile); xmlconfig := TXMLConfig.Create(ProjectInfoFile);
except except
@ -1031,6 +1032,7 @@ begin
Result:=mrCancel; Result:=mrCancel;
exit; exit;
end; end;
writeln('TProject.ReadProject B');
try try
ProjectType := ProjectTypeNameToType(xmlconfig.GetValue( ProjectType := ProjectTypeNameToType(xmlconfig.GetValue(
@ -1504,6 +1506,9 @@ end.
{ {
$Log$ $Log$
Revision 1.37 2001/11/06 16:21:05 lazarus
MG: fixed run parameter saving
Revision 1.36 2001/11/06 15:47:32 lazarus Revision 1.36 2001/11/06 15:47:32 lazarus
MG: added build all MG: added build all

12
ide/runparamsopts.pas
View File

@ -186,11 +186,11 @@ function TRunParamsOptions.Load(XMLConfig: TXMLConfig;
var i, Cnt: integer; var i, Cnt: integer;
begin begin
fUserOverrides.Clear; fUserOverrides.Clear;
Cnt:=XMLConfig.GetValue(APath+'/Count',0); Cnt:=XMLConfig.GetValue(APath+'Count',0);
for i:=0 to Cnt-1 do begin for i:=0 to Cnt-1 do begin
fUserOverrides.Values[XMLConfig.GetValue( fUserOverrides.Values[XMLConfig.GetValue(
APath+'/Variable'+IntToStr(i)+'/Name','')]:= APath+'Variable'+IntToStr(i)+'/Name','')]:=
XMLConfig.GetValue(APath+'/Variable'+IntToStr(i)+'/Value',''); XMLConfig.GetValue(APath+'Variable'+IntToStr(i)+'/Value','');
end; end;
end; end;
@ -230,11 +230,11 @@ function TRunParamsOptions.Save(XMLConfig: TXMLConfig;
procedure SaveUserOverrides(const APath: string); procedure SaveUserOverrides(const APath: string);
var i: integer; var i: integer;
begin begin
XMLConfig.SetValue(APath+'/Count',fUserOverrides.Count); XMLConfig.SetValue(APath+'Count',fUserOverrides.Count);
for i:=0 to fUserOverrides.Count-1 do begin for i:=0 to fUserOverrides.Count-1 do begin
XMLConfig.SetValue(APath+'/Variable'+IntToStr(i)+'/Name', XMLConfig.SetValue(APath+'Variable'+IntToStr(i)+'/Name',
fUserOverrides.Names[i]); fUserOverrides.Names[i]);
XMLConfig.SetValue(APath+'/Variable'+IntToStr(i)+'/Value', XMLConfig.SetValue(APath+'Variable'+IntToStr(i)+'/Value',
fUserOverrides.Values[fUserOverrides.Names[i]]); fUserOverrides.Values[fUserOverrides.Names[i]]);
end; end;
end; end;