Отображение текста вдоль дуги на изображении в Delphi XE5: инструкция по использованию Graphics32

Delphi , Графика и Игры , Компоненты и Графика

Для написания статьи, я перескажу информацию из контекста и опишу решение проблемы с учетом альтернативного ответа. Статья будет посвящена отображению текста вдоль дуги на изображении в среде Delphi XE5 с использованием последней версии библиотеки Graphics32.

Отображение текста вдоль дуги на изображении в Delphi XE5

При переходе с Delphi 7 и устаревшей версии Graphics32 на Delphi XE5 с актуальными обновлениями, разработчики могут столкнуться с проблемой несовместимости кода. В частности, методы LoadArcCurve и RenderFittedText, которые использовались ранее для отображения текста вдоль дуги, больше не доступны.

Проблема

В коде Delphi 7 используется функция DrawCopyrightText, которая рисует текст по кривой на изображении DVD. При переходе на Delphi XE5 и последнюю версию Graphics32 данный код перестал компилироваться из-за отсутствия упомянутых методов.

Решение

Для решения проблемы можно использовать расширение Graphics32 от Angus Johnson, называемое GR32_Text. Это решение было предложено в обсуждении и подтверждено пользователем как работающее.

Вот пример кода, который реализует функционал отображения текста вдоль дуги:

procedure DrawCopyrightText(const drawingBuffer: TBitmap32);
var
  fixedPointArray : TArrayOfFixedPoint;
  CopyrightText : string;
  ttFont : TTrueTypeFont;
  text32 : TText32;
  i: integer;
  polyPolyPts: TArrayOfArrayOfArrayOfFixedPoint;
begin
  // Инициализация текста и шрифта
  CopyrightText := Format('%s %s Dystopia Unlimited. All rights reserved.', [GetCopyrightSymbol, fCopyrightYears]);
  text32 := TText32.Create;
  ttFont := TTrueTypeFont.Create(COPYRIGHT_FONT_NAME, COPYRIGHT_FONT_SIZE);
  // Получение точек для дуги
  fixedPointArray := GetArcPoints(FloatRect(30, 30, 2370, 2370), -140, 0);
  // Разбиение текста на полигоны
  polyPolyPts := text32.GetEx(fixedPointArray, CopyrightText, ttFont, aLeft, aMiddle, true, 2);
  // Заливка полигонов цветом
  for i := 0 to high(polyPolyPts) do
    if length(polyPolyPts[i]) > 0 then
      SimpleFill(drawingBuffer, polyPolyPts[i], clWhite32, clWhite32);
end;

Важные замечания

• Используемый код из расширения Angus Johnson не предназначен для коммерческого использования и может содержать ошибки управления памятью.
• При использовании кода необходимо убедиться в его соответствии требованиям безопасности и надежности.

Заключение

Переход на Delphi XE5 с последней версией Graphics32 требует обновления подхода к отображению текста вдоль дуги. Расширение GR32_Text от Angus Johnson предоставляет необходимый функционал для решения этой задачи. Следуя инструкциям и используя примеры кода, разработчики могут успешно интегрировать данный функционал в свои проекты.

Создано по материалам из источника по ссылке.

Статья будет посвящена решению проблемы отображения текста вдоль дуги на изображении в среде Delphi XE5 с использованием актуальной версии библиотеки Graphics32.

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

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

:: Главная :: Компоненты и Графика ::