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]