Bild an der x-aschse spiegeln

[Muetze1]

@Fussball-Robby: Dann schreib aber auch dazu, dass er sich mit der Funktion auch erstmal bei leicht grösseren Bildern eine Tasse Kaffee aufsetzen kann. Es gibt wirklich keine langsamere Möglichkeit ein Bild zu spiegeln als über die Pixels[] Eigenschaft. Nutz doch sonst wenigstens die ScanLine[] Property von TBitmap, das würde das ganze nochmal deutlich verschnellern.

@andiak:

Delphi-Quellcode:

procedure Spiegeln(Bild: TBitmap);
Begin
  StretchBlt(Bild.Canvas.Handle, 
               0, 
               0,  
               Bild.Width,
               Bild.Height, 
             Bild.Canvas.Handle,
               Bild.Width - 1, 
               0, 
               -Bild.Width,
               Bild.Height, 
             SRCCopy);
end;

Aufruf mit z.B. Spiegeln(Image1.Picture.Bitmap);