paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 09:36:10 +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
LazPackage.CustomOptions.UndoAppendBasePath;
end;
end
else
begin
LazPackage.CustomOptions.DeletePath('PackageVariants');
end;
LazPackage.CustomOptions.SetValue('CustomCode', seCustomFPMakeCode.Lines);
finally

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

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