Hier noch mal ein dezenter Hinweis auf CopyMode:
Delphi-Quellcode:
BMP.Canvas.CopyMode := cmDstInvert;
BMP.Canvas.Draw (0, 0, BMP);
Der Code invertiert das komplette Bild
ohne Berücksichtigung einer Farbe.
Zitat von
xaromz:
Delphi-Quellcode:
B := P[x * 3]; // Die einzelnen Farbwerte holen
G := P[x * 3 + 1];
R := P[x * 3 + 2];
if R = 255 then // wenn Rotanteil voll
Auch bei weiß ist der Rotanteil "voll"
Gruß Hawkeye