Перейти к содержанию
Fire Monkey от А до Я
  • 0

Смена цвета label в runtime


Alesk

Вопрос

Фрагмент кода:

    nad[g]:= tlabel.Create(tabbedwithnavigationform.label1);
    nad[g].BeginUpdate;
    nad[g].Size.height:=24;
    nad[g].Size.Width:=350;
    nad[g].Text:=we;
    nad[g].position.y:=-99;
    nad[g].Align:=talignlayout.Top;
    nad[g].FontColor:=$FFFEFEFE;
    nad[g].EndUpdate;
    nad[g].Parent:= pod[g];

где nad[g] - массив из tlabel, а pod[g] - массив из tlistview

Нужно чтобы при создании цвет текста становился белым, но почему-то не работает, цвет остается черным

Ссылка на комментарий

Рекомендуемые сообщения

  • 0

Да и парент надо бы раньше 

EndUpdate

Да, ещё пару сталкивался что никакие "апдейты не помогают". Приходится тупо Repaint писать.
Да и зачем тут "бегин-енд", это же не грид с кучей последовательно изменяемых полей, и не график с сотнями добавялемых точек.

 

Ссылка на комментарий
  • 3

Ключевым здесь является TStyledSetting.FontColor
NadG.StyledSettings := NadG.StyledSettings - [TStyledSetting.FontColor];

Работает и с BeginUpdate и без оного и c любым положением "Paren :="
См. также Почему не изменяется Font.Style и Font.Size.

Ссылка на комментарий
Гость
Эта тема закрыта для публикации ответов.
×
×
  • Создать...