Как применить стили к отдельным контролам Delphi без загрузки стиля на уровне приложения

Delphi , Программа и Интерфейс , Размеры и Положение

Проблема

Многие разработчики сталкиваются с необходимостью применить стиль только к определенным контролам в Delphi, не активируя его на уровне всего приложения. Обычно для этого используется свойство StyleName, но, как отмечает пользователь CyberPeter, это работает только после вызова TStyleManager.TrySetStyle().

Основные проблемы при использовании VCL-стилей:
- Мерцание (особенно при динамическом создании форм или прокрутке списков);
- Снижение производительности на слабых компьютерах;
- Нежелательное влияние на другие компоненты, использующие системные цвета.

Решение 1: Использование возможности "Per-Control Styles" (начиная с RAD Studio 10.4)

Начиная с версии 10.4, Delphi поддерживает применение стилей к отдельным контролам. Вот как это можно реализовать:

uses
  Vcl.Themes;

procedure TForm1.Button1Click(Sender: TObject);
var
  LStyle: TCustomStyleServices;
begin
  // Загружаем стиль, но не применяем его ко всему приложению
  LStyle := TStyleManager.LoadFromResource(HInstance, 'WINDOWS11_MODERN_LIGHT', RT_RCDATA);

  // Применяем стиль только к конкретному контролу
  TStyleManager.SetStyle(MyTrackBar, LStyle);
end;

Преимущества:
- Не требует активации стиля на уровне приложения;
- Позволяет комбинировать разные стили в одном интерфейсе.

Недостатки:
- Доступно только в новых версиях Delphi (10.4+);
- Некоторые компоненты могут некорректно отображаться.

Решение 2: Ручная настройка внешнего вида контролов

Если вам нужно стилизовать только определенные элементы (например, TrackBar), можно изменить их свойства вручную:

procedure TForm1.ApplyCustomLookToTrackBar(ATrackBar: TTrackBar);
begin
  ATrackBar.Color := clWhite;
  ATrackBar.SelStart := clBlue;
  ATrackBar.SelEnd := clSkyBlue;
  // Другие настройки внешнего вида...
end;

Решение 3: Отключение фона родительского контейнера

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

Panel1.ParentBackground := False;

Альтернативное решение: Кастомный рендеринг

Для сложных случаев можно создать потомка компонента и переопределить его метод Paint:

type
  TMyStyledTrackBar = class(TTrackBar)
  protected
    procedure Paint; override;
  end;

procedure TMyStyledTrackBar.Paint;
begin
  // Кастомная отрисовка с учетом нужного стиля
  Canvas.Brush.Color := clWhite;
  Canvas.FillRect(ClientRect);
  // Дополнительная логика отрисовки...
end;

Заключение

Хотя стандартные VCL-стили требуют активации на уровне приложения, существуют обходные решения:
1. Per-Control Styles (в новых версиях Delphi);
2. Ручная настройка свойств компонентов;
3. Кастомный рендеринг.

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

Если вам критически важно сохранить "нативный" вид Windows, но при этом улучшить внешний вид отдельных элементов, рассмотрите комбинацию ParentBackground := False и точечного изменения свойств компонентов.

Пример полной реализации (Delphi 10.4+):

procedure TForm1.FormCreate(Sender: TObject);
var
  LStyle: TCustomStyleServices;
begin
  // Загружаем стиль, но не применяем его глобально
  LStyle := TStyleManager.LoadFromFile('Windows11ModernLight.vsf');

  // Применяем только к TrackBar
  TStyleManager.SetStyle(TrackBar1, LStyle);

  // Отключаем фон для уменьшения мерцания
  Panel1.ParentBackground := False;
end;

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

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

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

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

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

:: Главная :: Размеры и Положение ::