Kylix

Вопрос

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

Ответ

uses QT;

procedure TForm1.RotatedText(Cnv: TCanvas; Wkl: Integer; Pxy: TPoint; Txt: string);
var
   PrPoint: TPoint;
begin
   // Поворот канвы
   QPainter_rotate(Cnv.Handle, Wkl);
// Перевод координат устройства в координаты модели.
   QPainter_xFormDev(Cnv.Handle, PPoint(@PrPoint), PPoint(@Pxy));
   // Написание текста.
Canvas.TextOut(PrPoint.X, PrPoint.Y, Txt);
end;

Кирилл Краснов