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

Delphi , ОС и Железо , Kylix

Автор: http://www.swissdelphicenter.ch

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;

Here is the translation of the provided content into Russian:

Основная функция

Процедура RotatedText принимает четыре параметра:

procedure TForm1.RotatedText(Cnv: TCanvas; Wkl: Integer; Pxy: TPoint; Txt: string);

• Cnv: Кanvas, на котором будет нарисована текстовая строка.
• Wkl: Целочисленное значение, представляющее угол поворота (в градусах).
• Pxy: Точка, представляющая координаты, где должна быть нарисована текстовая строка.
• Txt: Текстовая строка, которая будет повернута и нарисована.

Поворот Кanvas

Первая строка кода поворачивает Kanvas, вызывая функцию QPainter_rotate, передавая в нее handle Кanvas и угол поворота (Wkl) как аргументы:

QPainter_rotate(Cnv.Handle, Wkl);

Это поворачивает всю Кanvas на указанный угол.

Преобразование устройственных координат в модели

Следующая строка кода преобразует устройственные координаты (представленные Pxy) в модельные координаты с помощью функции QPainter_xFormDev. Используется синтаксис @PrPoint и @Pxy, чтобы передать указатели на переменные:

QPainter_xFormDev(Cnv.Handle, PPoint(@PrPoint), PPoint(@Pxy));

Эта шага необходима потому, что система координат Кanvas может не совпадать с системой координат устройства (например, экрана). Преобразование в модельные координаты позволяет обеспечить, что текст будет нарисован на правильном месте.

Нарисовать текст

Наконец, метод TextOut Кanvas используется для рисования повернутой текстовой строки:

Canvas.TextOut(PrPoint.X, PrPoint.Y, Txt);

Переменная PrPoint теперь содержит преобразованные модельные координаты, которые используются как координаты x и y для рисования текста.

Альтернативное решение

Хотя код использует функции Qt-специфические, стоит отметить, что можно достичь аналогичных результатов с помощью встроенных библиотек графики Delphi. Например, можно использовать метод Canvas.Rotate, чтобы поворачивать Кanvas, и затем рисовать текст с помощью TextOut. Это может быть более простым и легким для поддержки.

Вот упрощенная альтернативная реализация:

procedure TForm1.RotatedText(Cnv: TCanvas; Wkl: Integer; Pxy: TPoint; Txt: string);
begin
  Cnv.Rotate(Wkl); // Поворачивает Кanvas на угол Wkl градусов
  Cnv.TextOut(Pxy.X, Pxy.Y, Txt); // Рисует текст на координатах Pxy
end;

Обратите внимание, что это альтернативное решение предполагает более простой сценарий, где вам нужно только поворачивать текст без преобразования. Если ваши требования более сложны (например, смещение или перспективные преобразования), использование библиотеки графики Qt может быть лучшим выбором.

В статье описывается способ рисования повёрнутого текста на экране с помощью программы на языке Delphi и использования библиотеки QT.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Kylix ::