TPNGImage 1.564 のパレット処理の不具合の暫定対処
メールで聞かれて需要があるのかなと思ったので
$ diff -u pngimage.pas.old pngimage.pas --- pngimage.pas.old +++ pngimage.pas @@ -5196,6 +5196,7 @@ begin {Copies the handle using CopyImage API} TBitmap(Dest).PixelFormat := DetectPixelFormat; + if Palette <> 0 then TBitmap(Dest).Palette := Palette; TBitmap(Dest).Width := Width; TBitmap(Dest).Height := Height; TBitmap(Dest).Canvas.Draw(0, 0, Self);