|
@@ -534,13 +534,21 @@ end;
|
|
function TFPReaderPNG.ColorGrayAlpha16 (CD:TColorData) : TFPColor;
|
|
function TFPReaderPNG.ColorGrayAlpha16 (CD:TColorData) : TFPColor;
|
|
var c : word;
|
|
var c : word;
|
|
begin
|
|
begin
|
|
|
|
+ {$ifdef FPC_LITTLE_ENDIAN}
|
|
|
|
+ c := CD and $FFFF;
|
|
|
|
+ {$else}
|
|
c := (CD shr 16) and $FFFF;
|
|
c := (CD shr 16) and $FFFF;
|
|
|
|
+ {$endif}
|
|
with result do
|
|
with result do
|
|
begin
|
|
begin
|
|
red := c;
|
|
red := c;
|
|
green := c;
|
|
green := c;
|
|
blue := c;
|
|
blue := c;
|
|
|
|
+ {$ifdef FPC_LITTLE_ENDIAN}
|
|
|
|
+ alpha := (CD shr 16) and $FFFF;
|
|
|
|
+ {$else}
|
|
alpha := CD and $FFFF;
|
|
alpha := CD and $FFFF;
|
|
|
|
+ {$endif}
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|