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);