万一 - 博客园

2008年2月8日

摘要： //声明: SetTextCharacterExtra( DC: HDC; {设备环境句柄} CharExtra: Integer {间距(按逻辑单位); 若映射模式不是 MM_TEXT, 则舍入到最接近的像素} ): Integer; {返回字符间隔的先前值; 调用失败返回 $80000000 } //举例: procedure TForm1.... 阅读全文

posted @ 2008-02-08 20:54 万一阅读(6561) 评论(3) 推荐(0)

WinAPI: GetTextAlign - 获取绘图环境的文本对齐方式

摘要： //声明: GetTextAlign( DC: HDC; {设备环境句柄} ): UINT; {返回对齐选项值; 如果返回 GDI_ERROR 表示设置失败} //如果调用成功则返回下面常数值之一或它们的组合: TA_NOUPDATECP = 0; {每一次文本输出后, 不更新当前位置} TA_UPDATECP = 1; {每一次文本输出后, 更新当前位置}... 阅读全文

posted @ 2008-02-08 19:54 万一阅读(2264) 评论(0) 推荐(0)

WinAPI: SetTextAlign - 设置绘图环境的文本对齐方式

摘要： //声明: SetTextAlign( DC: HDC; {设备环境句柄} Flags: UINT {对齐选项} ): UINT; {返回对齐选项值; 如果返回 GDI_ERROR 表示设置失败} //Flags 参数的可选值: TA_NOUPDATECP = 0; {每一次文本输出后, 不更新当前位置} TA_UPDATECP = 1; {每一次文本输... 阅读全文

posted @ 2008-02-08 19:49 万一阅读(5752) 评论(0) 推荐(0)

WinAPI: ExtTextOut - 扩展的文本输出

摘要： //声明: ExtTextOut( DC: HDC; {设备环境句柄} X, Y: Integer; {起点坐标} Options: Longint; {选项} Rect: PRect; {指定显示范围; 0 表示限制范围} Str: PChar; {字符串指针} Count: Longint; {字符串长度} Dx:... 阅读全文

posted @ 2008-02-08 16:50 万一阅读(10639) 评论(5) 推荐(0)

WinAPI: TextOut - 输出文本

摘要： //声明: TextOut( DC: HDC; {设备环境句柄} X, Y: Integer; {起点坐标} Str: PChar; {字符串指针} Count: Integer {字符串长度} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); const str = '万一的 Del... 阅读全文

posted @ 2008-02-08 15:54 万一阅读(6248) 评论(8) 推荐(1)

WinAPI: SetTextColor - 设置设备环境的文本颜色

摘要： //声明: SetTextColor( DC: HDC; {设备环境句柄} Color: COLORREF {颜色值} ): COLORREF; {返回指定的颜色值; 如果返回值是 CLR_INVALID 表示设置失败} //举例: procedure TForm1.Button1Click(Sender: TObject); begin SetTextC... 阅读全文

posted @ 2008-02-08 15:19 万一阅读(3419) 评论(6) 推荐(0)

WinAPI: GetTextColor - 获取设备环境的文本颜色

摘要： //声明: GetTextColor( DC: HDC {设备环境句柄} ): COLORREF; {返回一个 Cardinal 类型的颜色值} //举例: var c: Cardinal; begin c := GetTextColor(Canvas.Handle); ShowMessage(IntToStr(c)); end; 阅读全文

posted @ 2008-02-08 15:09 万一阅读(2261) 评论(0) 推荐(0)

WinAPI: DrawTextEx - 多功能文本绘制

摘要： //声明: DrawTextEx( DC: HDC; {设备句柄} lpchText: PChar; {文本} cchText: Integer; {要绘制的字符个数; -1 表示全部} var p4: TRect; {矩形结构} dwDTFormat: UINT; {选... 阅读全文

posted @ 2008-02-08 14:03 万一阅读(9059) 评论(0) 推荐(0)

WinAPI: DrawText - 将文本绘制到指定的矩形中

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

posted @ 2008-02-08 12:36 万一阅读(7528) 评论(5) 推荐(0)

WinAPI: sndPlaySound - 播放 wav 文件

摘要： //声明: sndPlaySound( lpszSoundName: PChar; {声音文件} uFlags: UINT{播放选项} ): BOOL; //uFlags 参数可选值: SND_SYNC = 0; {同步播放, 程序须等到播放完毕才向下执行} SND_ASYNC = 1; {异步播放, 在函数返回之后开始播放, 不影响程序继续执行} SND_NODEF... 阅读全文

posted @ 2008-02-08 11:16 万一阅读(12481) 评论(0) 推荐(0)