Negativ bei TImage

[Martin K]

Also den Code von turboPASCAL verstehe ich nicht.

Es müsste doch so gehen:

Delphi-Quellcode:

procedure Irgendwas;

    function Umkehrfarbe(const Color: TColor): TColor;
    var c1,c2,c3: Byte;
    begin
      c1 := Color div 10000;
      c2 := Color div 100 mod 100;
      c3 := Color mod 10000;
      c1 := 255-c1;
      c2 := 255-c2;
      c3 := 255-c3;
      Result := c1*10000 + c2*100 + c3;
    end;

var Color1,Color2: TColor; i,j: Integer;
begin  //Color1 ist die Farbe, die umgekehrt werden soll, also z.B. clRed

Color2 := Umkehrfarbe(Color1);

for i:=1 to Image.Width do
  for j:=1 to Image.Height do
    If Image.Canvas.Pixels[i,j]=Color1 then
      Image.Canvas.Pixels[i,j]:=Color2;
end;