Как нарисовать повёрнутый текст
Как нарисовать повёрнутый текст
uses
QT;
procedure TForm1.RotatedText(Cnv: TCanvas; Wkl: Integer; Pxy: TPoint; Txt: string);
var
PrPoint: TPoint;
begin
// Rotate Canvas
QPainter_rotate(Cnv.Handle, Wkl);
// Convert Device Coord. to Modell- Coord.
QPainter_xFormDev(Cnv.Handle, PPoint(@PrPoint),
PPoint(@Pxy));
// Write text.
Canvas.TextOut(PrPoint.X, PrPoint.Y, 'Txt');
end;
Взято с сайта
