Привет всем.
Делаю свои компонент, визуальныи, 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