Image spiegeln

[himitsu]

Sowas ist mit StretchBlt möglich

Delphi-Quellcode:

{horizontal spiegeln}
  Procedure TForm1.Button1Click(Sender: TObject);
    Begin
      StretchBlt(BitMapPaintBox5.Canvas.Handle, 0, 0, BitMapPaintBox5.Width,
        BitMapPaintBox5.Height, BitMapPaintBox5.Canvas.Handle,
        BitMapPaintBox5.Width - 1, 0, -BitMapPaintBox5.Width,
        BitMapPaintBox5.Height, SRCCopy);
      PaintBox5Paint(Sender);
    End;

{vertikal spiegeln}
  Procedure TForm1.Button2Click(Sender: TObject);
    Begin
      StretchBlt(BitMapPaintBox5.Canvas.Handle, 0, 0, BitMapPaintBox5.Width,
        BitMapPaintBox5.Height, BitMapPaintBox5.Canvas.Handle, 0,
        BitMapPaintBox5.Height - 1, BitMapPaintBox5.Width,
        -BitMapPaintBox5.Height, SRCCopy);
      PaintBox5Paint(Sender);
    End;