ich glaube der von turboPascal wird um einiges schneller sein, da Pixels[x,y] doch arg langsam ist, im gegensatz zu Scanline.
Und an deinem ist der "Nachteil" das du immer nur eine Farbe umkehren kannst, bei turbos werden alle Farben umgekehrt, so wie es glaub ich gewollt ist.
Verstehe nicht so ganz wie turboPASCAL da Scanline verwendest, ich benutze es immer so:
Delphi-Quellcode:
...
type Tpixarray = array [1..3] of byte;
var i, j : integer;
p : ^Tpixarray;
Begin
bitmap.pixelformat := pf24bit;
for i := 0 to bitmap.height-1 do
Begin
p := fbitmap.ScanLine[i];
for j := 0 to bitmap.width-1 do
Begin
p[1] := (255 - (p[1]));
p[2] := (255 - (p[2]));
p[3] := (255 - (p[x]));
end;
inc(p);
end;
end;