Bild Horizontal spiegeln (vertikal klappt)

**andiak**

Ich habe jetzt ein Code geschrieben womit ich ein Bild Vertikal Spiegeln kann.
Das ist folgender Code

Delphi-Quellcode:

			procedure VertikalSpiegele(Bild1:TImage);

var    x,y:integer;

       hilf : TColor;

begin

  for x:=0 to Bild1.width div 2 - 1 do

   for y:=0 to Bild1.height - 1 do

   begin

    hilf := Bild1.canvas.pixels[x,y];

    Bild1.canvas.pixels[x,y]:=Bild1.canvas.pixels[Bild1.width-1-x,y];

    Bild1.canvas.pixels[Bild1.width-1-x,y] := hilf;

   end

end;

Allerdings steig ich da nicht wirklich durch (da mit hilfe des Lehrers geschrieben)
Aber geschrieben hab das wirklich ich
Ich hab an folgendes Gedacht für Horizontal spiegeln:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure VertikalSpiegele(Bild1:TImage);

var    x,y:integer;

       hilf : TColor;

begin

  for x:=0 to Bild1.width  - 1 do

   for y:=0 to Bild1.height div 2 - 1 do

   begin

    hilf := Bild1.canvas.pixels[x,y];

    Bild1.canvas.pixels[x,y]:=Bild1.canvas.pixels[Bild1.height-1-y,x];

    Bild1.canvas.pixels[Bild1.height-1-y,x] := hilf;

   end

end;

klappt aber nich

Bild Horizontal spiegeln (vertikal klappt)

Bild Horizontal spiegeln (vertikal klappt)

Forumregeln