TLabel Почему не изменяется Font.Style и Font.Size?

[97mik]

Пробую задать размер шрифта (TLabel.Font.Size) для TLabel. Но стиль и размер у метки остаются стандартными.

 

Создаю объект так:

MyLabel := TLabel.Create(Self);
MyLabel.Position.X := 66;
MyLabel.Position.Y := 8;
MyLabel.Width := 231;
MyLabel.Height := 18;
MyLabel.Parent := ListBox1.ListItems[ListBox1.Count-1];
MyLabel.HitTest := False;
MyLabel.Font.Size := 8;
MyLabel.Font.Style := [TFontStyle.fsBold];
MyLabel.Trimming := TTextTrimming.ttCharacter;
MyLabel.VertTextAlign := TtextAlign.taLeading;
MyLabel.Text := 'Text';

 

[Brovin Yaroslav]

Label1.StyledSettings := Label1.StyledSettings - [TStyledSetting.Size];

В FireMonkey все, что отвечает за визуальную часть (отображение контрола) обычно выносится в стиль. Однако, не всегда удобно создавать новый стиль, только, когда нужно, например, поменять размер шрифта в TLabel. Поэтому, чтобы позволить пользователям удобно менять такие настройки, как шрифт. Шрифт выделен в отдельное свойство TLabel.Font. При выделении шрифта отдельным свойством, нужно понимать, что при таком подходе контрол "не знает", откуда ему брать шрифт: то ли из свойства, то ли из стиля.

 

Поэтому, чтобы контрол знал, откуда ему брать шрифт для отображения: из стиля или из свойства Font, введено свойство TLabel.StyledSetting. Которое говорит контролу, какие характеристики шрифта нужно брать из стиля, а какие можно взять из свойства TLabel.Font. По умолчанию, StyledSettings настроены так, что все берется из стиля. В вашем случае, нужно сбросить галку напротив значения ssSize и ssFont.

 

Подробная информация есть на Embarcadero Doc Wiki: http://docwiki.embarcadero.com/RADStudio/XE5/en/Setting_Text_Parameters_in_FireMonkey