摘要：
再用 CreateEnhMetaFile 函数建立 EMF 文件时可以同时写入描述性说明; 用 GetEnhMetaFileDescription 函数可以读出 EMF 文件的说明文本. 本例给的说明文本非常简单, 不过标准的说明文本的格式应该是: 程序名#0文件标题#0#0 unit Unit1; interface uses Windows, Messages, SysUtils, ... 阅读全文
posted @ 2008-06-04 22:07
万一
阅读(3060)
评论(0)
推荐(0)
摘要：
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; p... 阅读全文
posted @ 2008-06-04 17:22
万一
阅读(2914)
评论(0)
推荐(0)
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button... 阅读全文
posted @ 2008-06-04 16:55
万一
阅读(2784)
评论(0)
推荐(0)
摘要：
创建 EMF 文件, 并同时绘制在窗体. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton;... 阅读全文
posted @ 2008-06-04 16:43
万一
阅读(3147)
评论(0)
推荐(0)
摘要：
EMF 文件是 Windows 下的增强图元文件, 本例用最简单的代码创建了一个 EMF 文件. CreateEnhMetaFile( DC: HDC; {所参照的 DC, 为 0 表示参照当前的显示设备} FileName: PChar; {文件名, 为 nil 表示创建内存文件} Rect: PRect; {外接矩形(单位是 0.1 毫米), 为 nil ... 阅读全文
posted @ 2008-06-04 16:39
万一
阅读(6065)
评论(0)
推荐(0)
摘要：
问题来源: http://www.cnblogs.com/del/archive/2008/06/04/1101970.html#1217512 StringOfChar 是反复 "字符" 成 "字符串" 的函数; DupeString 是反复 "字符串" 成 "新字符串" 的函数; StringOfChar 来自 System 单元, 可以直接使用; DupeString 来自 StrUtils... 阅读全文
posted @ 2008-06-04 10:03
万一
阅读(3681)
评论(3)
推荐(0)
摘要：
问题来源: http://www.cnblogs.com/del/archive/2008/03/12/1101970.html#1217514 Memo1 的 Lines 属性是一个 TStrings 对象, TStrings.Append 就是调用的 TStrings.Add, 所以它们没有区别; 请用 "Ctrl+鼠标左键" 看看源码, 如下图: 阅读全文
posted @ 2008-06-04 09:39
万一
阅读(5425)
评论(8)
推荐(0)
浙公网安备 33010602011771号