文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 235
阅读 5
收藏 0
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;

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/02/18/1072778.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Word 2003绘图技巧

Word 中的图文混排功能非常强大,我们常用 Microsoft Word 来编制数学教案、试卷、打印文稿,但是绘图往往令人头疼.其实 Word 中的制图功能比较强大,有许多技巧.若在使用过程中细心体会反...

麻新鑫
2012/10/26
332
1
R语言之脸谱图

脸谱图和星图类似,但它却比星图可以表示更多的数据维度。用脸谱来分析多维度数据,即将P个维度的数据用人脸部位的形状或大小来表征。脸谱图在平面上能够形象的表示多维度数据并给人以直观的...

wzgl__wh
2016/12/25
0
0
文档、文案与知识管理文章

本文为(20160331)讲座讲义。 致谢声明: 本教程中LaTeX部分参考了LaTeX Notes (2nd)和thulib-latex-talk相关内容,在此向原作者表示感谢 :) also available here 讲义下载 part-1.pptx | ...

PeterYuan
2016/05/23
0
0
图表配置(Chart)

一、图表容器 Highcharts 实例化中绑定容器的方式有两种 1、通过 dom 调用 highcharts() 函数的方式 2、通过 chart.renderTo 来指定 二、图表样式 1、宽度、高度 Highcharts 图表的高度和宽度...

北國丶江山
2016/09/14
16
0
iO6 Programming pushing the limits 阅读笔记

目录 第一部分 iOS6新内容 第二部分 从每天工具中获取更多(介绍日常使用控件和框架的潜力) 第三部分 完成任务的正确工具(介绍不是那么常用的控件和框架) 第四部分 发挥到极限(深入理解i...

云飞扬v5
2015/11/09
0
0

没有更多内容

加载失败,请刷新页面

加载更多

CentOS 安装PHP5和PHP7

安装PHP5 下载解压二进制包 [root@test-a src]# cd /usr/local/src/[root@test-a src]# wget http://cn2.php.net/distributions/php-5.6.32.tar.bz2[root@test-a src]# tar jxvf php-5.6......

野雪球
50分钟前
3
0
windows上类似dnsmasq的软件Dual DHCP DNS Server

官网地址:http://dhcp-dns-server.sourceforge.net/官网定向的下载地址:https://sourceforge.net/projects/dhcp-dns-server/files/ 设置参考地址:http://blog.51cto.com/zhukeqiang/18264......

xueyuse0012
今天
3
0
LinkedHashMap源码解析

前言 HashMap中的元素时无序的,也就是说遍历HashMap的时候,顺序和放入的顺序是不一样的。 如果需要有序的Map,就可以采用LinkedHashMap. LinkedHashMap通过维护一个包含所有元素的双向链表,...

grace_233
今天
3
0
初识flask

文档 0.10.1版本 http://www.pythondoc.com/flask/index.html 1.0.2版本 https://dormousehole.readthedocs.io/en/latest/ 安装flask $ pip3 install flaskCollecting flask Downloading......

yimingkeji
昨天
5
0
Akka系统《sixteen》译

Actor是一个封装状态(state)和行为(behavior)的对象,它们只通过交换消息通信(放入收件人邮箱的邮件)。从某种意义上说,Actor是最严格的面向对象编程形式,但它更适合将他们视为人:在与Act...

woshixin
昨天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部