文档章节

WinAPI: DrawTextEx - 多功能文本绘制

涂孟超
 涂孟超
发布于 2014/09/26 15:30
字数 569
阅读 10
收藏 0
//声明:
DrawTextEx(
  DC: HDC;                  {设备句柄}
  lpchText: PChar;          {文本}
  cchText: Integer;         {要绘制的字符个数; -1 表示全部}
  var p4: TRect;            {矩形结构}
  dwDTFormat: UINT;         {选项}
  DTParams: PDrawTextParams {附加参数, 指向一个 DRAWTEXTPARAMS 结构}
): Integer;                 {返回文本高度}

//dwDTFormat 参数的可选值:
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; {将 & 解释为前缀}
DT_EDITCONTROL     = $2000;     {如果最后一行只是部分可见, 将不被绘制}
DT_PATH_ELLIPSIS   = $4000;     {文本过长时, 中间使用 ... 会尽量保留最后一个 \ 后面的字符}
DT_END_ELLIPSIS    = $8000;     {文本过长时, 尾部使用 ...}
DT_MODIFYSTRING    = $10000;    {省略显示, 只与 DT_PATH_ELLIPSIS、DT_END_ELLIPSIS 联合使用}
DT_RTLREADING      = $20000;    {从右到左绘制文本, 只用于相应语种}
DT_WORD_ELLIPSIS   = $40000;    {截短不符合矩形的正文, 并增加椭圆}

//DRAWTEXTPARAMS 结构是 tagDRAWTEXTPARAMS 的重定义:
tagDRAWTEXTPARAMS = packed record
  cbSize: UINT;          {结构大小}
  iTabLength: Integer;   {TAB 占位大小, 以字符平均宽度为单位}
  iLeftMargin: Integer;  {左边距, 以字符平均宽度为单位}
  iRightMargin: Integer; {右边距, 以字符平均宽度为单位}
  uiLengthDrawn: UINT;   {返回 DrawTextEx 函数绘制的字符个数, 包括空格}
end;

 
 
 
 
 

 

 

  
//例1: procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var MyRect: TRect; str: string; begin MyRect.Left := X; MyRect.Top := Y; MyRect.Right := X + 200; MyRect.Bottom := Y + 200; str := Application.ExeName; DrawTextEx( Canvas.Handle, PChar(str), -1, MyRect, DT_MODIFYSTRING or DT_END_ELLIPSIS, nil ); end;
//效果图:

//例2:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  MyRect: TRect;
  str: string;
begin
  MyRect.Left   := X;
  MyRect.Top    := Y;
  MyRect.Right  := X + 200;
  MyRect.Bottom := Y + 200;

  str := Application.ExeName;

  DrawTextEx(
    Canvas.Handle,
    PChar(str),
    -1,
    MyRect,
    DT_MODIFYSTRING or DT_PATH_ELLIPSIS,
    nil
  );
end;

 
 
 
 
 

 

 

  
//效果图:

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

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
第二章 1.绘制文本

在上一节中给出了如下方法绘制文本 DrawText (hdc, TEXT ("Hello Windows CE!"), -1, &rect, DTCENTER | DTVCENTER | DT_SINGLELINE); DrawText是一个相当高级的函数,允许由程序显示文本,而......

技术小胖子
2017/11/08
0
0
SelectPage v2.7 发布,简洁而强大的下拉分页选择器

下拉分页选择插件 SelectPage v2.7 发布了,插件更新内容: 2.5 修复多选模式下,初始化项目的显示文本没有使用formatItem回调进行格式化 修复ajax数据源模式下,输入查询关键字时,翻页始终...

TerryZ
2017/09/13
1K
8
第二章 2绘制线条简单图形

线条和形状 同Windows其它版本相比,Windows CE提供相当少的功能的领域之一就是基本线条绘制和形状绘制功能。用来创建复杂环形的Chord, Arc, 和Pie函数被去掉了。大部分使用"当前点[current ...

技术小胖子
2017/11/08
0
0
Win32窗口编程基础知识——主函数

虽然说编程重要的是思想,用什么语言实现都是鸡肋,但是并不是说你对一个语言一点也不会看一遍就可以精通,我的经历就是以前只注意C/C++编程,对其他语言完全不看,发现最后自己练个窗口图形...

abcdxyz
2012/05/04
0
0
[Beautifulzzzz的博客目录] 快速索引点这儿O(∩_∩)O~~,红色标记的是不错的(⊙o⊙)哦~

3D相关开发 [direct-X] 1、direct-X最小框架 [OpenGL] 1、环境搭建及最小系统 [OpenGL] 2、企业版VC6.0自带的Win32-OpenGL工程浅析 51单片机 [51单片机] 1602液晶显示控制代码 [51单片机] 1...

史迪奇2号
2017/08/01
0
0

没有更多内容

加载失败,请刷新页面

加载更多

容器服务

简介 容器服务提供高性能可伸缩的容器应用管理服务,支持用 Docker 和 Kubernetes 进行容器化应用的生命周期管理,提供多种应用发布方式和持续交付能力并支持微服务架构。 产品架构 容器服务...

狼王黄师傅
昨天
3
0
高性能应用缓存设计方案

为什么 不管是刻意或者偶尔看其他大神或者大师在讨论高性能架构时,自己都是认真的去看缓存是怎么用呢?认认真真的看完发现缓存这一块他们说的都是一个WebApp或者服务的缓存结构或者缓存实现...

呼呼南风
昨天
12
0
寻找一种易于理解的一致性算法(扩展版)

摘要 Raft 是一种为了管理复制日志的一致性算法。它提供了和 Paxos 算法相同的功能和性能,但是它的算法结构和 Paxos 不同,使得 Raft 算法更加容易理解并且更容易构建实际的系统。为了提升可...

Tiny熊
昨天
3
0
聊聊GarbageCollectionNotificationInfo

序 本文主要研究一下GarbageCollectionNotificationInfo CompositeData java.management/javax/management/openmbean/CompositeData.java public interface CompositeData { public Co......

go4it
昨天
3
0
阿里云ECS的1M带宽理解

本文就给大家科普下阿里云ECS的固定1M带宽的含义。 “下行带宽”和“上行带宽” 为了更好的理解,需要先给大家解释个词“下行带宽”和“上行带宽”: 下行带宽:粗略的解释就是下载数据的最大...

echojson
昨天
10
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部