Я пытаюсь изменить цвет градиента TSpeedbutton во время выполнения с помощью ApplyStyleLookup, но по какой-то причине только верхняя часть второй кнопки кнопки меняет цвет. Когда я меняю его во время
Это код, у меня есть: procedure TDataModule2.MYTABLEBeforePost(DataSet: TDataSet);
begin
if (MYTABLE.FieldByName('DONE').Value = 1) then begin
DataSet.FieldByName('DONE_WHEN').AsDateTime:=Now;
end