Farbige bitmap schwarz weiß machen

[Hawkeye219]

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