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

发布时间：2020-12-15 04:37:38 所属栏目：大数据来源：网络整理

导读：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 sty

StringGrid 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 文字颜色设定方法（不改变底色）：

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);

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);

end;

效果：

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!