PNG komprimieren

[KodeZwerg]

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create();
  if SavePictureDialog1.Execute then
  begin
    bmp.Assign(Image2.Picture.Graphic);
    bmp.PixelFormat := pf8bit;
    Image2.Picture.Graphic.Assign(bmp);
    Image2.Picture.SaveToFile(SavePictureDialog1.FileName);
  end;
  bmp.Free;
end;

Also das gespeicherte Bild liegt danach im 8bit/256Farben Modus vor, aber wie Du sagtest, Pallete ist da noch ein Problem.