为什么我需要分配 Canvas 的字体来更改 Delphi 2009 中的字体大小？

Question

我有一个 TPanel 的子类，我非常非常非常喜欢它，让我懊恼的是，这样做时字体似乎永远不会占用：

font.size := AFontsize;
font.style := AFontStyle;
font.color := AFontColor;

但是当我这样做时它确实改变了：

Canvas.Font.Assign(Font);

在 Delphi 7 中我不必这样做，但在 2009 年我似乎必须这样做。有什么关系？

Answer 1

如果您使用其画布在面板中绘制文本，则必须设置画布字体。

某些组件和/或某些 Delphi 版本可以有意或作为先前绘制任务的副作用设置 Canvas.Font，但您不应依赖它。

所以建议在开始绘制文字之前先Canvas.Font := Font;。

这同样适用于Canvas.Brush 和Canvas.Pen。

type
  TMyPanel = class(TCustomPanel)
  protected
    procedure Paint; override;
  end;

procedure TMyPanel.Paint;
var
  r: TRect;
begin
  r := ClientRect;

  Canvas.Brush.Color := Color;
  Canvas.FillRect(r); // fill the background

  Canvas.Font := Font;
  DrawText(Canvas.Handle, 'Sample Text', -1, r, DT_SINGLELINE or DT_CENTER or DT_VCENTER or DT_EXPANDTABS or DT_NOPREFIX);
end;