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

Fixes compilation with FPC 2.6

Browse Source 
git-svn-id: trunk@54207 -
This commit is contained in:
sekelsenmat 2017-02-20 11:28:08 +00:00
parent d177b138b7
commit 970dc3e689
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/jsonpropstorage.pas
View File

@ -102,8 +102,10 @@ end;
procedure TCustomJSONPropStorage.SetFormatted(Value: Boolean);
begin
FFormatted := Value;
{$IF FPC_FULLVERSION >= 30000}
if (FJSONConf<>nil) then
FJSONConf.Formatted := Value;
{$ENDIF}
end;
function TCustomJSONPropStorage.FixPath(const APath: String): String;
@ -116,7 +118,9 @@ begin
if (FJSONConf=nil) and not (csDesigning in ComponentState) then
begin
FJSONConf := TJSONConfig.Create(nil);
{$IF FPC_FULLVERSION >= 30000}
FJSONConf.Formatted := FFormatted;
{$ENDIF}
FJSONConf.Filename := GetJSONFileName;
end;
Inc(FCount);