UPD: Value name

This commit is contained in:
Alexander Koblov 2017-03-19 10:48:14 +00:00
commit 32489524d0

View file

@ -78,12 +78,12 @@ end;
procedure TIniPropStorageEx.SaveProperties;
begin
inherited SaveProperties;
IniFile.WriteInteger(IniSection, 'PixelsPerInch', Screen.PixelsPerInch);
IniFile.WriteInteger(IniSection, 'Screen_PixelsPerInch', Screen.PixelsPerInch);
end;
procedure TIniPropStorageEx.RestoreProperties;
begin
FPixelsPerInch := IniFile.ReadInteger(IniSection, 'PixelsPerInch', Screen.PixelsPerInch);
FPixelsPerInch := IniFile.ReadInteger(IniSection, 'Screen_PixelsPerInch', Screen.PixelsPerInch);
inherited RestoreProperties;
end;