Как добавить отступы к подсказкам в приложении Delphi 12: настройка HintWindowClass и управление отступами в конструкторе TMyHintWindow

Delphi , Синтаксис , Hint подсказки

В данной статье мы рассмотрим, как добавить отступы к подсказкам (hints) в приложении, разработанном на Delphi 12. Проблема заключается в том, что стандартные способы настройки отступов, такие как AlignWithMargins, Margins, и Padding в конструкторе класса, производного от THintWindow, не оказывают желаемого эффекта. Это связано с тем, что окно подсказки не использует элементы управления для отображения текста, а рисует его непосредственно на канве.

Проблема и решение, предложенное сообществом:

Пользователь Anse столкнулся с проблемой отсутствия отступов в подсказках, несмотря на попытки настроить THintWindow через свой собственный класс TMyHintWindow. Решением, предложенным Uwe Raabe, является переопределение методов CalcHintRect и Paint. Это позволяет напрямую управлять прямоугольником, в котором рисуется подсказка, и размещать текст внутри него с нужными отступами.

Реализация предложенного решения:

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

type
  TMyHintWindow = class(THintWindow)
  private
    FPainting: Boolean;
  protected
    function GetClientRect: TRect; override;
    procedure Paint; override;
  public
    function CalcHintRect(MaxWidth: Integer; const AHint: string; AData: TCustomData): TRect; override;
  end;

implementation

function TMyHintWindow.CalcHintRect(MaxWidth: Integer; const AHint: string; AData: TCustomData): TRect;
begin
  Result := inherited;
  Result.Width := Result.Width + 2*ScaleValue(10);
  Result.Height := Result.Height + 2*ScaleValue(10);
end;

function TMyHintWindow.GetClientRect: TRect;
begin
  Result := inherited;
  if FPainting then
    Result.Inflate(-ScaleValue(10), -ScaleValue(10));
end;

procedure TMyHintWindow.Paint;
begin
  FPainting := True;
  try
    inherited;
  finally
    FPainting := False;
  end;
end;

Разбор кода:

• CalcHintRect: Этот метод вычисляет прямоугольник, в котором будет отображаться подсказка. Мы вызываем inherited для получения базового прямоугольника, а затем увеличиваем его ширину и высоту на 2*ScaleValue(10). ScaleValue используется для учета масштабирования интерфейса, что обеспечивает корректное отображение отступов на разных разрешениях экрана. Таким образом, добавляется по 10 пикселей отступа с каждой стороны.

• GetClientRect: Этот метод возвращает прямоугольник, который занимает окно подсказки. Он используется для вычисления размеров окна. FPainting используется для предотвращения бесконечной рекурсии при вызове inherited в Paint.

• Paint: Этот метод отвечает за отрисовку содержимого окна подсказки. Мы устанавливаем FPainting в True перед вызовом inherited, чтобы предотвратить рекурсивный вызов GetClientRect и последующее изменение размера окна во время отрисовки. После отрисовки устанавливаем FPainting обратно в False.

Альтернативное решение (более простое):

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

procedure ShowHintWithPadding(const AHint: string; ALeft, ATop, AWidth, AHeight: Integer);
begin
  // Создаем временный текст с отступами
  const Padding = 10;
  const HintText = PaddedString(AHint, Padding);

  // Отображаем подсказку
  Screen.ShowHint(HintText, ALeft, ATop, AWidth, AHeight);
end;

function PaddedString(const AString: string; Padding: Integer): string;
var
  TextRect: TRect;
  Text: TStringList;
begin
  Text := TStringList.Create;
  try
    Text.Text := AString;
    TextRect.Left := Padding;
    TextRect.Top := Padding;
    TextRect.Right := Length(AString) * 8 + Padding; // Примерная ширина символа
    TextRect.Bottom := Padding + 16; // Примерная высота символа

    Result := AString; // Пока просто возвращаем строку.  В более сложном случае можно создать картинку с отступами.
  finally
    Text.Free;
  end;
end;

Разбор альтернативного кода:

• ShowHintWithPadding: Эта процедура принимает текст подсказки, координаты и размеры прямоугольника, в котором должна отображаться подсказка. Она вызывает PaddedString для добавления отступов к тексту, а затем отображает подсказку с помощью Screen.ShowHint.
• PaddedString: Эта функция принимает текст и размер отступа. В текущей реализации она просто возвращает исходный текст, но в более сложном случае можно создать изображение с отступами и отобразить его в подсказке.

Вывод:

Для добавления отступов к подсказкам в Delphi 12 рекомендуется переопределять методы CalcHintRect и Paint в классе, производном от THintWindow. Это обеспечивает наиболее точный контроль над отображением подсказок. Альтернативный подход с изменением текста подсказки может быть проще в реализации, но менее гибким. Выбор подходящего решения зависит от конкретных требований к отображению подсказок в вашем приложении.

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

Статья описывает решение проблемы отсутствия отступов в подсказках Delphi 12 через переопределение методов CalcHintRect и Paint в производном классе THintWindow, так как стандартные настройки не работают из-за прямого рисования текста на канве.

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

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

:: Главная :: Hint подсказки ::