2008 年 6月随笔档案 - 万一

再学 GDI+[80]: 区域(9) - GetHRGN - 转为 GDI 的区域句柄

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) procedure For... 阅读全文

posted @ 2008-06-30 21:59 万一阅读(2613) 评论(0) 推荐(0) 编辑

再学 GDI+[79]: 区域(8) - Transform - 区域的 Matrix 变换

摘要：矩阵变换(Matrix)功能很强大, 这里只是旋转了一下. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = ... 阅读全文

posted @ 2008-06-30 21:44 万一阅读(2893) 评论(0) 推荐(0) 编辑

再学 GDI+[78]: 区域(7) - Translate - 区域的平移变换

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TrackBar1: TT... 阅读全文

posted @ 2008-06-30 21:25 万一阅读(2305) 评论(0) 推荐(1) 编辑

再学 GDI+[77]: 区域(6) - GetRegionScans - 获取区域中的所有矩形

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormPaint(Sen... 阅读全文

posted @ 2008-06-30 20:48 万一阅读(3305) 评论(2) 推荐(1) 编辑

再学 GDI+[76]: 区域(5) - GetDataSize、GetData

摘要：本来这个例子是要获取区域的详细信息的, 但非常遗憾, 这个版本的 GDI+ 的头文件少定义了一个 TRegionData 类! 不过也不要紧, 通过 TRegionData 主要也是获取区域中的矩形数据, GetRegionScans 函数可以完成这个任务! 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysU... 阅读全文

posted @ 2008-06-30 20:05 万一阅读(2159) 评论(0) 推荐(0) 编辑

再学 GDI+[75]: 区域(4) - 根据区域剪切画板

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; ... 阅读全文

posted @ 2008-06-30 16:24 万一阅读(2945) 评论(0) 推荐(0) 编辑

再学 GDI+[74]: 区域(3) - IsVisible

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) procedure For... 阅读全文

posted @ 2008-06-30 14:41 万一阅读(2039) 评论(0) 推荐(0) 编辑

再学 GDI+[73]: 区域(2) - 区域运算

摘要：Intersect {交集} Union {联合} Xor_ {减去交集} Exclude {减去} Complement {不相交} //GDI+ 的区域能和矩形、路径、另一个区域三种对象进行运算. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Vari... 阅读全文

posted @ 2008-06-30 13:10 万一阅读(2763) 评论(0) 推荐(1) 编辑

再学 GDI+[72]: 区域(1) - 建立区域

摘要：建立 GDI+ 的区域有五种办法: 1、根据一个矩形建立(矩形区域); 2、根据路径建立; 3、根据 GDI 区域的句柄建立; 4、根据从区域中获取的数据建立; 5、无参数建立. 本例演示了前三种建立方法. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, G... 阅读全文

posted @ 2008-06-29 21:48 万一阅读(2734) 评论(0) 推荐(0) 编辑

再学 GDI+[71]: 路径画刷(11) - RotateTransform、ScaleTransform 等变换

摘要：RotateTransform {旋转} ScaleTransform {缩放} TranslateTransform {平移} SetTransform {综合的矩阵变换} ResetTransform {取消变换} 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysU... 阅读全文

posted @ 2008-06-29 19:45 万一阅读(3858) 评论(1) 推荐(0) 编辑

再学 GDI+[70]: 路径画刷(10) - SetBlend

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Tra... 阅读全文

posted @ 2008-06-29 17:50 万一阅读(2043) 评论(0) 推荐(0) 编辑

再学 GDI+[69]: 路径画刷(9) - SetInterpolationColors 与 SetSurroundColors 的区别

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls; type TForm1 = class(TForm) pro... 阅读全文

posted @ 2008-06-29 15:06 万一阅读(2906) 评论(0) 推荐(0) 编辑

再学 GDI+[68]: 路径画刷(8) - SetBlendTriangularShaped、SetBlendBellShape

摘要：本例效果图(颜色失真严重, 因为 GIF 最多只能接受 256 中颜色): 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls; type ... 阅读全文

posted @ 2008-06-28 22:30 万一阅读(2298) 评论(0) 推荐(0) 编辑

再学 GDI+[67]: 路径画刷(7) - 画个五角星

摘要：本例效果图: 代码1: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObjec... 阅读全文

posted @ 2008-06-28 21:41 万一阅读(3047) 评论(0) 推荐(0) 编辑

再学 GDI+[66]: 路径画刷(6) - SetInterpolationColors、GetRectangle

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObje... 阅读全文

posted @ 2008-06-28 20:00 万一阅读(2163) 评论(4) 推荐(0) 编辑

再学 GDI+[65]: 路径画刷(5) - SetGammaCorrection

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObje... 阅读全文

posted @ 2008-06-28 18:28 万一阅读(1644) 评论(0) 推荐(0) 编辑

再学 GDI+[64]: 路径画刷(4) - 还是 SetCenterColor、SetSurroundColors

摘要：在本例中没有指定 CenterColor, 将默认白色; SurroundColors 原来是对应路径中的点(但按下面的做法在椭圆里不灵). 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dial... 阅读全文

posted @ 2008-06-28 13:50 万一阅读(1817) 评论(0) 推荐(0) 编辑

把整个窗体保存为图片的方法 - 回复 "乌龙哈里" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/27/1197961.html#1237665 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;... 阅读全文

posted @ 2008-06-27 10:13 万一阅读(4582) 评论(2) 推荐(0) 编辑

博客导读 - old

posted @ 2008-06-26 14:31 万一阅读(3323) 评论(65) 推荐(0) 编辑

再学 GDI+[63]: 路径画刷(3) - SetFocusScales、GetFocusScales

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst, ExtCtrls, TeCanvas, ComCtrls; type TForm1 = ... 阅读全文

posted @ 2008-06-26 13:19 万一阅读(1801) 评论(0) 推荐(0) 编辑

再学 GDI+[62]: 路径画刷(2) - SetCenterPoint、GetCenterPoint

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst, ExtCtrls, TeCanvas; type TForm1 = class(TFor... 阅读全文

posted @ 2008-06-26 11:00 万一阅读(1880) 评论(0) 推荐(0) 编辑

两个 CopyRect

摘要：Windows.CopyRect 是系统 API 函数, 功能是复制矩形的参数; TCanvas.CopyRect 是 TCanvas 类的方法, 功能是复制矩形范围内的图像, 有点像 BitBlt 函数. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, G... 阅读全文

posted @ 2008-06-25 18:05 万一阅读(7258) 评论(2) 推荐(0) 编辑

WinAPI: 测试 BitBlt

摘要：BitBlt( DestDC: HDC; {目标 DC} X, Y, Width, Height: Integer; {目标位置与大小} SrcDC: HDC; {源 DC} XSrc, YSrc: Integer; {源起始位置} Rop: DWORD ... 阅读全文

posted @ 2008-06-25 11:30 万一阅读(7649) 评论(1) 推荐(0) 编辑

再学 GDI+[61]: 路径画刷(1) - SetCenterColor、SetSurroundColors

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst, ExtCtrls, TeCanvas; type TForm1 = class(TFor... 阅读全文

posted @ 2008-06-24 12:00 万一阅读(2095) 评论(0) 推荐(0) 编辑

Delphi 关键字详解[整理于 "橙子" 的帖子]

摘要：absolute //它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同. var Str: string[32]; StrLen: Byte absolute Str; //这个声明指定了变量StrLen起始地址与Str相同. //由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度. begin Str := 'abc'; Edit... 阅读全文

posted @ 2008-06-23 23:40 万一阅读(24710) 评论(34) 推荐(4) 编辑

再学 GDI+[60]: TGPGraphics.SetSmoothingMode - 绘图质量

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; ... 阅读全文

posted @ 2008-06-23 13:32 万一阅读(3871) 评论(0) 推荐(0) 编辑

再学 GDI+[59]: 路径 - TGPGraphicsPathIterator

摘要：通过路径的辅助类 TGPGraphicsPathIterator , 可以获得更多路径数据和控制能力. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type... 阅读全文

posted @ 2008-06-22 13:52 万一阅读(2421) 评论(2) 推荐(0) 编辑

再学 GDI+[58]: 路径 - 保存与读取路径数据

摘要：本例演示了把路径中的数据保存到一个文本文件, 然后再读出的过程. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(T... 阅读全文

posted @ 2008-06-21 21:15 万一阅读(2540) 评论(0) 推荐(0) 编辑

学习官方示例 - TForm.BorderIcons

摘要：本例用一行代码禁用了最大化按钮. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TO... 阅读全文

posted @ 2008-06-21 12:25 万一阅读(3922) 评论(2) 推荐(1) 编辑

再学 GDI+[57]: 路径 - Widen

摘要：路径的 Widen 方法可以把路径中的线, 根据指定画笔的宽度与样式, 转换为一个范围(有点类似区域); 但转换后再描绘路径就只能使用 FillPath 而不是 DrawPath 了. 本例没有测试它的两个默认参数, 因为前面已多次提到了. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Var... 阅读全文

posted @ 2008-06-20 23:23 万一阅读(1973) 评论(0) 推荐(0) 编辑

再学 GDI+[56]: 路径 - Warp

摘要：通过路径的 Warp 方法可以让路径在一个范围内(四个点决定的范围)变换; 第一个参数可以是 3 个点或 4 个点的数组, 如果是 3 个的数组, 那么第 4 个点将自动跟随一个平行四边形; 第二个参数用来指定点数组的个数, 本例就是通过这个参数控制了点的个数; 第三个参数是一个矩形, 这个矩形应该是路径的外接矩形, 之后的参数都是可选的; 第四个参数也是一个矩阵变换, 因由专门的例子 , 这里... 阅读全文

posted @ 2008-06-20 19:26 万一阅读(2364) 评论(2) 推荐(0) 编辑

再学 GDI+[55]: 路径 - Flatten

摘要：通过路径的 Flatten 方法可以把路径中的曲线拉直, 拉直到什么程度是由它的第二个参数(默认0.25)决定的; 它的第一个参数又是一个矩阵变换, 也就是说 Flatten 可以同时进行矩阵变换, 本例没有测试它, 其详情参见:http://www.cnblogs.com/del/archive/2008/06/20/1226293.html 本例效果图: 代码文件: unit Unit1... 阅读全文

posted @ 2008-06-20 10:20 万一阅读(2161) 评论(0) 推荐(0) 编辑

再学 GDI+[54]: 路径 - Transform

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Pan... 阅读全文

posted @ 2008-06-20 00:48 万一阅读(2648) 评论(3) 推荐(0) 编辑

再学 GDI+[53]: 路径 - SetFillMode

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) RadioGroup1: ... 阅读全文

posted @ 2008-06-19 22:13 万一阅读(2323) 评论(0) 推荐(0) 编辑

再学 GDI+[52]: 路径 - Reverse、Reset

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; ... 阅读全文

posted @ 2008-06-19 17:27 万一阅读(1953) 评论(0) 推荐(0) 编辑

再学 GDI+[51]: 路径 - IsVisible、IsOutlineVisible

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObj... 阅读全文

posted @ 2008-06-19 16:41 万一阅读(2904) 评论(7) 推荐(0) 编辑

学习官方示例 - TApplication.OnShowHint

摘要：代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLab... 阅读全文

posted @ 2008-06-19 15:26 万一阅读(3879) 评论(0) 推荐(0) 编辑

学习官方示例 - TApplication.OnMessage

摘要：本例演示了一个消息的定义、发送和接受的过程. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ... 阅读全文

posted @ 2008-06-19 12:48 万一阅读(6883) 评论(14) 推荐(0) 编辑

学习官方示例 - TApplication.OnException

摘要：本例演示了全局的异常捕获及处理, 并模拟激发了一个异常; 编译后, 单独运行一下生成的程序文件... 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type ... 阅读全文

posted @ 2008-06-19 12:14 万一阅读(4385) 评论(0) 推荐(0) 编辑

学习官方示例 - TApplication.OnDeactivate

摘要：本例功能: 切换窗口时让程序最小化. 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Se... 阅读全文

posted @ 2008-06-19 11:52 万一阅读(3114) 评论(0) 推荐(0) 编辑

学习官方示例 - TApplication.Icon

摘要：本例同时包含了 TOpenPictureDialog 控件的一些用法. 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtDlgs, StdCtrls; type TForm1 = cla... 阅读全文

posted @ 2008-06-19 11:35 万一阅读(3979) 评论(0) 推荐(0) 编辑

学习官方示例 - TApplication.ExeName

摘要：本例包含用 TFileStream 复制文件和用 ShellAPI.ShellExecute 打开文件夹的方法. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; ... 阅读全文

posted @ 2008-06-19 10:48 万一阅读(5038) 评论(3) 推荐(0) 编辑

学习官方示例 - TApplication.CreateForm

摘要：本例源码下载, 运行效果图: 制作过程: 1、新建工程后, 再添加 Form2、Form3、Form4、Form5; 2、在 Form5 上分别添加一个 TProgressBar、TLabel(使用默认名称); 3、打开工程源码(Project -> View Source), 贴入以下文件后运行. program Project1; uses Forms, SysUtils, ... 阅读全文

posted @ 2008-06-19 09:24 万一阅读(7901) 评论(2) 推荐(0) 编辑

用 API 实现的获取文本容器中选择的文本 - 回复 "roy.flex" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/18/1083011.html#1229305 告诉 roy.flex 同学: 你的问题还是挺复杂的, 先要完成的就是这一步; 再往下做, 如果要捕获其他程序中的鼠标需要做 DLL; 不过还有个简单办法, 就是用 TTimer 定时获取, 这样也就不用钩子了; 但是还需要知道要操作对象的句柄,... 阅读全文

posted @ 2008-06-19 00:32 万一阅读(4931) 评论(15) 推荐(0) 编辑

再学 GDI+[50]: 路径 - GetPathPoints、GetPathTypes、TPathData、GetPathData

摘要：这个例子有错误! 点的类型很多时候不是单一的;譬如某个点可能同时是子路径结束点、曲线点、标记点, 此时类型值就是三种类型的复合值.遗憾的是做这个例子时, 我还不知道... 放在这里吧, 留个纪念, 记下曾经的幼稚!本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics... 阅读全文

posted @ 2008-06-18 18:23 万一阅读(3470) 评论(0) 推荐(0) 编辑

再学 GDI+[49]: 路径 - GetPointCount、GetPathPoints、GetLastPoint、GetBounds

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; ... 阅读全文

posted @ 2008-06-18 15:30 万一阅读(2734) 评论(0) 推荐(0) 编辑

再学 GDI+[48]: 路径 - StartFigure、CloseFigure、CloseAllFigures

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; ... 阅读全文

posted @ 2008-06-18 11:30 万一阅读(3014) 评论(6) 推荐(0) 编辑

再学 GDI+[47]: 路径 - CloseFigure

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; ... 阅读全文

posted @ 2008-06-18 10:50 万一阅读(2155) 评论(0) 推荐(0) 编辑

再学 GDI+[46]: 路径 - Create、FillPath、DrawPath

摘要：本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); ... 阅读全文

posted @ 2008-06-18 01:47 万一阅读(4072) 评论(1) 推荐(0) 编辑

再学 GDI+[45]: 文本输出 - 在矩形中格式化输出

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls; type TForm1 = class(TForm) Rad... 阅读全文

posted @ 2008-06-17 18:18 万一阅读(6173) 评论(4) 推荐(0) 编辑

再学 GDI+[45]: 文本输出 - 文本呈现质量

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ComboBox1: TComboBox; ... 阅读全文

posted @ 2008-06-17 15:41 万一阅读(3793) 评论(0) 推荐(0) 编辑

再学 GDI+[44]: 文本输出 - 字体

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; ... 阅读全文

posted @ 2008-06-17 14:36 万一阅读(2279) 评论(5) 推荐(0) 编辑

WinAPI: GetModuleFileName、GetModuleHandle

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure FormCr... 阅读全文

posted @ 2008-06-17 11:40 万一阅读(9382) 评论(13) 推荐(0) 编辑

再学 GDI+[43]: 文本输出 - 获取已安装的字体列表

摘要：这比用 Screen.Fonts; 获取麻烦一些. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ... 阅读全文

posted @ 2008-06-16 23:43 万一阅读(1784) 评论(0) 推荐(0) 编辑

获取已打开的所有记事本的标题

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; ... 阅读全文

posted @ 2008-06-16 21:42 万一阅读(3524) 评论(5) 推荐(0) 编辑

再学 GDI+[42]: 文本输出 - 字号单位

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = class(TForm) Rad... 阅读全文

posted @ 2008-06-16 18:56 万一阅读(2066) 评论(0) 推荐(0) 编辑

再学 GDI+[41]: 文本输出 - 控制输出字符的个数

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObje... 阅读全文

posted @ 2008-06-16 17:41 万一阅读(1948) 评论(1) 推荐(0) 编辑

再学 GDI+[40]: 文本输出 - 选择画刷

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, CheckLst; type TForm1 = class(TForm) Rad... 阅读全文

posted @ 2008-06-16 14:45 万一阅读(2056) 评论(5) 推荐(0) 编辑

再学 GDI+[39]: 文本输出 - 文本样式

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst; type TForm1 = class(TForm) CheckListBox1... 阅读全文

posted @ 2008-06-16 14:14 万一阅读(2381) 评论(0) 推荐(0) 编辑

再学 GDI+[38]: 文本输出 - DrawString、TGPFont

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; B... 阅读全文

posted @ 2008-06-16 11:05 万一阅读(4647) 评论(5) 推荐(0) 编辑

再学 GDI+[37]: TGPPen - TGPCustomLineCap、SetCustomStartCap、SetCustomEndCap

摘要：GDI+ 可以自定义线帽, 本例定义的起始线帽是一个小矩形、终止线帽是一个小三角形. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; typ... 阅读全文

posted @ 2008-06-15 22:10 万一阅读(2635) 评论(6) 推荐(0) 编辑

再学 GDI+[36]: TGPPen - SetLineCap

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) ComboBox1: TC... 阅读全文

posted @ 2008-06-15 00:04 万一阅读(2212) 评论(0) 推荐(0) 编辑

给 "blog V5" 的关于 TrackBar 控件的简单例子

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/14/1220638.html#1225896 例一效果图: 例一代码: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia... 阅读全文

posted @ 2008-06-14 20:45 万一阅读(2744) 评论(2) 推荐(0) 编辑

使窗口(和 MDI 子窗口)的关闭按钮变灰的方法 - 回复 "梦想成真"

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/14/1221980.html#1225922 //这样就可以使当前窗口的关闭按钮变灰, 但系统菜单中会有一条多余的线 var h: HMENU; begin h := GetSystemMenu(Handle, False); DeleteMenu(h, SC_CLOSE, MF_BY... 阅读全文

posted @ 2008-06-14 20:00 万一阅读(2763) 评论(2) 推荐(0) 编辑

获取鼠标当前位置坐标的方法 - 回复 "ps8.0" 同学

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/14/1218771.html#1225859 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; ty... 阅读全文

posted @ 2008-06-14 17:41 万一阅读(8021) 评论(8) 推荐(0) 编辑

再学 GDI+[35]: TGPPen - 虚线画笔位移 - SetDashOffset

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; pro... 阅读全文

posted @ 2008-06-14 13:17 万一阅读(2113) 评论(0) 推荐(0) 编辑

再学 GDI+[34]: TGPPen - 画笔的缩放变换 - ScaleTransform

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TrackBar1: TT... 阅读全文

posted @ 2008-06-13 23:07 万一阅读(2557) 评论(6) 推荐(0) 编辑

再学 GDI+[33]: TGPPen - 画笔的几何变换 - SetTransform

摘要：几何变换也就是 Matrix 变换, 画笔的 Matrix 会忽略 dx、dy 平移参数; 选择 LineCapRound 线帽效果比较好. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialo... 阅读全文

posted @ 2008-06-13 22:03 万一阅读(1923) 评论(0) 推荐(0) 编辑

再学 GDI+[32]: TGPPen - 拐角长度的限制 - SetMiterLimit

摘要：拐角长度的限制的默认值是 10.0, 一般足够用了. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = cla... 阅读全文

posted @ 2008-06-13 20:32 万一阅读(1795) 评论(0) 推荐(0) 编辑

再学 GDI+[31]: TGPPen - 设置端点连接方式 - SetLineJoin

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; ... 阅读全文

posted @ 2008-06-13 19:32 万一阅读(2282) 评论(0) 推荐(0) 编辑

再学 GDI+[30]: TGPPen - 用画刷定义的画笔

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) RadioGroup1: ... 阅读全文

posted @ 2008-06-13 16:34 万一阅读(1745) 评论(0) 推荐(0) 编辑

问与答[2008-6-13] - 如何测试博客提供的代码?

摘要：如果测试本博客提供的测试代码? 如果有 "代码文件" 和 "窗体文件", 四步走: 1、新建工程(一般是 VCL Forms Application); 2、进入代码页(一般是 Unit1), 全选, 把 "代码文件" 贴入; 3、在窗体设计状态下(Design), 通过右键菜单或 Alt+F12 进入 "窗体代码" 页, 全选, 把 "窗体文件" 贴入; 4、运行! 如果只有 "代码文件",... 阅读全文

posted @ 2008-06-13 15:23 万一阅读(6822) 评论(9) 推荐(0) 编辑

再学 GDI+[29]: TGPPen - 自定义复合画笔 - SetCompoundArray

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) LabeledEdit1:... 阅读全文

posted @ 2008-06-13 13:51 万一阅读(1954) 评论(0) 推荐(0) 编辑

关于动画移动矩形的例子 - 回复 "ps8.0" 同学

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/12/1131232.html#1224216 首先, 实现这个问题有两种方法: 1、边擦边画; 2、先在内存绘图然后再复制到前台, 就是所谓的双倍缓存. 本例使用的是比较传统的 "边擦边画" 法, 但现在更提倡使用 "双倍缓存" 法. 本例效果图(实际的动画效果比这个 gif 要好一些): 代... 阅读全文

posted @ 2008-06-13 00:23 万一阅读(2277) 评论(7) 推荐(0) 编辑

再学 GDI+[28]: TGPPen - 自定义画笔的虚线样式 - SetDashPattern

摘要：自定义的虚线样式依赖与一个数组, 数组的元素分别代表虚线中线与间的长度, 数组大小好像没有限制; 本例使用了六个元素的数组, 也就是表示虚线有三个线段和和三个间隔构成. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, ... 阅读全文

posted @ 2008-06-12 18:27 万一阅读(3657) 评论(0) 推荐(0) 编辑

再学 GDI+[27]: TGPPen - 画笔样式 - SetDashStyle

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) ComboBox1: TC... 阅读全文

posted @ 2008-06-12 17:20 万一阅读(4098) 评论(2) 推荐(0) 编辑

再学 GDI+[26]: TGPPen - 画笔对齐 - SetAlignment

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) RadioGroup1: ... 阅读全文

posted @ 2008-06-12 16:48 万一阅读(2697) 评论(0) 推荐(0) 编辑

再学 GDI+[25]: TGPPen - 宽度、颜色与线帽

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TeCanvas, ComCtrls; type TForm1 = class(TForm) Com... 阅读全文

posted @ 2008-06-12 14:51 万一阅读(2417) 评论(1) 推荐(0) 编辑

用 TClientDataSet 创建 XML 文件的过程 - 回复"丁永其"的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/12/1114450.html#1223758 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia... 阅读全文

posted @ 2008-06-12 11:32 万一阅读(1945) 评论(0) 推荐(0) 编辑

再学 GDI+[24]: TGPLinearGradientBrush - 之三

摘要：TGPLinearGradientBrush.Create( const point1, point2: TGPPoint; {线性渐变起始点与终止点} color1, color2: TGPColor {线性渐变起始色与终止色} ); TGPLinearGradientBrush.Create( const point1, point2: TGPPointF; ... 阅读全文

posted @ 2008-06-12 00:20 万一阅读(2086) 评论(4) 推荐(0) 编辑

再学 GDI+[23]: TGPLinearGradientBrush - 之二

摘要：TGPLinearGradientBrush.Create( rect: TGPRect; {变化范围} color1, color2: TGPColor; {起始色与终止色} angle: Single; {旋转角度} isAngleScalable: BOOL = FALSE {是否受 TLinearGrad... 阅读全文

posted @ 2008-06-11 19:18 万一阅读(1801) 评论(0) 推荐(0) 编辑

再学 GDI+[22]: TGPLinearGradientBrush - 之一: TLinearGradientMode

摘要：TGPLinearGradientBrush.Create( rect: TGPRect; {线性渐变的界限} color1, color2: TGPColor; {线性渐变起始色与终止色} mode: TLinearGradientMode {渐变方向, 见下表} ); TGPLinearGradientBrush.Create( rect: TGPRe... 阅读全文

posted @ 2008-06-11 17:00 万一阅读(2538) 评论(0) 推荐(0) 编辑

再学 GDI+[21]: TGPTextureBrush 与 TGPMatrix

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Pan... 阅读全文

posted @ 2008-06-11 14:40 万一阅读(2078) 评论(0) 推荐(0) 编辑

再学 GDI+[20]: TGPTextureBrush 与 TWrapMode

摘要：TGPTextureBrush.Create( image: TGPImage; {用于画刷的图像} wrapMode: TWrapMode = WrapModeTile {平铺样式, 是可选值, 见下表} ); 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, Sy... 阅读全文

posted @ 2008-06-11 11:25 万一阅读(2154) 评论(1) 推荐(0) 编辑

再学 GDI+[19]: TGPTextureBrush(纹理画刷)

摘要：TGPTextureBrush.Create( image: TGPImage; {用于画刷的图像} ); 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 ... 阅读全文

posted @ 2008-06-11 10:32 万一阅读(1978) 评论(0) 推荐(0) 编辑

再学 GDI+[18]: FillEllipse、TGPHatchBrush(阴影画刷)

摘要：TGPHatchBrush.Create( hatchStyle: THatchStyle; {阴影样式, 见下表} foreColor: TGPColor; {前景色} backColor: TGPColor = aclBlack {背景色, 是可选值, 默认是黑色} ); 本例效果图: 代码文件: unit Unit1; interfa... 阅读全文

posted @ 2008-06-10 23:30 万一阅读(3568) 评论(4) 推荐(0) 编辑

再学 GDI+[17]: FillRectangle、ColorRefToARGB、TGPSolidBrush 和颜色透明度

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Col... 阅读全文

posted @ 2008-06-10 16:01 万一阅读(3230) 评论(2) 推荐(0) 编辑

再学 GDI+[16]: GDI+ 的颜色常量表

摘要：颜色名称颜色效果颜色值 aclAliceBlue$FFF0F8FF aclAntiqueWhite$FFFAEBD7 aclAqua$FF00FFFF aclAquamarine$FF7FFFD4 aclAzure$FFF0FFFF aclBeige$FFF5F5DC aclBisque$FFFFE4C4 aclBlack$FF000000 aclBlanchedAlmond$... 阅读全文

posted @ 2008-06-10 14:15 万一阅读(4348) 评论(0) 推荐(0) 编辑

再学 GDI+[15]: GDIPAPI 单元提供的 Make 及 Color 系列函数

摘要：function MakePoint(X, Y: Integer): TGPPoint; overload; function MakePoint(X, Y: Single): TGPPointF; overload; function MakeSize(Width, Height: Integer): TGPSize; overload; function MakeSize(Width, H... 阅读全文

posted @ 2008-06-10 13:05 万一阅读(2910) 评论(0) 推荐(0) 编辑

再学 GDI+[14]: DrawBeziers - 绘制一组贝塞尔线

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObjec... 阅读全文

posted @ 2008-06-10 12:09 万一阅读(2372) 评论(0) 推荐(0) 编辑

再学 GDI+[13]: DrawBezier - 绘制贝塞尔线

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObjec... 阅读全文

posted @ 2008-06-10 11:18 万一阅读(3791) 评论(0) 推荐(0) 编辑

再学 GDI+[12]: 准备工作 - 矩形命中

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormMouseDown(Sender: T... 阅读全文

posted @ 2008-06-10 01:49 万一阅读(1988) 评论(0) 推荐(0) 编辑

再学 GDI+[11]: DrawCurve - 绘制曲线

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls; type TForm1 = class(TForm) But... 阅读全文

posted @ 2008-06-09 23:12 万一阅读(6594) 评论(2) 推荐(1) 编辑

判断字符串中子串个数的函数

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end; v... 阅读全文

posted @ 2008-06-09 18:16 万一阅读(7387) 评论(24) 推荐(0) 编辑

再学 GDI+[10]: DrawClosedCurve - 绘制闭合曲线

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) Button1: TBut... 阅读全文

posted @ 2008-06-09 17:01 万一阅读(3236) 评论(2) 推荐(1) 编辑

再学 GDI+[9]: DrawPolygon - 绘制多边形

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; B... 阅读全文

posted @ 2008-06-09 10:58 万一阅读(5009) 评论(0) 推荐(0) 编辑

再学 GDI+[8]: DrawRectangles - 绘制一组矩形

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObje... 阅读全文

posted @ 2008-06-09 10:43 万一阅读(2306) 评论(3) 推荐(0) 编辑

再学 GDI+[7]: DrawLines - 绘制一组直线

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; B... 阅读全文

posted @ 2008-06-09 09:48 万一阅读(3075) 评论(0) 推荐(0) 编辑

再学 GDI+[6]: DrawPie - 绘制饼形

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin, ExtCtrls; type TForm1 = class(TForm) Panel1:... 阅读全文

posted @ 2008-06-09 00:31 万一阅读(2920) 评论(1) 推荐(0) 编辑

再学 GDI+[5]: DrawArc - 绘制弧线

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin, ExtCtrls; type TForm1 = class(TForm) Panel1:... 阅读全文

posted @ 2008-06-08 21:07 万一阅读(4013) 评论(4) 推荐(0) 编辑

再学 GDI+[4]: DrawEllipse - 绘制椭圆

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObje... 阅读全文

posted @ 2008-06-08 13:24 万一阅读(3572) 评论(4) 推荐(0) 编辑

再学 GDI+[3]: DrawRectangle - 绘制矩形

摘要：本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); ... 阅读全文

posted @ 2008-06-07 23:08 万一阅读(3945) 评论(2) 推荐(0) 编辑

再学 GDI+[2]: DrawLine - 绘制直线

摘要：本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); ... 阅读全文

posted @ 2008-06-07 22:31 万一阅读(4870) 评论(7) 推荐(0) 编辑

再学 GDI+[1]: 安装文件头

摘要：如果使用 Delphi 2009 之后的版本, 推荐使用:http://www.cnblogs.com/del/archive/2009/12/11/1621790.html.下面这些是以前用 2007 弄的.GDI+ 是 Windows 的一个函数库, 来自 Windows\System32\GDIPlus.dll, 其中包含了 610 个函数.在 Delphi 中使用需要先下载安装 GDI+ ... 阅读全文

posted @ 2008-06-06 19:02 万一阅读(12730) 评论(20) 推荐(0) 编辑

使用 {$INCLUDE} 或 {$I} 指令管理和调用自定义函数

摘要：这是一个简单、方便而又实用的小技巧. 譬如这段代码中有四个定义函数: MyAdd、MyDec、MyMul、MyDiv我们可以把其中的自定义函数(也可以是其他代码)剪切保存在一个文本文件中(譬如是: C:\DelphiFun\MyFun.inc); 然后在原来代码的位置用 {$INCLUDE C:\DelphiFun\MyFun.inc} 或 {$I C:\DelphiFun\MyFun.inc} ... 阅读全文

posted @ 2008-06-06 12:42 万一阅读(6783) 评论(5) 推荐(0) 编辑

用 GDI 操作 EMF 文件[8]: 绘制图元文件时改变画笔与画刷

摘要：本例效果图: 代码文件: 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 万一阅读(3061) 评论(2) 推荐(0) 编辑

用 GDI 操作 EMF 文件[7]: EnumEnhMetaFile、PlayEnhMetaFileRecord - 枚举文件中的图形命令

摘要：EnumEnhMetaFile( DC: HDC; {目标设备句柄; 如果回调函数不需要回放, 该参数为 0} Emf: HENHMETAFILE; {图元文件句柄} EnhMetaFunc: TFNEnhMFEnumProc; {回调函数指针; 回调函数格式见下} Data: Pointer; ... 阅读全文

posted @ 2008-06-05 13:20 万一阅读(5083) 评论(6) 推荐(0) 编辑

用 GDI 操作 EMF 文件[6]: GetEnhMetaFileHeader - 获取 EMF 的头文件

摘要：//增强图元文件的头文件结构 TEnhMetaHeader: tagENHMETAHEADER = packed record iType: DWORD; {记录类型} nSize: DWORD; {结构大小} rclBounds: TRect; {外接矩形(单位是像素)} rclFrame: TRect; {图片矩形(单... 阅读全文

posted @ 2008-06-05 00:55 万一阅读(3860) 评论(0) 推荐(0) 编辑

用 GDI 操作 EMF 文件[5]: GetEnhMetaFileDescription - 获取 EMF 文件的说明文本

摘要：再用 CreateEnhMetaFile 函数建立 EMF 文件时可以同时写入描述性说明; 用 GetEnhMetaFileDescription 函数可以读出 EMF 文件的说明文本. 本例给的说明文本非常简单, 不过标准的说明文本的格式应该是: 程序名#0文件标题#0#0 unit Unit1; interface uses Windows, Messages, SysUtils, ... 阅读全文

posted @ 2008-06-04 22:07 万一阅读(3010) 评论(0) 推荐(0) 编辑

用 GDI 操作 EMF 文件[4]: 重绘 EMF

摘要：本例效果图: 代码文件: 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 万一阅读(2864) 评论(0) 推荐(0) 编辑

用 GDI 操作 EMF 文件[3]: GetEnhMetaFile

摘要：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 万一阅读(2740) 评论(0) 推荐(0) 编辑

用 GDI 操作 EMF 文件[2]: PlayEnhMetaFile、DeleteEnhMetaFile

摘要：创建 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 万一阅读(3099) 评论(0) 推荐(0) 编辑

用 GDI 操作 EMF 文件[1]: CreateEnhMetaFile、CloseEnhMetaFile

摘要：EMF 文件是 Windows 下的增强图元文件, 本例用最简单的代码创建了一个 EMF 文件. CreateEnhMetaFile( DC: HDC; {所参照的 DC, 为 0 表示参照当前的显示设备} FileName: PChar; {文件名, 为 nil 表示创建内存文件} Rect: PRect; {外接矩形(单位是 0.1 毫米), 为 nil ... 阅读全文

posted @ 2008-06-04 16:39 万一阅读(5962) 评论(0) 推荐(0) 编辑

DupeString 与 StringOfChar 的区别 - 回复 "鹰@长空"

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/06/04/1101970.html#1217512 StringOfChar 是反复 "字符" 成 "字符串" 的函数; DupeString 是反复 "字符串" 成 "新字符串" 的函数; StringOfChar 来自 System 单元, 可以直接使用; DupeString 来自 StrUtils... 阅读全文

posted @ 2008-06-04 10:03 万一阅读(3660) 评论(3) 推荐(0) 编辑

Memo1.Lines.Add(s) 与 Memo1.Lines.Append(s) 的区别是什么? - 回复 "鹰@长空"

摘要：问题来源: 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 万一阅读(5389) 评论(8) 推荐(0) 编辑

一毫米等于多少像素? - GetDeviceCaps

摘要：这不是个确定的值, 它和设备的分辨率相关. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sende... 阅读全文

posted @ 2008-06-03 22:55 万一阅读(15282) 评论(1) 推荐(0) 编辑

WinAPI: ExtCreateRegion - 区域变换

摘要：相似函数: SetWorldTransform 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(... 阅读全文

posted @ 2008-06-03 01:03 万一阅读(4616) 评论(2) 推荐(0) 编辑

WinAPI: SetWindowExtEx、SetViewportExtEx

摘要：相似函数: ScaleWindowExtEx、ScaleViewportExtEx 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls; type... 阅读全文

posted @ 2008-06-02 19:15 万一阅读(3935) 评论(6) 推荐(0) 编辑

WinAPI: WritePrivateProfileString、GetPrivateProfileString - 简单读写 Ini 文件

摘要：尽管使用 TIniFile 类很方便, 但我觉得还是用系统 API 操作更顺手, 读写各只需要一行代码, 也不用 uses IniFiles. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dial... 阅读全文

posted @ 2008-06-02 13:48 万一阅读(7382) 评论(17) 推荐(0) 编辑