[教学] Firemonkey 之 StringGrid Header 自订显示

本篇文章主要介绍了"[教学] Firemonkey 之 StringGrid Header 自订显示"，主要涉及到方面的内容，对于Delphijrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下： StringGrid Header 高度设定方法：uses FMX.Header;procedure TForm1.StringGrid1ApplyStyleL...

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;
beginif Column = StringColumn1 thenbegin          Str := '表头1';
          Canvas.Fill.Color := claBlue;
     end;
     if Column = StringColumn2 thenbegin          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;
beginif Column = StringColumn1 thenbegin          Str := '表头1';
          BackColor := claYellow;
          FontColor := claBlue;
     end;
     if Column = StringColumn2 thenbegin          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;

 效果：

以上就介绍了[教学] Firemonkey 之 StringGrid Header 自订显示，包括了方面的内容，希望对Delphijrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。

本文网址链接：http://www.codes51.com/article/detail_526168.html