delphi - Delphi Fire Monkey 中的编程字体大小调整

Question

我正在尝试使用 Fire Monkey 库以编程方式修改字体大小，但似乎没有任何效果。这是我的最新尝试:

procedure TForm2.Button1Click(Sender: TObject);
var
  i, j, k: integer;
  w: single;
begin
  k := 0;
  with StringGrid1 do
  begin
    canvas.Font.Size := 24;                         //set font size
    StringColumn2.visible := false;                 //hide this column
    for i := 0 to columncount - 1 do                //loop through columns
    begin
      columns[i].header := 'hdr' + inttostr(i + 1); //provide header content
      w := StringGrid1.Canvas.TextWidth(columns[i].header); //measure width needed
      for j := 0 to rowcount - 1 do                 //loop through rows
      begin
        k := k + 1;                                 //variable cell content
        if i = 0 then                               //do row label
          cells[i, j] := 'Lyr' + inttostr(k)
        else
        begin                                       //do row body
          cells[i, j] := inttostr(k);
        end;
        w := max(w, StringGrid1.Canvas.TextWidth(cells[i, j])); //measure width needed
      end;
      columns[i].Width := w + 10;                   //set width
    end;
  end;
end;

end.

canvas.Font.Size := 24 对字体大小没有影响，但有一个有趣的副作用。更改字体大小会更改 canvas.TextWidth 提供的结果。因此，字体大小的部分实现。对于那些建议字体样式的人来说，没有一个可以解决这个问题。在之前的练习中，我遇到了类似的对 TEdit 组件的 font.size 更改缺乏响应的情况，但我不知道字体样式是否对此有效锻炼;我知道我没有设置任何内容。

Answer 1

在StringGrid1属性中，您有StyledSettings。您必须展开此属性并将需要更改的项目设置为 False。

在本例中:尺寸。