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

Fppkg: Clear the CustomOptions properly

Browse Source 
git-svn-id: trunk@59933 -
This commit is contained in:
joost 2018-12-29 17:09:01 +00:00
parent d3881b11b1
commit 4a01e9b331
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fppkg/src/fppkg_packageoptionsfrm.pas
View File

@ -415,6 +415,10 @@ begin
finally finally
LazPackage.CustomOptions.UndoAppendBasePath; LazPackage.CustomOptions.UndoAppendBasePath;
end; end;
end
else
begin
LazPackage.CustomOptions.DeletePath('PackageVariants');
end; end;
LazPackage.CustomOptions.SetValue('CustomCode', seCustomFPMakeCode.Lines); LazPackage.CustomOptions.SetValue('CustomCode', seCustomFPMakeCode.Lines);
finally finally

9
components/fppkg/src/fppkg_packagevariant.pas
View File

@ -136,6 +136,11 @@ begin
begin begin
Config.AppendBasePath('Items'); Config.AppendBasePath('Items');
try try
for i:=Count to Config.GetValue('Count', -1) -1 do
begin
Config.DeletePath('Item'+IntToStr(i+1));
end;
Config.SetDeleteValue('Count', Count, 0); Config.SetDeleteValue('Count', Count, 0);
for i:=0 to Count-1 do for i:=0 to Count-1 do
begin begin
@ -149,6 +154,10 @@ begin
finally finally
Config.UndoAppendBasePath; Config.UndoAppendBasePath;
end; end;
end
else
begin
Config.DeletePath('Items');
end; end;
end; end;