Почему шрифт `TPanel.Font` отличается от шрифта в `Canvas` при рисовании текста под углом в Delphi?

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

Почему шрифт TPanel.Font отличается от шрифта в Canvas при рисовании текста под углом в Delphi?

Разработчики, работающие с компонентами Delphi, иногда сталкиваются с ситуацией, когда свойства шрифта компонента TPanel не соответствуют тем, что используются при рисовании текста на его полотне. Это может быть связано с использованием защищенного доступа к свойствам полотна (Canvas) компонента, что может привести к непониманию, почему шрифт, установленный для TPanel, не применяется при выполнении операций рисования.

Описание проблемы

При использовании функции DrawTextRotatedB из ответа Josef Švejk для рисования текста вертикально на компоненте TPanel в Delphi 10.2, разработчик обнаружил, что свойства шрифта Canvas.Font не соответствуют установленным свойствам TPanel.Font. Это связано с тем, что TPanel не имеет публичного доступа к свойству Canvas, и для его использования приходится применять "защищенный хак".

Пример кода, использующего защищенный доступ к Canvas:

type
   THackPanel = class(TPanel);

procedure DrawTextRotated(ACanvas: TCanvas; Angle, X, Y: Integer; AText: String);
begin
  // Здесь используется ACanvas.Font для рисования текста
end;

DrawTextRotated(THackPanel(PnlLeftLeft).Canvas, 90, PnlLeftLeft.Width DIV 2, cVertDrawOffset, FLeftVertText);

В коде установлены свойства шрифта для TPanel, но при рисовании текст выводится с другими параметрами шрифта:

PnlLeftLeft.Font.Size := 20;
PnlLeftLeft.Font.Style := [fsBold];

THackPanel(PnlLeftLeft).Canvas.Font.Size := 10; // Значение по умолчанию
THackPanel(PnlLeftLeft).Canvas.Font.Style := []; // Значение по умолчанию

Разработчик заметил, что перед вызовом процедуры рисования текста, можно "исправить" ситуацию, присвоив свойства шрифта Canvas значениями из TPanel.Font:

THackPanel(PnlLeftLeft).Canvas.Font := PnlLeftLeft.Font;

Однако, остается вопрос: почему свойства шрифта TPanel.Canvas.Font не отражают свойства TPanel.Font?

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

Разработчики Delphi сделали так, что свойство Canvas.Font может отличаться от Self.Font для обеспечения гибкости при рисовании текста. В ходе одной операции рисования могут использоваться различные шрифты для разных частей элемента управления. Self.Font является основным шрифтом компонента, который отображается в Object Inspector и может быть изменен свойством ParentFont.

Пример кода, который рисует текст, может сначала установить шрифт из Self.Font и затем изменять его во время выполнения рисования (например, для выделения некоторых частей курсивом, жирным шрифтом или разным цветом).

Альтернативный ответ

Дополнительно к вышеуказанному, стоит отметить, что Canvas в Delphi используется для непосредственного рисования на элементе управления, включая текст. Свойства шрифта Canvas.Font относятся к контексту рисования и могут быть установлены отдельно от основных свойств компонента. Это позволяет разработчику использовать различные стили и размеры шрифтов в разных частях компонента или при разных операциях рисования.

Заключение

Таким образом, разница между TPanel.Font и Canvas.Font является намеренной и обусловлена необходимостью гибкости при рисовании текста в компонентах Delphi. Разработчику следует помнить об этом и, при необходимости, явно устанавливать свойства шрифта для Canvas перед выполнением операций рисования.

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

Проблема заключается в различии свойств шрифта между компонентом `TPanel` и его контекстом рисования `Canvas` при выполнении операций с текстом под углом в Delphi, что может быть вызвано защищенным доступом к свойствам `Canvas` и их различием от основных

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

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

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