Экспериментальный патч акцентного цвета.
Внимание: функция экспериментальная. Меняет акцентный цвет по всему стилю. Если стиль нестандартный, результат может отличаться. Сценарий продолжит работать даже при некорректном стиле.
1. Стиль
Стиль должен быть
FMX, а не набор атласов (как в VCL).
В стиле обязательно должен быть ресурс с именем
color_accent:
code_language.pascal:
object TLayout
StyleName = '#resources'
object TBrushObject
StyleName = 'color_accent'
Brush.Color = xFF60CDFF // исходный акцентный цвет, должен совпадать с тем что хотите искать и заменить.
end
end
Патч ищет цвет именно в #resources и заменяет его по всему стилю.
Если ресурс отсутствует - цвет не меняется.
2. Как использовать
code_language.pascal:
// Загрузка стиля и замена акцента на новый цвет
// AccentColor = 0 → оставляем цвет из стиля
TFForm.LoadStyleFromFile('C:\Path\To\Style.style', $FF0781E0);
// Или оставляем как в стиле:
TFForm.LoadStyleFromFile('C:\Path\To\Style.style', 0);
3. Куда применяется новый цвет
Фоны кнопок и панелей (TShape / TRectangle)
Внутренние заливки стиля (TBrushObject / TColorObject)
Анимации цвета при наведении и клике (TColorAnimation)
Тексты на кнопках и вкладках (TLabel / TText / TTabStyleTextObject / TActiveStyleTextObject / TButtonStyleTextObject)
Переключатели (TSwitchObject)
Эффекты заливки (TFillRGBEffect)
Меняется
только основной цвет, прозрачность остаётся прежней. Hover/Pressed эффекты работают корректно.
4. Принцип работы
Патч ищет ресурс color_accent.
Если найден - меняет цвет
по всему стилю, сохраняя прозрачность.
Если не найден или передан 0 - ничего не меняется.
Пользователь сам решает, менять акцентный цвет или оставить как в стиле.
Всё бессовестно взято отсюда
https://github.com/HemulGM/DelphiWinUI3
