Центрирование текста в многострочных метках в Delphi: пошаговое руководство

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

Приветствую, разработчики на Delphi! В этой статье мы рассмотрим, как центрировать многострочный текст в пределах заданного прямоугольника. Для тех, кто знаком с основами Object Pascal и графического программирования в Delphi, этот процесс окажется довольно простым и понятным.

Проблема

Иногда в программах на Delphi возникает необходимость отобразить текст таким образом, чтобы он был выровнен по центру в заранее определенной области. Каждый символ должен находиться на новой строке, а весь текст — в центре по вертикали и горизонтали.

Пример

Рассмотрим пример с текстом "class", который должен быть выровнен по центру в прямоугольнике. Представим, что у нас уже есть возможность нарисовать отдельный символ, но мы хотим найти более быстрый способ для отображения всего текста.

Решение

Для решения этой задачи можно использовать функцию Canvas.TextHeight() для определения высоты символа, а затем с помощью цикла for проитерировать каждый символ в тексте, выведя его на экран с новой строки.

Подтвержденный ответ

Далее представлен пример процедуры, которая центрирует текст в многострочном режиме:

procedure DrawVert(Canvas: TCanvas; Box: TRect; const Text: string);
var
  i, TextHeight: Integer;
  s: string;
begin
  TextHeight := Canvas.TextHeight(Text[1]);
  s := '';
  for i := 1 to Length(Text) do
    s := s + Text[i] + #13#10; // Добавляем символ перевода строки после каждого символа
  Canvas.TextRect(Box, s, [tfVerticalCenter, tfHorizontalCenter, tfWordBreak]);
end;

Для тестирования этой процедуры можно использовать следующую функцию обработчика нажатия кнопки:

procedure TForm1.Button1Click(Sender: TObject);
begin
  DrawVert(PaintBox1.Canvas, PaintBox1.ClientRect, 'CLASS TEST');
end;

В этом примере PaintBox1 — это компонент, на котором будет производиться рисование, а ClientRect — это клиентская область этого компонента, где и будет размещен текст.

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

• Перед началом работы с текстом убедитесь, что переменная s инициализирована пустой строкой.
• В примере кода используется символ перевода строки #13#10; для разделения символов на разные строки.
• В настройках TextRect используются флаги tfVerticalCenter и tfHorizontalCenter для центрирования текста по вертикали и горизонтали соответственно.

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

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

Учебное руководство по центрированию многострочного текста в пределах заданного прямоугольника в приложениях на Delphi.

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

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

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