Изменить градиент в ApplyStyleLookup

Question

Я пытаюсь изменить цвет градиента TSpeedbutton во время выполнения с помощью ApplyStyleLookup, но по какой-то причине только верхняя часть второй кнопки кнопки меняет цвет. Когда я меняю его во время разработки, я вижу три точки для градиента. Я использую buttonstyle в TSpeedbuttons StyleLookup. Использование Delphi XE6 Rad Studio.

Спасибо. Добавлено 8/29/14 Я нашел способ изменить градиент, см. Ниже. Но моя проблема заключается в том, что на кнопочном стиле есть три прямоугольника, и тот, который мне нужен, - это прямоугольник2 под фоном. Что мне нужно для доступа к нему.

procedure TForm1.SpeedButton1ApplyStyleLookup(Sender: TObject); 
var 
    BckObject: TFmxObject; 
begin 
    BckObject := SpeedButton1.FindStyleResource('background'); 
    if Assigned(BckObject) and (BckObject is TRectAngle) then 
    begin 
    TRectAngle(BckObject).Fill.Gradient.Style := TGradientStyle.Linear; 
    TRectAngle(BckObject).Fill.Gradient.Points.Points[0].Color := $FF0097A5; 
    TRectAngle(BckObject).Fill.Gradient.Points.Points[0].Offset := 0.25; 
    TRectAngle(BckObject).Fill.Gradient.Points.Points[1].Color := $FF0097F5; 
    TRectAngle(BckObject).Fill.Gradient.Points.Points[1].Offset := 1.00; 
    end; 

end; 

Answer 1

rectangle2 (TRectAngle) в фоновом режиме имеет свойство StyleName пустым, путем ввода имени в StyleName и сохранить его, я могу получить доступ к rectangle2, используя тот же метод: BckObject: = SpeedButton1.FindStyleResource (» Мое имя');