delphi DrawText 的用法
Posted blogpro
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了delphi DrawText 的用法相关的知识,希望对你有一定的参考价值。
DrawText(
hDC: HDC; 设备句柄
lpString: PChar; 文本
nCount: Integer; 要绘制的字符个数; -1 表示全部
var lpRect: TRect; 矩形结构
uFormat: UINT 选项
): Integer; 返回文本高度
//uFormat 参数的可选值:
DT_TOP = 0; 顶对齐, 须 or DT_SINGLELINE
DT_LEFT = 0; 左对齐
DT_CENTER = 1; 水平居中
DT_RIGHT = 2; 右对齐
DT_VCENTER = 4; 垂直居中, 须 or DT_SINGLELINE
DT_BOTTOM = 8; 底对齐, 须 or DT_SINGLELINE
DT_WORDBREAK = $10; 给超出边界的单词换行; 如果 SetTextAlign 函数设置了 TA_UPDATECP, 这里的设置无效
DT_SINGLELINE = $20; 单行文本
DT_EXPANDTABS = $40; 扩展制表符, 默认制表跨 8 个字符
DT_TABSTOP = $80; TAB 后添加的字符数
DT_NOCLIP = $100; 使文本不限制在指定的矩形内
DT_EXTERNALLEADING = $200; 返回的高度包括字体的外部行距
DT_CALCRECT = $400; 自动检测容纳文本的矩形的高度和宽度, 并返回高度, 但文本不被绘制
DT_NOPREFIX = $800; 不处理前缀字符(&); 默认时, & 后的字符会被添加下划线
DT_INTERNAL = $1000; 用系统字体来计算文本高度
DT_HIDEPREFIX = $00100000; 隐藏下划线
DT_PREFIXONLY = $00200000; 将 & 解释为前缀
//举例:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
MyRect: TRect;
const
str = ‘万一的 Delphi 博客‘;
begin
MyRect.Left := X;
MyRect.Top := Y;
MyRect.Right := X + 100;
MyRect.Bottom := Y + 100;
DrawText(Canvas.Handle, str, -1, MyRect, DT_LEFT);
end;
声明:非原创,只作为个人备忘和网友参考资料
函数功能:该函数在指定的矩形里写入格式化文本,根据指定的方法对文本格式化(扩展的制表符,字符对齐、折行等)。
函数原型:int DrawText(HDC hdc, LPCTSTR lpString, int nCount, LPRECT lpRect, UINT uFormat);
参数:
hdc:设备环境句柄。
lpString:指向将被写入的字符串的指针,如果参数nCount是-1,则字符串必须是以\0结束的。
如果uFormat包含DT_MODIFYSTRING,则函数可为此字符串增加4个字符,存放字符串的缓冲区必须足够大,能容纳附加的字符。
nCount:指向字符串中的字符数。如果nCount为-1,则lpString指向的字符串被认为是以\0结束的,DrawText会自动计算字符数。
lpRect:指向结构RECT的指针,其中包含正文将被置于其中的矩形的信息(按逻辑坐标)。
uFormat:指定格式化正文的方法。它可以下列值的任意组合,各值描述如下:
DT_BOTTOM:将正文调整到矩形底部。此值必须和DT_SINGLELINE组合。
DT_CALCRECT:决定矩形的宽和高。如果正文有多行,DrawText使用lpRect定义的矩形的宽度,并扩展矩形的底训以容纳正文的最后一行,如果正文只有一行,则DrawText改变矩形的右边界,以容纳下正文行的最后一个字符,上述任何一种情况,DrawText返回格式化正文的高度而不是写正文。
DT_CENTER:使正文在矩形中水平居中。
DT_VCENTER:使正文在矩形中垂直居中。
DT_EDITCONTROL:复制多行编辑控制的正文显示特性,特殊地,为编辑控制的平均字符宽度是以同样的方法计算的,此函数不显示只是部分可见的最后一行。
DT_END_ELLIPSIS或DT_PATH_ELLIPSIS:可以指定DT_END_ELLIPSIS来替换在字符串末尾的字符,或指定DT_PATH_ELLIPSIS来替换字符串中间的字符。如果字符串里含有反斜扛,DT_PATH_ELLIPSIS尽可能地保留最后一个反斜杠之后的正文。
DT_EXPANDTABS:扩展制表符,每个制表符的缺省字符数是8。
DT_EXTERNALLEADING:在行的高度里包含字体的外部标头,通常,外部标头不被包含在正文行的高度里。
DT_INTERNAL:用系统字体来计算正文度量。
DT_LEFT:正文左对齐。
DT_MODIFYSTRING:修改给定的字符串来匹配显示的正文,此标志必须和DT_END_ELLIPSIS或DT_PATH_ELLIPSIS同时使用。
DT_NOCLIP:无裁剪绘制当DT_NOCLIP使用时DrawText的使用会有所加快。
DT_NOPREFIX:关闭前缀字符的处理,通常DrawText解释助记前缀字符,&为给其后的字符加下划线,解释&&为显示单个&。指定DT_NOPREFIX,这种处理被关闭。
DT_RIGHT:正文右对齐。
DT_RTLREADING:当选择进设备环境的字体是Hebrew或Arabicf时,为双向正文安排从右到左的阅读顺序都是从左到右的。
DT_SINGLELINE:显示正文的同一行,回车和换行符都不能折行。
DT_TABSTOP:设置制表,参数uFormat的15"C8位(低位字中的高位字节)指定每个制表符的字符数,每个制表符的缺省字符数是8。
DT_TOP:正文顶端对齐(仅对单行)。DT_VCENTER:正文水平居中(仅对单行)。
DT_WORDBREAK:断开字。当一行中的字符将会延伸到由lpRect指定的矩形的边框时,此行自动地在字之间断开。一个回车一换行也能使行折断。
DT_WORD_ELLIPSIS:截短不符合矩形的正文,并增加椭圆。
注意:DT_CALCRECT, DT_EXTERNALLEADING, DT_INTERNAL, DT_NOCLIP, DT_NOPREFIX值不能和DT_TABSTOP值一起使用。
返回值:如果函数调用成功,返回值是正文的高度;如果函数调用失败,返回值是0。
Windows NT:若想获得更多错误信息,请调用GetLastError函数。
备注:函数DrawText用设备环境中的字体选择、正文颜色和背景颜色来写正文,除非DT_NOCLIP被使用,DrawText裁剪正文,所以它不会出现在指定矩形的外面,除DT_SINGLELINE格式化,其余的格式都认为正文有多行。
如果选择的字体对指定的矩形而言太大,DrawText不会试图去换成一种小字体。
Windows CE:如果为参数uFormat指定DT_CALCRECT值,必须为lpRect指向的RECT结构设置right和bottom成员。Windows CE不支持uFormat为DT_EXTERNALLEADING
以上是关于delphi DrawText 的用法的主要内容,如果未能解决你的问题,请参考以下文章
自定义控件Paint,Canvas 基础用法 - drawBitmap(),drawText() 详解