Bild an der x-aschse spiegeln

[Fussball-Robby]

Ich habe mir den Code jetzt nicht genau angeguckt, habe aber einen anderen Vorschlag, den auch du bestimmt verstehst. Hab mal ne kleine Prozedur geschrieben:

Delphi-Quellcode:

procedure Spiegeln(Bild:TImage; var NeuesBild:TImage);
var    i,j:integer;
begin
  for i:=0 to Bild.width do
   for j:=0 to Bild.height do
    NeuesBild.canvas.pixels[i,j]:=Bild.canvas.pixels[Bild.width-i,Bild.height-j];
end;

//////Beispielaufruf:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Spiegeln(Image1,Image2);//Image1 ist das Ausgangsbild, Image2 dann das gespiegelte
end;

Dabei muss das Bild ein Bitmap sein, sonst gints nen Fehler.

Mfg, Robert