Delphi 的绘图功能[15] - 再谈文字的高度与宽度: Canvas.TextExtent
2008-02-18 22:32
567 查看
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;
相关文章推荐
- 文字的高度与宽度: Canvas.TextExtent
- Delphi 的绘图功能[1] - TCanvas 的类成员
- HTML5 Canvas 开发 绘图方法整理 【五、canvas text / 文本、文字相关】
- Android绘图实例(Bitmmap,Canvas,Pain的使用)&动态的在图片上添加文字(canvas.drawText)
- 用GetTextExtent取得字符串的宽度和高度
- Delphi 的绘图功能[5] - 获取 Canvas 对象
- 【随记】JQuery实现表格的双击编辑功能(自动适应表格高度和宽度)
- canvas学习之路(一)基础绘图功能解析
- 计算文字在固定宽度下 折行显示后的高度
- UILabel的高度(height)自适应文字内容(text)
- GDI 与 GDIPlus 获取文字宽度和高度的方法
- android canvas drawText()文字居中
- 让label自适应里面的文字,自动调整宽度和高度的
- android中画文字的换行 办法(对于遇到canvas.drawText(String s )无法实现换行问题的解决)
- HTML5 Canvas绘图之文字的渲染
- iOS UILabel:宽度固定,自动高度显示全部文字
- OpenCV之core 模块. 核心功能(2)基本绘图 随机数发生器&绘制文字 离散傅立叶变换 输入输出XML和YAML文件 与 OpenCV 1 同时使用
- edittext 随文字换行 而高度增加
- IOS UILabel自适应里面的文字,自动调整宽度和高度的
- android中画文字的换行 办法(对于遇到canvas.drawText(String s )无法实现换行问题的解决)