Patch for LazReport - property "ZOOM" of the object "Barcode"
Original Reporter info from Mantis: Sergey
-
Reporter name: Sergey S.
Original Reporter info from Mantis: Sergey
- Reporter name: Sergey S.
Description:
The functions of the GetSaveProperty (on line 11659):
tkFloat: begin
OldSep := DecimalSeparator;
DecimalSeparator := '.';
Result := FloatToStr(GetFloatProp(aObj,Prop));
DecimalSeparator := OldSep;
end;
--> replaced:
tkFloat: begin
s := FloatToStr(GetFloatProp(aObj,Prop));
s := StringReplace(s, ThousandSeparator, '', [rfReplaceAll, rfIgnoreCase]);
Result := StringReplace(s, DecimalSeparator, '.', [rfReplaceAll, rfIgnoreCase]);
end;
and The functions of the RestoreProperty(on line 11703):
tkFloat : SetFloatProp(aObj,Prop,StrToFloat(aValue)); --> replaced: tkFloat: begin s := StringReplace(aValue, '.', DecimalSeparator, [rfReplaceAll, rfIgnoreCase]); SetFloatProp(aObj,Prop,StrToFloat(s));
end;
Mantis conversion info:
- Mantis ID: 24393
- Version: 1.0.8
- Fixed in version: 1.1 (SVN)
- Fixed in revision: 41070 (#49effd63)
- Target version: 1.4