Dynamically Created Label Font Change

[JimKueneman 1]

Hi, 

 

Delphi 11.2 Patch 1, FireMonkey app running in Windows 11 in a virtual Machine on OSX.  Does not work compiled into Linux or OSX either.

 

procedure TForm1.Button4Click(Sender: TObject);
var
  L: TLabel;
begin
  Label1.TextSettings.Font.Style := [TFontStyle.fsBold];  // Desiger Dropped Label is Bold
  L := TLabel.Create(Self);
  L.Text := 'Testing';
  L.Align := TAlignLayout.Bottom;
  L.TextSettings.Font.Style := [TFontStyle.fsBold];  // Dynamically created Label is not Bold
  L.Parent := Layout1;
end;

Why won't the dynamically added Label respond to changing TextSettings.Font.Style?

 

Jim

Edited December 22, 2022 by JimKueneman

[Lajos Juhász 240]

Most probably you've changed the Label1.StyledSettings property. I've tried with the default settings of the TLabel you cannot change the style from the code.

 

In order to work you have to add:

L.StyledSettings:=L.StyledSettings-[TStyledSetting.Style];

 

 

[JimKueneman 1]

That is it.  Thank you so much...