Depending on the Information of the list here i have created some
patches and an Bug-Report https://bugs.freepascal.org/view.php?id=33217
The heats of my changes is a more typesafe conversion and to use QWord
for the JSON. So nothing is broken and it rangechecksafe now.
----- a small snippet ----
function QWordToReportColor(AQWord: QWord):TFPReportColor;
begin
Result := TFPReportColor(AQWord and $FFFFFFFF);
end;
------------
The second, i foung a not created Font, if you are not using
Parent-Fonts. Also fixed.
Thx to all who have some things more clear to me AND why.
Andreas
Am 22.02.2018 um 08:05 schrieb Michael Van Canneyt:
On Thu, 22 Feb 2018, Andreas Frieß wrote:
Another possible Problem with the definition
TFPColor (fpc) record with word <> TColor (lazarus)
-$7FFFFFFF-1..$7FFFFFFF <> TFPReportColor (fpreport) UInt32
So you cannot use in Lazarus the 'well known' TColors. With TColor it
is also Delphi compatible.
Using TColor is not an option, it is windows specific and depeds on
Graphics.
Michael.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
