zoukankan      html  css  js  c++  java
  • [教学] Firemonkey 之 StringGrid Header 自订显示

    StringGrid Header 高度设定方法:

    uses FMX.Header;
    
    procedure TForm1.StringGrid1ApplyStyleLookup(Sender: TObject);
    var Obj: TFmxObject;
    begin
         // by Aone
         Obj := StringGrid1.FindStyleResource('header');
         if (Obj <> nil) and (Obj is THeader) then
            THeader(Obj).Size.Height := 50; // 设定高度
    end;

     ps. 所有的 Style 都能用这个方法,找到后,再修改它。

    StringGrid Header 文字颜色设定方法(不改变底色):

    procedure TForm1.StringGrid1DrawColumnHeader(Sender: TObject;
      const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF);
    var Str: String;
    begin
         if Column = StringColumn1 then
         begin
              Str := '表头1';
              Canvas.Fill.Color := claBlue;
         end;
         if Column = StringColumn2 then
         begin
              Str := '表头2';
              Canvas.Fill.Color := claRed;
         end;
    
         Canvas.FillText(Bounds, Str, False, 1, [], TTextAlign.Center, TTextAlign.Center);
    end;

     效果:

    StringGrid Header 文字颜色设定方法(改变底色):

    procedure TForm1.StringGrid1DrawColumnHeader(Sender: TObject;
      const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF);
    var Str: String;
        BackColor, FontColor: TAlphaColor;
    begin
         if Column = StringColumn1 then
         begin
              Str := '表头1';
              BackColor := claYellow;
              FontColor := claBlue;
         end;
         if Column = StringColumn2 then
         begin
              Str := '表头2';
              BackColor := claGold;
              FontColor := claRed;
         end;
    
         Canvas.Fill.Color := BackColor;
         Canvas.FillRect(Bounds, 0, 0, [], 1);
         Canvas.Fill.Color := FontColor;
         Canvas.FillText(Bounds, Str, False, 1, [], TTextAlign.Center, TTextAlign.Center);
    end;

     效果:

  • 相关阅读:
    Nexus 3048的NX-OS升级方法
    ASA防火墙忘记密码之后的恢复步骤
    关闭AnyConnect登录安全警告窗口
    使用vASA842配置ASDM645
    SSL 证书格式普及,PEM、CER、JKS、PKCS12
    Python基础练习
    理解管理信息系统
    各大搜索引擎蜘蛛的UserAgent
    iOS应用程序内购/内付费
    iOS开发解决:iOS8.1中UIBarButtonItem的setTitleTextAttributes对Disabled颜色设置无效问题
  • 原文地址:https://www.cnblogs.com/onechen/p/5327732.html
Copyright © 2011-2022 走看看