Как вращать текст

Delphi , Графика и Игры , Canvas

procedure TextOutAngle(x,y,aAngle,aSize: integer; txt: string);
var
  hFont, Fontold: integer;
  DC: hdc;
  Fontname: string;
begin
  if length(txt) = 0 then
    Exit;
  DC:= Screen.ActiveForm.Canvas.handle;
  SetBkMode(DC, transparent);
  Fontname:= Screen.ActiveForm.Canvas.Font.name;
  hFont:= CreateFont(-aSize,0, aAngle*10,0, fw_normal,0, 0,
  0,1,4,$10,2,4,PChar(Fontname));
  Fontold:= SelectObject(DC, hFont);
  TextOut(DC,x,y,PChar(txt), length(txt));
  SelectObject(DC, Fontold);
  DeleteObject(hFont);
end;

Here is a translation of the provided content into Russian:

Процедура Delphi TextOutAngle, которая вращает текст на экране. Вот разбивка кода:

Параметры входа:

• x, y: целочисленные координаты, где будет нарисован вращенный текст.
• aAngle: целочисленное значение угла в градусах (умноженное на 10) для вращения текста против часовой стрелки.
• aSize: целочисленное значение размера шрифта для отображения текста.
• txt: строка, содержащая текст, который будет вращен.

Внутренние переменные:

• hFont, Fontold: целочисленные handles для объектов шрифта.
• DC: handle hdc (устройство контекста) для взаимодействия с экраном.
• Fontname: строка, представляющая имя шрифта для использования.

Основной логик:

1. Если входной текст пуст (length( txt ) = 0), выйти из процедуры немедленно.
2. Получить handle канваса активной формы с помощью Screen.ActiveForm.Canvas.handle.
3. Установить режим фона в прозрачный с помощью SetBkMode.
4. Сохранить текущее имя шрифта и создать новый объект шрифта с указанным размером, углом и именем шрифта с помощью CreateFont. Угол умножается на 10, потому что функция CreateFont ожидает угол в логических единицах (LU) на дюйм (PI), а входной угол - в градусах.
5. Выбрать созданный новый объект шрифта как текущий шрифт для устройства контекста с помощью SelectObject.
6. Нарисовать текст на указанных координатах с помощью TextOut. Конвертация PChar( txt ) используется для передачи указателя на строку текста.
7. Восстановить оригинальный объект шрифта, выбрав его обратно в устройство контекста с помощью SelectObject.
8. Удалить временный объект шрифта с помощью DeleteObject.

Возвращаемое значение: Процедура не возвращает явное значение, но модифицирует экран, нарисовав вращенный текст.

Альтернативное решение: Если вы хотите вращать текст без создания нового объекта шрифта каждый раз, можно использовать более эффективный подход следующим образом:

1. Создайте одиночный объект шрифта с желаемым размером и стилем.
2. Вращайте текст с помощью тригонометрии (например, sin(aAngle) * cos(aAngle) ) или функцией библиотеки, которая может вращать текст.
3. Нарисуйте вращенный текст с помощью оригинального объекта шрифта.

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

В статье описывается процедура 'TextOutAngle', которая позволяет вращать текст на экране с помощью создания шрифта с указанным углом поворота и последующего вывода текста на канвасе.

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

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

:: Главная :: Canvas ::