• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

Delphi GDI对象之绘制文本

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

现在大家已经知道Rectangle方法用来画正方形和矩形,Ellipse方法用来画圆和椭圆,MoveTo和LineTo方法则用来画线。

还有Arc方法用于画弧,Pie方法用于画饼形,一切一切都是非常基础的,没有太大的必要详细了解TCanvas的这些方法,下面开始更有趣的图形操作,这些图形操作在编写Delphi应用程序时很可能遇到。

 

绘制文本(Drawing Text)

绘制文本听起来不像太难,是么?实际上有一些容易犯的小错误,如果不加注意,可能会使绘制文本变得很困难,另外有几条好的文本绘制特性应该了解。

1、TextOut与TextRect方法(The TextOut and TextRect Methods)

TextOut方法是在画布上绘制文本的最基本的方法,关于TextOut没有太多可讲的,只需输入X,Y位置和要显示的文本——例如:

  Canvas.TextOut(20, 20, '最简单的文本输出');

这个代码在窗体上位置20,20处显示指定的字符串。


X、Y坐标是指所要绘制文本的左上角而不是底线,为了说明这个意思,试验这段代码:

  Canvas.TextOut(20, 20, 'This is a text');
  Canvas.MoveTo(20, 20);
  Canvas.LineTo(100, 20);

这段代码(20,20)处显示一些文字并从这个位置到(100,20)画线。如下图,显示了这段代码的执行结果。注意直线画在文本上部。

每当要显示文本时,使用TextOut不需要许多精确定位。


TextRect方法要求指定要显示的文本,还要指定剪切矩形框。当文本需要限制在一定的界域内时使用这种方法。落在界线外的文本均被剪掉,下面代码确保显示不超过100像素的文本。

  Canvas.TextRect(Rect(20, 50, 120, 70), 20, 50,
    '这是非常长的一行文字,可能会被裁减掉');

显示如下,因为字符串长度超过了100像素,因此被裁减掉了。

TextOut和TextRect都只能绘制单行文字,不能对文本进行换行。

Tip

To draw text with tab stops, see the Windows API function TabbedTextOut.

输出具有制表符的文本,参见Windows API函数TabbedTextOut。

2、文本背景(Text Backgrounds)

改变文本背景颜色是非常容易的,因此可以这样做,如下代码:

Canvas.Brush.Color := clWhite;

显示效果如下:


在进行设置背景色的时候应该养成这种习惯,即先存储先前的刷子类型,处理完文本后再恢复到原来的类型。代码如下:

var
  OldStyle: TBrushStyle;
  OldColor: TColor;
begin
  ClearCanvas;
  OldStyle := Canvas.Brush.Style;
  OldColor := Canvas.Brush.Color;
  Canvas.Brush.Color := clRed;
  Canvas.TextOut(20, 20, '现在文本的背景色为红色了');
  Canvas.Brush.Style := OldStyle;
  Canvas.Brush.Color := OldColor;
  Canvas.TextOut(20, 50, '现在又恢复原始的样式了');
end;

显示效果如下:

如果要使用文本透明背景,可将刷子类型设置为bsClear。如下代码:

  Canvas.Brush.Style := bsClear;

使用透明背景还有其他好处,比如说要在图像背景上显示一些文本,在这种情况下,使用透明背景输出文本比较理想,代码如下:

var
  OldStyle: TBrushStyle;
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile('handshak.bmp');
  Canvas.Draw(0, 0, Bitmap);
  Canvas.Font.Name := 'Arial Bold';
  Canvas.Font.Size := 13;
  OldStyle := Canvas.Brush.Style;
  Canvas.Brush.Style := bsClear;
  Canvas.TextOut(20, 5, '透明背景色文本');
  Canvas.Brush.Style := OldStyle;
  Canvas.TextOut(20, 30, '非透明背景色文本');
  Bitmap.Free;
end;

这个代码在窗体上画位图,之后在窗体位图上用透明背景绘制文本,在以常规样式绘制文本,效果如下:


3、DrawText函数(The DrawText Function)

Windows API的DrawText函数提供了比TextOut更大的制作画布上的文本的控制能力,基于某种原因,TCanvas类没有DrawText方法。使用DrawText则意味着直接使用API。首先看一看一个基本的DrawText例子,然后再讲述这个函数的更多用途。

var
  R: TRect;
begin
  R := Rect(20, 20, 220, 80);
  Canvas.Rectangle(20, 20, 220, 80);
  DrawText(Canvas.Handle, 'An example of DrawText.', -1, R,
    DT_SINGLELINE or DT_VCENTER or DT_CENTER);
end;

下图显示了该代码结果以及下面几个例子的结果。

首先TRect记录利用Windows API Rect函数初始化。之后,一个规则的矩形绘制于画布上(矩形画于画布上以便可以设想所要画的矩形大小)。最后,调用DrawText函数绘制文本。

//DrawText函数的声明如下:
DrawText(
  hDC: HDC;          {设备句柄}
  lpString: PChar;   {文本}
  nCount: Integer;   {要绘制的字符个数; -1 表示全部}
  var lpRect: TRect; {矩形结构}
  uFormat: UINT      {选项}
): Integer;          {返回文本高度}

下面详解讨论下函数的各种参数,如下所示:

  • 第一个参数用来指定绘制的设备描述环境。TCanvas的Handle属性是画布的HDC。因此输入它作为第一参数。
  • 第二个参数是将要显示的字符串。
  • 第三个参数是用于指定要绘制的字符数,但参数为-1时,字符串中所有字符都绘制。
  • 第四个参数是var TRect,这个参数是var参数,因为DrawText操作修改矩形。
  • 最后一个参数是指定绘制文本时使用的标志,在这个例子中使用了DT_SINGLELINE(单行文本)、DT_VCENTER(垂直居中)和DT_CENTER(水平居中)标志。DrawText一共有将近20个标志可供指定。这里不打算讲每一个标志,全部标志参见Win32 API帮助。

前面的例子说明了DrawText函数一个最为普遍的用途;使文本水平居中、垂直居中等。在自制组件时这个特性非常有用。特别地,自制列表框、组合框和菜单经常需要使文本居中。现在可能不会马上认识到这个函数的好处。但是,若开始做自制组件时或者开始写自己的图形组件时,就会认识到这一点。

DrawText另一个有趣的标志是DT_END_ELLIPSIS标志,如果文本太长不能套入指定矩形中,Windows将截取部分字符串,末尾加上省略号,表示字符串被截取,例如,下面的代码:

var
  R: TRect;
begin
  R := Rect(20, 20, 120, 70);
  DrawText(Canvas.Handle, 'This text is too long to fit', -1, R, DT_END_ELLIPSIS);
end;
这段执行后,结果文本显示如下图:

如果矩形内文本可能太长的话,可以使用这种标志。


DT_CALCRECT是又一个非常有用的标志,它用来计算容纳指定文本所需的矩形高度。当使用这个标志时,Windows计算所需高度,并返回这个高度,但不绘制文本。用户告诉Windows矩形框应多宽,Windows将告诉用户容纳的文本所需矩形多高。事实上,Windows也修改矩形的bottom和left值。绘制多行文本时,这显的尤为重要。

下列程序例子询问Windows要包含所有文本所需的矩形框多高。之后,在屏幕上画出矩形框,最后文本绘制在矩形框中。代码如下:

var
  R: TRect;
  S: string;
begin
  R := Rect(20, 20, 150, 30);
  S := 'This is a very long string which will' +
    'run into multiple lines of text.';
  DrawText(Canvas.Handle, PChar(S), -1, R, DT_CALCRECT or DT_WORDBREAK);
  Canvas.Brush.Style := bsSolid;
  Canvas.Rectangle(R);
  Canvas.Brush.Style := bsClear;
  DrawText(Canvas.Handle, PChar(S), -1, R, DT_WORDBREAK);
end;
最后运行该代码,效果如下:

注意,必须将DrawText的第二个参数由string类型转化为PChar类型,这是因为DrawText需要的参数是指向字符数组的指针,而不是字符串类型本身。

将上面的代码进行多次执行,每次修改显示的字符串长度。不管怎么增加字符,矩形框总能准确框住文本。

Note

如果编写适应各种版本的Delphi程序,就不能像上面那样将string强制转化为PChar类型,因为Delphi1下不能编译,必须采用StrPCopy函数来使用,代码如下:

procedure TForm1.btn10Click(Sender: TObject);
var
  R: TRect;
  S: string;
  temp: array[0..100] of Char; { 至少要有 length(s) + 1 的空间大小}
begin
  R := Rect(20, 20, 150, 30);
  S := 'This is a very long string which will' +
    'run into multiple lines of text.';
  { 采用StrPCopy函数转化string类型为PChar类型}
  DrawText(Canvas.Handle, StrPCopy(temp, S), -1, R, DT_CALCRECT or DT_WORDBREAK);
  Canvas.Brush.Style := bsSolid;
  Canvas.Rectangle(R);
  Canvas.Brush.Style := bsClear;
  DrawText(Canvas.Handle, StrPCopy(temp, S), -1, R, DT_WORDBREAK);
end;

如果不考虑低版本的Delphi,则不必使用StrPCopy函数。

 

Note

用DrawText绘制文本比使用TextOut稍慢一些,若绘制操作对速度反应敏感,应该使用TextOut而不应该使用DrawText。用户自己必须做更多的工作,但是执行速度将可能更快。当然,对于大多数的文本绘制,不必注意TextOut与DrawText之间的差别。

特别写了一个效率比较的程序,通过统计执行相同工作所需的时间来判断。具体代码请大家自行下载示例代码查看,这里不再贴出。如下图:

 

DrawText函数是一个非常有用并且功能强大的函数,当编写自己组件时,毫无疑问,这种函数将经常被使用。


以上代码均在Delphi7下测试通过,示例代码下载:GDI之绘制文本.rar


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
模糊PID及其MATLAB仿真的细节补充发布时间:2022-07-18
下一篇:
在Ubuntu 16.04下安装Matlab 2017a发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap