powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Грабли с TTextSettings
2 сообщений из 2, страница 1 из 1
Грабли с TTextSettings
    #39900804
Janex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет всем.
Делаю свои компонент, визуальныи, FMX.
В нём в нутри лежит TEdit.
Надо его своиство TextSettings вынести в наружу, тоесть на самом моём компоненте TxdfEdit:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
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
...
Рейтинг: 0 / 0
Грабли с TTextSettings
    #39900856
Janex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сам понел, разобрался :)
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Грабли с TTextSettings
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]