在Firemonkey StringGrid中更改文本大小 [英] Change text size in Firemonkey StringGrid

问题描述

如何更改stringgrid标题中的文字大小？

How to change text size in stringgrid header?

推荐答案

你可以写一个 OnApplyStyleLookup 事件处理程序类似于：

You could write an OnApplyStyleLookup event handler similar to this:

procedure TForm1.StringGrid1ApplyStyleLookup(Sender: TObject);
var
  Header: THeader;
  I: Integer;
begin
  Header := THeader((Sender as TStringGrid).FindStyleResource('header'));
  if Assigned(Header) then
  begin
    for I := 0 to Header.Count - 1 do
      with Header.Items[I].Font do
      begin
        Size := 32;
        Style := [TFontStyle.fsBold];
      end;
    Header.Height := 48;
  end;
  TStringGrid(Sender).Realign;
end;

这篇关于在Firemonkey StringGrid中更改文本大小的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！