Pixels und scanline

[himitsu]

Delphi-Quellcode:

var C: TColor; x, Y: Integer;

C := FarbCodeZuTColor('');
for X := 0 to Bild.Width-1 do
  for Y := 0 to Bild.Heigt-1 do
    if Bild.Canvas.Pixels[x, y] = C then
      Machwas;

Und wenn das zu langsam ist, dann kann man mit ScanLine anfangen und damit "schneller" auf "alle" Pixel einer Zeile im Bild zugreifen.
Diese Daten stehen dann da aber auch im Format von TBitmap.PixelFormat und man muß das Bild entweder vorher in ein passendes Format umwandeln, bzw. wirft einen Fehler wenn ein falsches Format vorliegt oder rechnet das TColor entsprechend um.