Bilder auf den Kopf stellen

[MisterNiceGuy]

Hi ich hab folgende Procedure geschrieben um ein Image auf den Kopf zu stellen.

Delphi-Quellcode:

procedure turn_image;
var j,k:integer;
    l:TColor;
begin
for j:=0 to image1.width do
        begin
        for k:=0 to (image1.height div 2) do
            begin
            l:=image1.Canvas.Pixels[j,k];
            image1.Canvas.Pixels[j,k] := image1.Canvas.Pixels[j,image1.Height-k];
            image1.Canvas.Pixels[j,image1.Height-k] := l;
            end;
        end;
end;

Leider dauert das ganze (PIII 733MHz) ein bisschen. Kennt einer eine Procedure, die etwas weniger Zeit benötigt?
Danke schon mal im Voraus

Bye

[edit=r_kerber]Code- durch Delphi-Tags ersetzt. Mfg, r_kerber[/edit]

[neolithos]

Du solltest dich mal mit ScanLine beschäftigen, und lieber gesamte Zeilen tauschen.