Свойства стиля у TSwitch

[gonzales]

Доброго времени суток!

Подскажите, как добраться до свойств стиля компонента TSwitch. Конкретно задача в рантайме изменять цвета у переключателя. В стиле есть свойства Fill, FillOn типа TBrush, соответственно у них есть свойство Color

К сожалению не могу достучаться до них ни через StylesData, ни через FindStyleResource. Судя по всему я что-то не так делаю

ReleSwitch := TSwitch.Create(form1);
ReleSwitch.Parent := form1;
ReleSwitch.StyleLookup := 'switchstyledark';
ReleSwitch.StylesData['Fill.Color'] := TAlphaColorRec.Yellow;  //не отрабатывает
c:=ReleSwitch.StylesData['Fill.Color'].AsExtended; //возвращает 0

StyleObject := ReleSwitch.FindStyleResource('switchstyledark') //возвращает null

Да, скорее всего важная ремарка, что я пытаюсь изменить элемент стиля прямо в конструкторе. Вот тут 

 Ярослав Бровин указывает, что необходимо явно загрузить стиль, или использовать переопределение OnApplyStyleLookup. Делал и так и так, не помогает

Если кто знает, в какую сторону копать, пните плиз

[Slym]

ReleSwitch.StylesData['АГДЕКОМУ?.Fill.Color']
обязательно должен быть АГДЕКОМУ
если этот АГДЕКОМУ это кореть стиля - то поместит стиль в TLayout, а этот самый АГДЕКОМУ дать имя

[Slym]

т.е. не получится что-то изменить через StylesData поля корневого элемента стиля...
все что хочется изменить должно быть  ниже корневого элемента

[gonzales]

Я положил стиль в TLayout, но теперь сам Switch перестал работать, не фурычит IsChecked, соответственно на мышку тоже не отрабатывает))

[Slym]

Мда...
На такой случай мы патчим FMX.Controls.pas

procedure TStyledControl.StyleDataChanged(const Index: string; const Value: TValue);
var
  Obj: TObject;
  InstanceName, PropertyName: string;
  PropertyValue: TValue;
begin
  PropertyName := Index;
  InstanceName := GetToken(PropertyName, '.');

  if SameText(InstanceName,'self') then
    Obj:=FResourceLink
  else
    Obj := FindStyleResource(InstanceName);
  if Obj <> nil then

и тогда ReleSwitch.StylesData['self.Fill.Color']

[gonzales]

Спасибо, но не сработало. ReleSwitch.StylesData['self.Fill.Color'] возвращает 0

procedure TStyledControl.StyleDataChanged(const Index: string; const Value: TValue);
var
  Obj: TObject;
  InstanceName, PropertyName: string;
  PropertyValue: TValue;
begin
  PropertyName := Index;
  InstanceName := GetToken(PropertyName, '.');

  if SameText(InstanceName,'self') then
    Obj:=FResourceLink
  else
    Obj := FindStyleResource(InstanceName);
  if Obj <> nil then
  begin
    if not PropertyName.IsEmpty then
    begin
      PropertyValue := Value;
      FindProperty(Obj, PropertyName,
        procedure (Instance: TObject; Prop: TRttiProperty)
        begin
          Prop.SetValue(Instance, PropertyValue);
        end);
    end else
      TFmxObject(Obj).Data := Value;
  end
end;

 

[gonzales]

поставил Breakpoint на процедуру TStyledControl.StyleDataChanged.

Так он вообще в нее не заходит((

[Slym]

значит патченый FMX.Controls.pas не компилирует... полож его в папку проекта и явно добавь в проект

кстати сам стиль надо искать так
Style:=FMX.Types.FindStyleResource(StyleName);
а далее
TSwitchObject(Style).Fill....

Изменено 29 апреля, 2020 пользователем Slym

[gonzales]

35 минут назад, Slym сказал:

значит патченый FMX.Controls.pas не компилирует... полож его в папку проекта и явно добавь в проект

А там гора файлов, FMX.Controls.***.pas. Если я буду для андроида такой фокус делать, нужно ли тянуть с собой FMX.Controls.Android.pas?

[Slym]

Не ну черным по белому FMX.Controls.pas - один файл...
и сначала попробуй FMX.Types.FindStyleResource(StyleName); как выше... может будет достаточно

[gonzales]

52 минуты назад, Slym сказал:

кстати сам стиль надо искать так
Style:=FMX.Types.FindStyleResource(StyleName);
а далее
TSwitchObject(Style).Fill....

Только он не знает, что такое TSwitchObject, этот фокус я тоже пробывал

[gonzales]

Может Вы знаете, какой юнит надо прицепить, где содержится TSwitchObject

[gonzales]

Нашел. 

FMX.Styles.Switch

Но такой вариант работает только на Винде, на Андроид не пашет.

Style:=FMX.Types.FindStyleResource('switchstyledark');
  TSwitchObject(Style).Fill.Color:=TAlphaColorRec.Yellow;
  Switch1.StyleLookup := 'switchstyledark';

 

[gonzales]

 

1 час назад, Slym сказал:

значит патченый FMX.Controls.pas не компилирует... полож его в папку проекта и явно добавь в проект

Тоже не сработало(( 

[gonzales]

Работает только в одном случае, если стиль TSwitchObject положить в Layout. Но пропадает свойство IsChecked, компонент становится неработоспособен.