How to adjust gutter width in run-time

FMX TMS FMX UI Pack
1

I need to have several styles for my project. One is default style. So, I empty the "StyleLookup" property.

And I need to set the gutter width in run-time but it didn't work. My code is below:
Memo1->StyleLookup = "";
Memo1->NeedStyleLookup();
Memo1->ApplyStyleLookup();
Memo1->GetGutter()->Width = 18;
How can I change gutter width in run-time?

Thanks!
2

The above code works as expected here, but you could place the width setting code in the OnApplyStyleLookup event



procedure TForm1.TMSFMXMemo1ApplyStyleLookup(Sender: TObject);
begin
  TMSFMXMemo1.GetGutter.Width := 18;
end;