FireMonkey (FMX) Modificando Font de componentes em tempo de execução.
Tinha essa duvida e como não tinha sou tão bom no Ingles ainda não entendia algunas coias da documentação, mas enfim agora eu já sei e vou deixar registrado aqui...
Este é um exemplo de criação de um Tbutton, neste caso esse Tbutton está sendo criado dentro uma ListBox.
Deste modo, configurando StyledSettings := []; possibilita a modificação das propriedades de Fonte.
Este é um exemplo de criação de um Tbutton, neste caso esse Tbutton está sendo criado dentro uma ListBox.
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; Deste modo, configurando StyledSettings := []; possibilita a modificação das propriedades de Fonte.
Eduardo Silva
Curtidas 0