Fórum FireMonkey (FMX) Modificando Font de componentes em tempo de execução. #622352

for I := 0 To ListBoxMenuRelatorio.Items.Count -1 do
  begin
    btn := TButton.Create(ListBoxMenuRelatorio);
    btn.Parent := ListBoxMenuRelatorio;
    btn.Align := TAlignLayout.Top;
    btn.StyledSettings := [];   //  Set StyledSettings com todas as opções Falsas.
    btn.Margins.Bottom := 3;
    btn.Margins.Left := 3;
    btn.Margins.Right := 3;
    btn.Margins.Top := 3;
    btn.ShowHint := True;
    btn.Tag := I;
    btn.Text := ListBoxRelacaoMenuRelatorio.Items.Strings[I];
    btn.TextSettings.BeginUpdate;
    try
      btn.TextSettings.Font.Style := [TFontStyle.fsBold];
      btn.TextSettings.HorzAlign  := TTextAlign.Leading;
      btn.TextSettings.Font.Size  := 15;
    finally
      btn.TextSettings.EndUpdate;
    end;
    btn.Height := 43;
    btn.StyleLookup := 'cornerbuttonstyle';
    btn.Name := 'BitBtnR'+ IntToStr(I);
    btn.OnClick := ButtonMenuRelatorioClick;
  end;