Question

我已经搜索了这个问题并找到了this。

所以，我写了一个OnApplyStyleLookup事件处理程序，如下所示：

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
        Header.Items[I].TextSettings.HorzAlign := TTextAlign.Center;
        Size := 100;
        Style := [TFontStyle.fsBold];
//        SetSettings('Arial', 100, [TFontStyle.fsBold]);
      end;
    Header.Height := 48;
  end;
//  TStringGrid(Sender).Realign;
end;

文本对齐已更改，但不应用字体大小和样式。

我正在使用XE7。

Answer 1

对于应用更改的文本样式，必须为更改的对象设置StyledSettings属性。所以，最终代码看起来像这样（我不喜欢public class OddEven { public static void main(String args[]){ for(int i=0; i<=30; i+=2) { System.out.println(i); } for(int i=1; i<=30; i+=2){ System.out.println(i); } }运算符）

with

在FMX TStringGrid中更改THeader字体大小

1 个答案: