[fpc-pascal] fpreport rangeerrors with TFPReportColor

Andreas Frieß friess at gmx.at
Sat Feb 24 10:28:01 CET 2018


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 at lists.freepascal.org
> http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

-------------- nächster Teil --------------
Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20180224/d2554cc8/attachment.html>


More information about the fpc-pascal mailing list