万一 - 博客园

2008年2月20日

动画演示 Delphi 2007 IDE 功能[3] - 修改属性

摘要：动画剧本: 添加控件后用 F11 激活 Object Inspector 窗口; 可用 ↑ ↓ 选择属性; 用 Tab 切换属性名和属性值; 用 Tab 切换到属性名后, 键入属性名的部分字母, 可迅速定位; 用 Tab 切换到属性值后, 也可以键入字母选择, 而后回车确认. Ctrl+↓ 可以选择其他控件; 整个过程可以做到无鼠标操作. 阅读全文

posted @ 2008-02-20 10:38 万一阅读(4628) 评论(1) 推荐(0)

WinAPI: waveInGetErrorText - 根据错误号得到错误描述

摘要：提示: 错误文本的长度一般不超过 MAXERRORLENGTH = 128; 如果缓冲区太小, 文本会被截断. //声明: waveInGetErrorText( mmrError: MMRESULT; {错误号} lpText: PChar; {缓冲区} uSize: UINT {缓冲区大小} ): MMRESULT; {成功返回 0;... 阅读全文

posted @ 2008-02-20 00:16 万一阅读(1218) 评论(0) 推荐(0)

WinAPI: waveInGetDevCaps - 查询输入设备的性能

摘要： //声明: waveInGetDevCaps( hwo: HWAVEOUT; {输入设备ID; HWAVEIN ?} lpCaps: PWaveInCaps; {TWaveInCaps 结构的指针, 用于接受设备信息} uSize: UINT {TWaveInCaps 结构大小} ): MMRESULT; {成功返回 0; 可能的错误... 阅读全文

posted @ 2008-02-20 00:03 万一阅读(5180) 评论(0) 推荐(0)

2008年2月19日

WinAPI: waveInClose - 关闭指定的波形输入设备

摘要：提示: 若 waveInAddBuffer 送出的缓冲区未返回则失败; 可用 waveInReset 放弃所有未用完的缓冲区. //声明: waveInClose( hWaveIn: HWAVEIN {设备句柄; 函数若成功返回, 句柄则不再有效} ): MMRESULT; {成功返回 0; 可能的错误值见下:} MMSYSERR_INVALHANDLE = 5; {设备句... 阅读全文

posted @ 2008-02-19 23:21 万一阅读(2347) 评论(0) 推荐(0)

WinAPI: waveInAddBuffer - 向波形输入设备发送一个输入缓冲区

摘要：提示: 缓冲区写满后送回应用程序. 在缓冲区给 waveInAddBuffer 前, 先要调用 waveInPrepareHeader 准备; 还要调用 GlobalAlloc 给 TWaveHdr 和其中 lpData 指向的缓冲区分配内存(使用 GMEM_MOVEABLE、GMEM_SHARE), 并用 GlobalLock 锁定. //声明: waveInAddBuffer( hW... 阅读全文

posted @ 2008-02-19 23:01 万一阅读(5819) 评论(1) 推荐(0)

动画演示 Delphi 2007 IDE 功能[2] - 定义变量

摘要：动画剧本: 第一个变量: 输入: var; 然后执行 Ctrl+J ... 回车第二个变量: 执行 Ctrl+J; 然后输入 v 后打空格键 ... 再 Tab ... 回车第三个变量: 先书写语句; 然后选定变量, 执行 Ctrl+Shift+V ... 第四个变量: 同上. 阅读全文

posted @ 2008-02-19 19:18 万一阅读(5519) 评论(4) 推荐(0)

颜色转换函数: 从 Delphi 到 Html

摘要： {由 Delphi 的颜色常数转换到 Html 颜色} function HexColorToHtmlColor(c: Integer): string; var R,G,B: Byte; begin R := c and $FF; G := (c shr 8) and $FF; B := (c shr 16) and $FF; Result := #35 + Format(... 阅读全文

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

Delphi 中的颜色常量及效果图

摘要：颜色名称颜色效果 Hex HTML clBlack$000000#000000 clMaroon$000080#800000 clGreen$008000#008000 clOlive$008080#808000 clNavy$800000#000080 clPurple$800080#800080 clTeal$808000#008080 clGray$808080#808... 阅读全文

posted @ 2008-02-19 14:45 万一阅读(31074) 评论(8) 推荐(4)

动画演示 Delphi 2007 IDE 功能[1] - 建立工程、添加控件

摘要：动画中的快捷键顺序: Ctrl+Alt+P 输入: V; 回车 Ctrl+Alt+P 输入: BU; 回车输入: BU; 回车输入: MEM; 回车阅读全文

posted @ 2008-02-19 10:36 万一阅读(9378) 评论(17) 推荐(0)

2008年2月18日

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

摘要： procedure TForm1.Button1Click(Sender: TObject); var str: string; wh: TSize; w,h: Integer; begin {前面用过 Canvas.TextWidth、Canvas.TextHeight} str := '万'; w := Canvas.TextWidth(str); h := Ca... 阅读全文

posted @ 2008-02-18 22:32 万一阅读(10971) 评论(0) 推荐(0)