全球彩票平台_全球彩票注册平台|官网下载地址

热门关键词: 全球彩票平台,全球彩票注册平台,全球彩官网下载地址

全球彩票注册平台自订显示,如何改变

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

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 高度设定方法:

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.Size.Height := 50; // 设定高度end;

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

需求:改变 ListView 颜色

需求:改变 ListView 颜色

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;

 效果:

全球彩票注册平台 1

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;

效果:

全球彩票注册平台 2

适用:Firemonkey 任何平台

适用:Firemonkey 任何平台

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;

 效果:

全球彩票注册平台 3

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;

 效果:

全球彩票注册平台 4

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;

效果:

全球彩票注册平台 5

操作:Style 是改变控件外观最便捷的途径,ListView 也不例外,下面示范使用 StyleBook 来设定 ListView 的外观颜色,以 Android 平台为例:

操作:Style 是改变控件外观最便捷的途径,ListView 也不例外,下面示范使用 StyleBook 来设定 ListView 的外观颜色,以 Android 平台为例:

本文由全球彩票平台发布于全球彩票注册平台编程,转载请注明出处:全球彩票注册平台自订显示,如何改变

TAG标签: 全球彩票平台
Ctrl+D 将本页面保存为书签,全面了解最新资讯,方便快捷。