3

我正在尝试使用 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. 因此，字体大小有部分实现。对于那些建议字体样式的人来说，没有一个对这个问题有效。在较早的练习中，我遇到了类似的font.size对TEdit组件更改缺乏响应的问题，但我不知道字体样式是否对该练习有效；我知道我没有设置任何。

4

1 回答 1

1

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

在这种情况下：大小。

于 2014-07-05T08:50:43.540 回答