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;

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

Вопрос

Почему программа, написаная в Kylix3, под средой работает, а без среды не запускается?

Ответ

Это исправляется следующим образом:
Прописать пути к библиотекам. В файле .bash_profile в строку PATH добавить путь к директории bin Kylix'а. Например, если он установлен в /usr/kylix — то добавить надо путь /usr/kylix/bin.
В файл /etc/ld.so.conf добавить строчку с путем к libqtintf.so (в нашем примере /usr/kylix/bin)
Запустить ldconfig.

A.Z.