Добавлено:
- Для FCheckBoxTree — двустороннее управление чекбоксами секции (главный ↔ дочерние, включая радиокнопки).
- Для FSpeedButton — процедура Pressed(FValue: Boolean), гарантирует, что кнопка визуально выглядит нажатой при старте.
Я знаю. Размер жалкознаю что там нету вирус, но раньше такой не было, касперский удалить даже fmxbridge dll
Посмотреть вложение 9842
//{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}
//{$WEAKLINKRTTI ON}
Внимание: функция экспериментальная. Меняет акцентный цвет по всему стилю. Если стиль нестандартный, результат может отличаться. Сценарий продолжит работать даже при некорректном стиле.object TLayout
StyleName = '#resources'
object TBrushObject
StyleName = 'color_accent'
Brush.Color = xFF60CDFF // исходный акцентный цвет, должен совпадать с тем что хотите искать и заменить.
end
end// Загрузка стиля и замена акцента на новый цвет
// AccentColor = 0 → оставляем цвет из стиля
TFForm.LoadStyleFromFile('C:\Path\To\Style.style', $FF0781E0);
// Или оставляем как в стиле:
TFForm.LoadStyleFromFile('C:\Path\To\Style.style', 0);
https://github.com/HemulGM/DelphiWinUI3
А говорил нельзя, да нельзя. Теперь в стилях несколько цветов определить для того-же материала и сделать замену при запуске -_- Полюбому сделаешьЭкспериментальный патч акцентного цвета.
1. Стиль
Стиль должен быть FMX, а не набор атласов (как в VCL).
В стиле обязательно должен быть ресурс с именем color_accent:
Патч ищет цвет именно в #resources и заменяет его по всему стилю.code_language.pascal:object TLayout StyleName = '#resources' object TBrushObject StyleName = 'color_accent' Brush.Color = xFF60CDFF // исходный акцентный цвет, должен совпадать с тем что хотите искать и заменить. end end
Если ресурс отсутствует - цвет не меняется.
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 - ничего не меняется.
Пользователь сам решает, менять акцентный цвет или оставить как в стиле.
Всё бессовестно взято отсюда
Можно. Только это уже в отдельную нужно процедуруА говорил нельзя, да нельзя. Теперь в стилях несколько цветов определить для того-же материала и сделать замену при запуске -_- Полюбому сделаешь
Я не знаю как с ними бороться.знаю что там нету вирус, но раньше такой не было, касперский удалить даже fmxbridge dll
Посмотреть вложение 9842
