在 FMX 下的 TComboBox 下拉菜单字型修改有二种方法:
- 使用 Style,需先设定好 Style 后,再指定预设项的 Style,方法如下:
= Combobox2.ListBox.DefaultItemStyles.ItemStyle := ;
- 使用代码修改字型,方法如下:
= </span><span style="color: #0000ff;">for</span> i:=<span style="color: #800080;">0</span> <span style="color: #0000ff;">to</span> ComboBox1.Count - <span style="color: #800080;">1</span> <span style="color: #0000ff;">do</span>
<span style="color: #0000ff;">begin</span><span style="color: #000000;">
ComboBox1.ListBox.ListItems[i].StyledSettings :</span>= ComboBox1.ListBox.ListItems[i].StyledSettings -<span style="color: #000000;"> [TStyledSetting.Family,TStyledSetting.Size,TStyledSetting.FontColor];
ComboBox1.ListBox.ListItems[i].TextSettings.Font.Size :</span>= <span style="color: #800080;">20</span><span style="color: #000000;">;
</span><span style="color: #0000ff;">case</span> i <span style="color: #0000ff;">mod</span> <span style="color: #800080;">3</span> <span style="color: #0000ff;">of</span>
<span style="color: #800080;">0</span>: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor :=<span style="color: #000000;"> claRed;
</span><span style="color: #800080;">1</span>: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor :=<span style="color: #000000;"> claBlue;
</span><span style="color: #800080;">2</span>: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor :=<span style="color: #000000;"> claGreen;
</span><span style="color: #0000ff;">end</span><span style="color: #000000;">;
ComboBox1.ListBox.ListItems[i].TextSettings.Font.Family :</span>= <span style="color: #800000;">'</span><span style="color: #800000;">字型名称</span><span style="color: #800000;">'</span><span style="color: #000000;">;
ComboBox1.ListBox.ListItems[i].Height :</span>= <span style="color: #800080;">30</span><span style="color: #000000;">;
</span><span style="color: #0000ff;">end</span><span style="color: #000000;">;
<span style="color: #0000ff;">end;
效果示例:

 (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|