TRxIniPropStorage = class(TIniPropStorage)
...
protected
function DoReadString(const Section, Ident, DefaultValue: string): string; override;
implementation
function TRxIniPropStorage.DoReadString(const Section, Ident, DefaultValue: string): string;
begin
Result := inherited;
if (Pos('Width', Ident) > 0) or (Pos('Height', Ident) > 0) then begin
Result := IntToStr(Application.MainForm.Scale96ToForm(StrToInt(Result)))
end;
end;