How can I change the font and font-size in a ComboBox in FireMonkey
In a Multi-Device App I want to have a larger Font. I can change the font and font size in TEdit and TMemo, but not in TComboBox.
Anyone who can answer if it is possible and in that case How?
Accepted Answer
You may read this link
http://codeverge.com/embarcadero.delphi.firemonkey/changing-the-font-size-and-colo/1051619
-
Accepted Answer
0Example code:
Procedure StyleComboBoxItems(ComboBox:TComboBox; Family:string; Size:Single);
var
Item : TListBoxItem;
i : Integer;
begin
for i := 0 to ComboBox.Count-1 do begin
Item := ComboBox.ListItems[i];
Item.Font.Family := Family; //'Arial';
Item.Font.Size := Size; //20;
// Item.FontColor := TAlphaColorRec.Red;
Item.StyledSettings := Item.StyledSettings - [TStyledSetting.Family,TStyledSetting.Size,TStyledSetting.FontColor];
// Item.Text := '*'+Item.Text;
end;
end;