Change font in application


Are there any simple ways to change font in the whole program? I have desktop fmx (delphi xe7) application, which use styles but for some users it’s nessasary to configure this thing.

I understantand that it may looks like this:

LabelReceptSign.StyledSettings := [];
LabelReceptSign.FontColor:= ComboColorBox1.Color;
LabelReceptSign.Font.Size:= SpinBoxReceptFontsize.Value;
LabelReceptSign.Font.Family:= ComboBoxFontRec.Selected.Text;

for each component, but it will be a very huge code! Using FindComponent procedure with name itteration generation ‘label’ + inttost(i) I could make it shorter, but whatever it’s very poor way.

Any suggestions?

Comments are closed.