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.
Ein Therapeut entspricht 1024 Gigapeut.