Как нарисовать повёрнутый текст

Previous  Top  Next

    
 

 

 

Code:

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;

 

©Drkb::04613

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php