Delphi的绘图功能[15] - 再谈文字的高度与宽度: Canvas.TextExt

Delphi的绘图功能[15] - 再谈文字的高度与宽度: Canvas.TextExt2011-12-15 cnblogs 万一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;