摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) ColorBox1: TC... 阅读全文
posted @ 2008-06-05 19:12 万一 阅读(3101) 评论(2) 推荐(0)
摘要: EnumEnhMetaFile( DC: HDC; {目标设备句柄; 如果回调函数不需要回放, 该参数为 0} Emf: HENHMETAFILE; {图元文件句柄} EnhMetaFunc: TFNEnhMFEnumProc; {回调函数指针; 回调函数格式见下} Data: Pointer; ... 阅读全文
posted @ 2008-06-05 13:20 万一 阅读(5198) 评论(6) 推荐(0)
摘要: //增强图元文件的头文件结构 TEnhMetaHeader: tagENHMETAHEADER = packed record iType: DWORD; {记录类型} nSize: DWORD; {结构大小} rclBounds: TRect; {外接矩形(单位是像素)} rclFrame: TRect; {图片矩形(单... 阅读全文
posted @ 2008-06-05 00:55 万一 阅读(3923) 评论(0) 推荐(0)