zoukankan      html  css  js  c++  java
  • Firemonkey TComboBox 下拉菜单字型修改方法 (D10)

    在 FMX 下的 TComboBox 下拉菜单字型修改有二种方法:

    1. uses FMX.Pickers;
    2. 使用 Style,需先设定好 Style 后,再指定预设项的 Style,方法如下:
      procedure TForm1.FormCreate(Sender: TObject);
      var i: Integer;
      begin
           ComboBox2.DropDownKind := TDropDownKind.Custom;
           Combobox2.ListBox.DefaultItemStyles.ItemStyle := 'listboxitemstyle1';
      end;

    3. 使用代码修改字型,方法如下:
      procedure TForm1.FormCreate(Sender: TObject);
      var i: Integer;
      begin
           ComboBox1.DropDownKind := TDropDownKind.Custom;
      
           for i:=0 to ComboBox1.Count - 1 do
           begin
                ComboBox1.ListBox.ListItems[i].StyledSettings :=  ComboBox1.ListBox.ListItems[i].StyledSettings - [TStyledSetting.Family, TStyledSetting.Size, TStyledSetting.FontColor];
                ComboBox1.ListBox.ListItems[i].TextSettings.Font.Size := 20;
                case i mod 3 of
                     0: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor := claRed;
                     1: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor := claBlue;
                     2: ComboBox1.ListBox.ListItems[i].TextSettings.FontColor := claGreen;
                end;
                ComboBox1.ListBox.ListItems[i].TextSettings.Font.Family := '字型名称';
                ComboBox1.ListBox.ListItems[i].Height := 30;
           end;
      end;

    效果示例:


  • 相关阅读:
    转 IDEA 解决代码提示功能消失
    模态框居中显示
    DetachedCriteria和Criteria的使用方法
    struts2配置文件详解
    springMVC上传图片
    在linux下运行mongodb
    webSocket客服在线交谈
    接口自动化
    easyui input文本框清除值
    Spring总结
  • 原文地址:https://www.cnblogs.com/onechen/p/5108014.html
Copyright © 2011-2022 走看看