Hallo,
wenn du die
TGIFImage-Komponente von Anders Melander einbindest, kannst du mit Hilfe der Routine
ReduceColors die Anzahl der Farben in einer Bitmap mittels Dithering reduzieren:
Delphi-Quellcode:
// uses GIFImage
var
bmp : TBitmap;
begin
bmp := ReduceColors(SourceBitmap, rmMonochrome, dmFloydSteinberg, 0, 0);
TargetBitmap.Draw (0, 0, bmp);
bmp.Free;
end;
Gruß Hawkeye