Расположение динамической подписи в центре прогресс-бара на Delphi

Delphi , Компоненты и Классы , TLabel

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

Проблема

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

Решение

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

Label1.Parent := progressBar1;
Label1.AutoSize := False;
Label1.Transparent := True;
Label1.Top := 0;
Label1.Left := 0;
Label1.Width := progressBar1.ClientWidth;
Label1.Height := progressBar1.ClientHeight;
Label1.Alignment := taCenter;
Label1.Layout := tlCenter;

Этот код устанавливает метку как дочерний элемент прогресс-бара, отключает автоматический размер, делает метку прозрачной, устанавливает её размеры равными клиентской области прогресс-бара, центрирует текст и устанавливает выравнивание по центру.

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

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

type
  TProgressBarWithText = class(TProgressBar)
  private
    FProgressText: string;
  protected
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  published
    property ProgressText: string read FProgressText write FProgressText;
  end;

procedure TProgressBarWithText.WMPaint(var Message: TWMPaint);
var
  DC: HDC;
  prevfont: HGDIOBJ;
  prevbkmode: Integer;
  R: TRect;
begin
  inherited;
  if ProgressText <> '' then
  begin
    R := ClientRect;
    DC := GetWindowDC(Handle);
    prevbkmode := SetBkMode(DC, TRANSPARENT);
    prevfont := SelectObject(DC, Font.Handle);
    DrawText(DC, PChar(ProgressText), Length(ProgressText),
      R, DT_SINGLELINE or DT_CENTER or DT_VCENTER);
    SelectObject(DC, prevfont);
    SetBkMode(DC, prevbkmode);
    ReleaseDC(Handle, DC);
  end;
end;

Этот подход позволяет прогресс-бару и тексту быть самодостаточными, без необходимости использования отдельной метки.

Выводы

Оба подхода позволяют разместить динамическую подпись в центре прогресс-бара. Выбор метода зависит от конкретных требований и предпочтений разработчика. Первый метод проще в реализации, второй обеспечивает более тесную интеграцию текста с прогресс-баром.

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

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

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

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

:: Главная :: TLabel ::