Bild in Graustufen umwandeln

[Sanchez]

Um für mehr Auswahl zu sorgen:

Delphi-Quellcode:

type PixArray = Array [0..2] of Byte;

procedure GrayScale(helpbmp : TBitmap);
var i, j : integer;
    R, G, B, h : Byte;
    p: ^PixArray;
begin
  helpbmp.PixelFormat := pf24bit;
  for i:=0 to helpbmp.height - 1 do begin
    p := helpbmp.ScanLine[i];
    for j:=0 to helpbmp.width - 1 do begin
      R := p^[2];
      B := p^[1];
      G := p^[0];

      h := (r+b+g) div 3;
      p^[2] := h;
      p^[1] := h;
      p^[0] := h;

      inc(p);
    end;
  end;
end;

grüße, daniel