Just noticed there are now modified fpc units included.
Many thanks! Now it's easy to fix bugs.
Question, can this bugfix
http://bugs.freepascal.org/view.php?id=24382 also be included?
Bug is obvious, but there seems no way to get it in fpc.
Here is fixed function:
function TBGRAReaderPNG.BGRAColorGrayAlpha16(const CD: TColorData): TBGRAPixel;
var c : NativeUint;
begin
c := (CD shr 8) and $FF;
with result do
begin
red := c;
green := c;
blue := c;
alpha := (CD shr 24) and $FF;
end;
end;