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