uses
QT;
procedure TForm1.RotatedText(Cnv: TCanvas; Wkl: Integer; Pxy: TPoint; Txt: string);
var
PrPoint: TPoint;
begin
// Rotate Canvas
// Canvas rotieren.
QPainter_rotate(Cnv.Handle, Wkl);
// Convert Device Coord. to Modell- Coord.
// Device Koordinaten zu Modell-Koordinaten konvertieren.
QPainter_xFormDev(Cnv.Handle, PPoint(@PrPoint),
PPoint(@Pxy));
// Write text.
// Text ausgeben.
Canvas.TextOut(PrPoint.X, PrPoint.Y, Txt');
end;