Image spiegeln

[Alex_ITA01]

Hallo erstmal...
ich habe mal ne Frage zum spiegeln eines TImages.Lässt sich das irgendwie realisieren das ich alles was sich darauf befindet (mit Canvas gezeichnet) spiegeln lässt?
Ich poste nachher auch den Source zu der Windrose denn die ist bald fertig...
MFG Alex

[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;

[Alex_ITA01]

hey danke
dein Programm ist echt genial und gut das die Funktionen darüber geschrieben sind.
Danke nochmals
Alex