printer.canvas.Textout spiegelverkehrt ausgeben ?

[Lannes]

Hallo,

Ergebnis siehe Anlage:

Delphi-Quellcode:

var ZielRect,QuellRect : TRect;
    s : String;
begin
  Canvas.Font.Size := 30;
  s := 'Spiegelschrift geht so ???';
  Canvas.TextOut(0,0,s);
  QuellRect.Left := Canvas.TextWidth(s);//<----  Left ist größer
  QuellRect.Top := 0;
  QuellRect.Right := 0;//<----                   als Right !!!
  QuellRect.Bottom := Canvas.TextHeight(s);
  ZielRect.Left := 0;
  ZielRect.Top := 50;
  ZielRect.Right := Canvas.TextWidth(s);
  ZielRect.Bottom := Canvas.TextHeight(s)+50;
  Canvas.CopyRect(ZielRect,Canvas,QuellRect);