@Aphton
auf dem Trichter war ich auch kurzzeitig clGreen ist allerdings $8000, ich hatte daraufhin vermutet dass eigentlich clLime gemeint war $FF00 um auf die Maske $FFFFFF zu kommen, diese würde allerdings mit NOT zu $FF000000 um den erwarteten Satz 'Das Bild wird invertiert' zu erreichen müsste die Funktion dann allerdings letztendlich so aussehen
Delphi-Quellcode:
Procedure TForm1.flip;
var
i, j,filter,x,y: TColor;
begin
filter:=not(clred+cllime+clblue) ;
FOR i:=0 TO image1.width - 1 do
FOR j:=0 TO image1.height -1 do
begin
x:=image1.canvas.pixels[i,j];
x:=not(x xor filter) AND $FFFFFF;
image1.canvas.pixels[i,j]:=x;
end;
end;
deshalb hatte ich bisher nicht geantwortet ...