diff --git a/fcl/image/fpwritepng.pp b/fcl/image/fpwritepng.pp index f186c721ee..29ab30d270 100644 --- a/fcl/image/fpwritepng.pp +++ b/fcl/image/fpwritepng.pp @@ -267,7 +267,7 @@ procedure TFPWriterPNG.DetermineHeader (var AHeader : THeaderChunk); var c : integer; function CountAlphas : integer; var none, half : boolean; - x,y : longword; + x,y : longint; // warning, checks on <0 ! p : integer; c : TFPColor; a : word;