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

Packager LPK: save lpfCompatibilityMode flag

Browse Source 
git-svn-id: trunk@63133 -
This commit is contained in:
ondrej 2020-05-10 17:45:01 +00:00
parent 69cd1abf4a
commit e3a0380ebe
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packager/packagedefs.pas
View File

@ -2466,7 +2466,7 @@ begin
if FFlags=AValue then exit;
ChangedFlags:=(FFlags-AValue)+(AValue-FFlags);
FFlags:=AValue;
if ChangedFlags*[lpfAutoIncrementVersionOnBuild]<>[] then
if ChangedFlags*[lpfAutoIncrementVersionOnBuild,lpfCompatibilityMode]<>[] then
Modified:=true;
end;
@ -2860,7 +2860,13 @@ var
if FileVersion<=4 then begin
// set CompatibilityMode flag for legacy projects (this flag was added in FileVersion=5 that changed
// item format so that LPK cannot be opened in legacy Lazarus unless lpfCompatibilityMode is set)
UseLegacyLists := True;
Include(FFlags,lpfCompatibilityMode);
end else
begin
if XMLConfig.GetValue(ThePath+'CompatibilityMode/Value',true) then
Include(FFlags,lpfCompatibilityMode)
else
Exclude(FFlags,lpfCompatibilityMode);
end;
end;
@ -2961,6 +2967,8 @@ var
begin
XMLConfig.SetDeleteValue(ThePath+'AutoIncrementVersionOnBuild/Value',
AutoIncrementVersionOnBuild,true);
XMLConfig.SetDeleteValue(ThePath+'CompatibilityMode/Value',
UseLegacyLists,true);
end;
begin