Delphi 的绘图功能[15]

procedure TForm1.Button1Click(Sender: TObject);var  str: string;  wh: TSize;  w,h: Integer;begin  {前面用过 Canvas.TextWidth、Canvas.TextHeight}  str := '万';  w := Canvas.TextWidth(str);  h := Canvas.TextHeight(str);  ShowMessage(Format('宽度: %d; 高度: %d', [w,h])); {宽度: 12; 高度: 13}  {对等宽字体, 多个字符的宽度肯定是倍数关系}  str := '万一';  w := Canvas.TextWidth(str);  h := Canvas.TextHeight(str);  ShowMessage(Format('宽度: %d; 高度: %d', [w,h])); {宽度: 24; 高度: 13}  {Canvas.TextExtent 函数可以同时获取字体的高度与宽度, 不过它返回的是一个 TSize 结构}  wh := Canvas.TextExtent(str);  w := wh.cx;  h := wh.cy;  ShowMessage(Format('宽度: %d; 高度: %d', [w,h])); {宽度: 24; 高度: 13}  {如果字号改变了, 当然高度与宽度也会随之变化}  Canvas.Font.Size := 16;  wh := Canvas.TextExtent(str);  w := wh.cx;  h := wh.cy;  ShowMessage(Format('宽度: %d; 高度: %d', [w,h])); {宽度: 42; 高度: 25}  {Font.Height 是可读写的}  Canvas.Font.Height := 32;  wh := Canvas.TextExtent(str);  w := wh.cx;  h := wh.cy;  ShowMessage(Format('宽度: %d; 高度: %d', [w,h])); {宽度: 52; 高度: 32}end;