Улучшение Внешнего Вида Элементов Delphi: Использование `TPanel` и Отступы Текста

Delphi , Графика и Игры , Цвета и Палитра

Улучшение Внешнего Вида Элементов Delphi: Использование TPanel и Отступы Текста

Вопрос, поднятый пользователем, заключается в том, как создать вид интерфейса, подобный изображению в жёлтом прямоугольнике, используя компонент TPanel и при этом обеспечить отступ текста от левого края. В контексте вопроса рассматривается возможность использования цвета фона панели и размещения на нём текста с отступом.

Подход с использованием TPanel и стандартных свойств

Самый простой способ достичь желаемого результата — использовать TPanel и настроить его свойства таким образом, чтобы он не имел визуальных украшений и мог выступать в роли фона для текста. Для этого необходимо установить свойство ParentBackground в false, BevelOuter в bvNone, Font.Color в clWhite, Font.Style в [fsBold] и Color в нужный цвет фона. После этого в свойство Caption TPanel можно добавить один или два пробела в начале текста, чтобы создать отступ.

Пример кода для свойств TPanel:

Panel1.ParentBackground := False;
Panel1.BevelOuter := bvNone;
Panel1.Font.Color := clWhite;
Panel1.Font.Style := [fsBold];
Panel1.Color := clBlue; // Выберете нужный цвет фона
Panel1.Caption := '  Текст с отступом';

Создание пользовательского компонента для улучшения визуального оформления

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

unit CaptionBar;

interface

uses
  Windows, SysUtils, Classes, Controls, Graphics;

type
  TCaptionBar = class(TCustomControl)
  private
    FColor: TColor;
    FCaption: TCaption;
    FEllipsis: boolean;
    FIndent: Integer;
    procedure SetCaption(const Value: TCaption);
    procedure SetColor(const Value: TColor);
    procedure SetEllipsis(const Value: boolean);
    procedure SetIndent(const Value: Integer);
  protected
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property Font;
    property Anchors;
    property Align;
    property Caption: TCaption read FCaption write SetCaption;
    property Color: TColor read FColor write SetColor default clSkyBlue;
    property Ellipsis: boolean read FEllipsis write SetEllipsis default true;
    property Indent: Integer read FIndent write SetIndent default 4;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Rejbrand 2009', [TCaptionBar]);
end;

constructor TCaptionBar.Create(AOwner: TComponent);
begin
  inherited;
  FIndent := 4;
  FColor := clSkyBlue;
  FEllipsis := true;
end;

procedure TCaptionBar.Paint;
var
  r: TRect;
begin
  inherited;
  Canvas.Brush.Color := FColor;
  Canvas.FillRect(ClientRect);
  r := ClientRect;
  r.Left := r.Left + FIndent;
  Canvas.Font.Assign(Font);
  DrawText(Canvas.Handle, PChar(FCaption), Length(FCaption),
    r, DT_SINGLELINE or DT_LEFT or DT_VCENTER or
    (FEllipsis ? DT_END_ELLIPSIS : 0));
end;

procedure TCaptionBar.SetCaption(const Value: TCaption);
begin
  if not SameText(FCaption, Value) then
  begin
    FCaption := Value;
    Invalidate;
  end;
end;

procedure TCaptionBar.SetColor(const Value: TColor);
begin
  if FColor <> Value then
  begin
    FColor := Value;
    Invalidate;
  end;
end;

procedure TCaptionBar.SetEllipsis(const Value: boolean);
begin
  FEllipsis := Value;
  Invalidate;
end;

procedure TCaptionBar.SetIndent(const Value: Integer);
begin
  FIndent := Value;
  Invalidate;
end;

end.

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

Используя оба подхода, можно добиться желаемого вида интерфейса, при этом сохраняя его читаемость и доступность для пользователя.

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

Улучшение внешнего вида элементов Delphi с использованием `TPanel` и добавление отступов для текста.

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

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

:: Главная :: Цвета и Палитра ::