Создание стилизованных переключателей в Delphi: соответствие теме Windows

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

В данной статье мы рассмотрим, как можно реализовать стилизованный категорийный селектор, аналогичный тому, что используется в диалоговом окне Word 2010. Особое внимание будет уделено соответствию элемента текущей теме Windows, то есть использованию цвета clWindow вместо clWhite.

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

Диалоговое окно настроек Word 2010 использует набор белых "переключателей", которые становятся оранжевыми при выборе. Необходимо воссоздать такое поведение в Delphi, при этом следуя текущей теме Windows.

Решение проблемы

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

Пример реализации

type
  TButtonGroup = class(Vcl.ButtonGroup.TButtonGroup)
  protected
    procedure Paint; override;
  end;

procedure TButtonGroup.Paint;
var
  R: TRect;
begin
  inherited;
  R := GetClientRect;
  R.Top := Self.Items.Count * Self.ButtonHeight;
  Self.Canvas.FillRect(R); // Заливка фоном
end;

procedure TForm1.ButtonGroup1DrawButton(Sender: TObject; Index: Integer;
  Canvas: TCanvas; Rect: TRect; State: TButtonDrawState);
var
  // Переменные для отрисовки
begin
  if bdsSelected in State then begin
    Canvas.Brush.Color := RGB(255,228,138); // Цвет для выделенного состояния
  end
  else if bdsHot in State then begin
    Canvas.Brush.Color := RGB(194,221,244); // Цвет для состояния "горячая" кнопка
  end
  else begin
    Canvas.Brush.Color := clWindow; // Цвет для обычного состояния
  end;

  if not (bdsSelected in State)
    then
      Canvas.FillRect(Rect); // Заливка фоном для обычного состояния

  // Дополнительная отрисовка: текст, иконки и т.д.
end;

Важные моменты

• Использование стандартных методов отрисовки для соответствия текущей теме Windows.
• Применение цвета clWindow для обычного состояния кнопки.
• Возможность изменения цвета выделения и "горячего" состояния в соответствии с нуждами дизайна.

Альтернативные решения

Помимо TButtonGroup, можно использовать TListBox с lbOwnerDrawFixed или lbOwnerDrawVariable для отрисовки элементов списка. Также существует сторонний компонент TAdvPolyList от TMS Software, который предоставляет широкие возможности для создания стилизованных интерфейсов.

Заключение

В данной статье мы рассмотрели, как можно воссоздать стилизованный категорийный селектор в Delphi, следуя текущей теме Windows. Приведенные примеры кода помогут в реализации подобных элементов управления.

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

В статье рассматривается создание стилизованных переключателей в Delphi, соответствующих текущей теме Windows, с использованием компонента TButtonGroup и методов стандартной отрисовки.

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

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

:: Главная :: Кнопки ::