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;

     效果:

  • 相关阅读:
    保存ADO的记录集为XML文件
    [C++] Undefined reference to vtable
    Csdn博客的一个bug
    深入解析ATL(第二版ATL8.0)(1.111.13节)
    不同操作系统下记事本的换行符号
    dom4j学习总结(一)
    关于firefox的copy/paste的问题
    php URL编码解码函数
    php连接MySQL数据库的一些问题
    使用 jQuery progressBar 做文件上传的进度条指示
  • 原文地址:https://www.cnblogs.com/onechen/p/5327732.html
Copyright © 2011-2022 走看看