再学 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) 编辑
再学 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) 编辑
再学 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)
推荐(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)
推荐(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) 编辑
再学 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) 编辑
再学 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) 编辑
再学 GDI+[73]: 区域(2) - 区域运算
摘要:Intersect {交集} Union {联合} Xor_ {减去交集} Exclude {减去} Complement {不相交} //GDI+ 的区域能和矩形、路径、另一个区域三种对象进行运算. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Vari...
阅读全文
posted @
2008-06-30 13:10
万一
阅读(2763)
推荐(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) 编辑
再学 GDI+[71]: 路径画刷(11) - RotateTransform、ScaleTransform 等变换
摘要:RotateTransform {旋转} ScaleTransform {缩放} TranslateTransform {平移} SetTransform {综合的矩阵变换} ResetTransform {取消变换} 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysU...
阅读全文
posted @
2008-06-29 19:45
万一
阅读(3858)
推荐(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) 编辑
再学 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) 编辑
再学 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) 编辑
再学 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) 编辑
再学 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)
推荐(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) 编辑
再学 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) 编辑
把整个窗体保存为图片的方法 - 回复 "乌龙哈里" 的问题
摘要:问题来源: 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)
推荐(0) 编辑
博客导读 - old
摘要:Windows 编程 | 学习 Message | 多线程编程 | 内存管理 | 内存函数 | 钩子函数 | 初学汇编 | 算法与数据结构 | 资源文件 | 光标相关函数 | WinAPI 字符及字符串函数 | 再学 GDI+ | 用 GDI 操作 EMF 文件 | Delphi 的绘图功能 | 理解类 | TStringGrid | TMainMenu...
阅读全文
posted @
2008-06-26 14:31
万一
阅读(3323)
推荐(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) 编辑
再学 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) 编辑
两个 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)
推荐(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)
推荐(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) 编辑
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)
推荐(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) 编辑
再学 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)
推荐(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) 编辑
学习官方示例 - 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)
推荐(1) 编辑
再学 GDI+[57]: 路径 - Widen
摘要:路径的 Widen 方法可以把路径中的线, 根据指定画笔的宽度与样式, 转换为一个范围(有点类似区域); 但转换后再描绘路径就只能使用 FillPath 而不是 DrawPath 了. 本例没有测试它的两个默认参数, 因为前面已多次提到了. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Var...
阅读全文
posted @
2008-06-20 23:23
万一
阅读(1973)
推荐(0) 编辑
再学 GDI+[56]: 路径 - Warp
摘要:通过路径的 Warp 方法可以让路径在一个范围内(四个点决定的范围)变换; 第一个参数可以是 3 个点或 4 个点的数组, 如果是 3 个的数组, 那么第 4 个点将自动跟随一个平行四边形; 第二个参数用来指定点数组的个数, 本例就是通过这个参数控制了点的个数; 第三个参数是一个矩形, 这个矩形应该是路径的外接矩形, 之后的参数都是可选的; 第四个参数也是一个矩阵变换, 因由专门的 例子 , 这里...
阅读全文
posted @
2008-06-20 19:26
万一
阅读(2364)
推荐(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) 编辑
再学 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)
推荐(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) 编辑
再学 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) 编辑
再学 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)
推荐(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) 编辑
学习官方示例 - 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)
推荐(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) 编辑
学习官方示例 - 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) 编辑
学习官方示例 - 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) 编辑
学习官方示例 - 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)
推荐(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)
推荐(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)
推荐(0) 编辑
再学 GDI+[50]: 路径 - GetPathPoints、GetPathTypes、TPathData、GetPathData
摘要:这个例子有错误! 点的类型很多时候不是单一的;譬如某个点可能同时是子路径结束点、曲线点、标记点, 此时类型值就是三种类型的复合值.遗憾的是做这个例子时, 我还不知道... 放在这里吧, 留个纪念, 记下曾经的幼稚!本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics...
阅读全文
posted @
2008-06-18 18:23
万一
阅读(3470)
推荐(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) 编辑
再学 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)
推荐(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) 编辑
再学 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)
推荐(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)
推荐(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) 编辑
再学 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)
推荐(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)
推荐(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) 编辑
获取已打开的所有记事本的标题
摘要: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)
推荐(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) 编辑
再学 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)
推荐(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)
推荐(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) 编辑
再学 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)
推荐(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)
推荐(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) 编辑
给 "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)
推荐(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)
推荐(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)
推荐(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) 编辑
再学 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)
推荐(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) 编辑
再学 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) 编辑
再学 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) 编辑
再学 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) 编辑
问与答[2008-6-13] - 如何测试博客提供的代码?
摘要:如果测试本博客提供的测试代码? 如果有 "代码文件" 和 "窗体文件", 四步走: 1、新建工程(一般是 VCL Forms Application); 2、进入代码页(一般是 Unit1), 全选, 把 "代码文件" 贴入; 3、在窗体设计状态下(Design), 通过右键菜单或 Alt+F12 进入 "窗体代码" 页, 全选, 把 "窗体文件" 贴入; 4、运行! 如果只有 "代码文件",...
阅读全文
posted @
2008-06-13 15:23
万一
阅读(6822)
推荐(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) 编辑
关于动画移动矩形的例子 - 回复 "ps8.0" 同学
摘要:问题来源: http://www.cnblogs.com/del/archive/2008/06/12/1131232.html#1224216 首先, 实现这个问题有两种方法: 1、边擦边画; 2、先在内存绘图然后再复制到前台, 就是所谓的双倍缓存. 本例使用的是比较传统的 "边擦边画" 法, 但现在更提倡使用 "双倍缓存" 法. 本例效果图(实际的动画效果比这个 gif 要好一些): 代...
阅读全文
posted @
2008-06-13 00:23
万一
阅读(2277)
推荐(0) 编辑
再学 GDI+[28]: TGPPen - 自定义画笔的虚线样式 - SetDashPattern
摘要:自定义的虚线样式依赖与一个数组, 数组的元素分别代表虚线中线与间的长度, 数组大小好像没有限制; 本例使用了六个元素的数组, 也就是表示虚线有三个线段和和三个间隔构成. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, ...
阅读全文
posted @
2008-06-12 18:27
万一
阅读(3657)
推荐(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)
推荐(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) 编辑
再学 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)
推荐(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) 编辑
再学 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)
推荐(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) 编辑
再学 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) 编辑
再学 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) 编辑
再学 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)
推荐(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) 编辑
再学 GDI+[18]: FillEllipse、TGPHatchBrush(阴影画刷)
摘要:TGPHatchBrush.Create( hatchStyle: THatchStyle; {阴影样式, 见下表} foreColor: TGPColor; {前景色} backColor: TGPColor = aclBlack {背景色, 是可选值, 默认是黑色} ); 本例效果图: 代码文件: unit Unit1; interfa...
阅读全文
posted @
2008-06-10 23:30
万一
阅读(3568)
推荐(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)
推荐(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) 编辑
再学 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) 编辑
再学 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) 编辑
再学 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) 编辑
再学 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) 编辑
再学 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)
推荐(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)
推荐(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)
推荐(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) 编辑
再学 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)
推荐(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) 编辑
再学 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)
推荐(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)
推荐(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)
推荐(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)
推荐(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)
推荐(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)
推荐(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)
推荐(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)
推荐(0) 编辑
用 GDI 操作 EMF 文件[7]: EnumEnhMetaFile、PlayEnhMetaFileRecord - 枚举文件中的图形命令
摘要:EnumEnhMetaFile( DC: HDC; {目标设备句柄; 如果回调函数不需要回放, 该参数为 0} Emf: HENHMETAFILE; {图元文件句柄} EnhMetaFunc: TFNEnhMFEnumProc; {回调函数指针; 回调函数格式见下} Data: Pointer; ...
阅读全文
posted @
2008-06-05 13:20
万一
阅读(5083)
推荐(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) 编辑
用 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) 编辑
用 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) 编辑
用 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) 编辑
用 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) 编辑
用 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) 编辑
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)
推荐(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)
推荐(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)
推荐(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)
推荐(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)
推荐(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)
推荐(0) 编辑