Fórum Como aumentar os fontes de todos os componebtes de um formulário ? #421110
06/08/2012
0
Estou precisando alterar as fontes de um formulario em tempo de execução, com fazer isto lendo todos os componentes?
Eu determinarei o tamanho dos fontes q serão alterados.
Quero q em todos os comp. o fontes seja alterado.
A quem puder ajudar desde já meus agradecimentos.
100+
ANT.CARLOS/SP
Antonio Jesus
Curtir tópico
+ 0Posts
06/08/2012
Gustavo Bretas
Abraço!
Gostei + 0
07/08/2012
Gustavo Bretas
Então vc deixa a propriedade ParentFont = True, e altera as configurações de fonte do formulário, teoricamente os componentes do formulário adotarão a fonte alterada!
Gostei + 0
07/08/2012
Antonio Jesus
então, o q eu queria seria +- assim:
for i:=0, i form.componentes.count-1 do
componente.fontes.size := 14;
Este é apenas um exemplo, entendeu!
Quero percorrer cada comp. do form e mudar a fonte de tamanho.
100+
ANT.CARLOS/SP
Gostei + 0
09/08/2012
Marco Salles
Parece que esta definido em TControl como uma propriedade que sera publicada por controles descendentes
TControl = class(TComponent)
...
...
..
protected
....
....
{$IF DEFINED(CLR)}
property WindowText: string read FText write FText;
{$ELSE}
property Color: TColor read FColor write SetColor stored IsColorStored default clWindow;
property Font: TFont read FFont write SetFont stored IsFontStored;
property WindowText: PChar read FText write FText;
{$IFEND}Talves uma solução seria Hackear esta propriedade protegida
defina esta classe aparentemente boba
Type THacker = class(TControl);
escreva e teste
for i:=0 to pred(ControlCount) do THacker(Controls[i]).Font.Size:=14;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)