您现在的位置：天新网 > 软件开发 > 开发语言 > Delphi开发 > Delphi技巧

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

2008年11月12日 Blog 万一

　　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;

上一篇： Delphi 正则表达式起步
下一篇： Delphi 正则表达式语法(1): 关于大小写与中文

相关内容