Bisher habe ich es geschaft mein Bild Vertikal und Horizontal zu spiegeln mit folgender proceduren:
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;
procedure HorizontalSpiegeln (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[x,Bild1.height-1-y];
Bild1.canvas.pixels[x,Bild1.height-1-y] := hilf;
end
end;
funktioniert alles
jetzt muss ich es nur noch hinbekommen das auf befehl das bild um angegeben 90°.... gedreht wird machen wollte ich das mit dem Objekt RatioBox und halt nen button...
Ne idee wie der befehl aussehen muss?
StretchBlt und co soll ich nicht verwenden sondern in der art wie ich das oben geschrieben habr :/