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

StringGrid Header 高度设定方法：

<span style="color: #0000ff;">procedure<span style="color: #000000;"> TForm1.StringGrid1ApplyStyleLookup(Sender: TObject);
<span style="color: #0000ff;">var<span style="color: #000000;"> Obj: TFmxObject;
<span style="color: #0000ff;">begin
<span style="color: #008000;">//<span style="color: #008000;"> by Aone
Obj := StringGrid1.FindStyleResource(<span style="color: #800000;">'<span style="color: #800000;">header<span style="color: #800000;">'<span style="color: #000000;">);
<span style="color: #0000ff;">if (Obj <> <span style="color: #0000ff;">nil) <span style="color: #0000ff;">and (Obj <span style="color: #0000ff;">is THeader) <span style="color: #0000ff;">then<span style="color: #000000;">
THeader(Obj).Size.Height := <span style="color: #800080;">50; <span style="color: #008000;">//<span style="color: #008000;"> 设定高度
<span style="color: #0000ff;">end;

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

StringGrid Header 文字颜色设定方法（不改变底色）：

Canvas: TCanvas; Column: TColumn; Column = StringColumn1 = = Column = StringColumn2 = = Canvas.FillText(Bounds,Str,False,</span><span style="color: #800080;"&gt;1</span><span style="color: #000000;"&gt;,[],TTextAlign.Center,TTextAlign.Center);

<span style="color: #0000ff;">end;

效果：

StringGrid Header 文字颜色设定方法（改变底色）：

Canvas: TCanvas; Column: TColumn; Column = StringColumn1 = == Column = StringColumn2 = == Canvas.Fill.Color :</span>=<span style="color: #000000;"&gt; BackColor; Canvas.FillRect(Bounds,</span><span style="color: #800080;"&gt;0</span>,<span style="color: #800080;"&gt;0</span>,<span style="color: #800080;"&gt;1</span><span style="color: #000000;"&gt;); Canvas.Fill.Color :</span>=<span style="color: #000000;"&gt; FontColor; Canvas.FillText(Bounds,TTextAlign.Center);

<span style="color: #0000ff;">end;

效果：