Грабли с TTextSettings

Janex
Дата: 10.12.2019 13:45:15
Привет всем.
Делаю свои компонент, визуальныи, FMX.
В нём в нутри лежит TEdit.
Надо его своиство TextSettings вынести в наружу, тоесть на самом моём компоненте TxdfEdit:

TxdfEdit = Class(TStyledControl)
Private
  FEdit   TEdit;
Published
  Property TextSettings   :TTextSettings Read GetTextSettings Write SetTextSettings;
End;

Function TxdfEdit.GetTextSettings: TTextSettings;
Begin
  Result := FEdit.TextSettings;
End;

Procedure TxdfEdit.SetTextSettings(AValue :TTextSettings);
Begin
  FEdit.TextSettings := AValue;
End;


И проблема тут токая, что в дизаинтаиме ето работает, тоесть ставим Bold и текст в FEdit становится Bold-м,
но если даже в дизаинтаиме переоткрить форму(тоесть компонент создаётся заного) то FEdit
без Bold-а, в рантаиме тоже. Своиство Bold как бы сохраняется в соурце, но при создания компонента
TextSettings непереходит в FEdit :(

Пробовал даже через метод Loaded, поставив там;
FEdit.TextSettings.Assign(TextSettings);
Непомогает :(

Есть идеи где грабли?

WBR
Janex
Janex
Дата: 10.12.2019 15:08:14
Сам понел, разобрался :)