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:
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