再学 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
万一
阅读(2913)
推荐(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
万一
阅读(2301)
推荐(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
万一
阅读(3053)
推荐(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
万一
阅读(2168)
推荐(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
万一
阅读(1650)
推荐(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
万一
阅读(1821)
推荐(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
万一
阅读(1804)
推荐(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
万一
阅读(1884)
推荐(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
万一
阅读(2100)
推荐(0) 编辑
再学 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
万一
阅读(3875)
推荐(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
万一
阅读(2427)
推荐(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
万一
阅读(2547)
推荐(0) 编辑
再学 GDI+[57]: 路径 - Widen
摘要:路径的 Widen 方法可以把路径中的线, 根据指定画笔的宽度与样式, 转换为一个范围(有点类似区域); 但转换后再描绘路径就只能使用 FillPath 而不是 DrawPath 了. 本例没有测试它的两个默认参数, 因为前面已多次提到了. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Var...
阅读全文
posted @
2008-06-20 23:23
万一
阅读(1979)
推荐(0) 编辑
再学 GDI+[56]: 路径 - Warp
摘要:通过路径的 Warp 方法可以让路径在一个范围内(四个点决定的范围)变换; 第一个参数可以是 3 个点或 4 个点的数组, 如果是 3 个的数组, 那么第 4 个点将自动跟随一个平行四边形; 第二个参数用来指定点数组的个数, 本例就是通过这个参数控制了点的个数; 第三个参数是一个矩形, 这个矩形应该是路径的外接矩形, 之后的参数都是可选的; 第四个参数也是一个矩阵变换, 因由专门的 例子 , 这里...
阅读全文
posted @
2008-06-20 19:26
万一
阅读(2370)
推荐(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
万一
阅读(2166)
推荐(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
万一
阅读(2654)
推荐(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
万一
阅读(2329)
推荐(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
万一
阅读(1958)
推荐(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
万一
阅读(2908)
推荐(0) 编辑
再学 GDI+[50]: 路径 - GetPathPoints、GetPathTypes、TPathData、GetPathData
摘要:这个例子有错误! 点的类型很多时候不是单一的;譬如某个点可能同时是子路径结束点、曲线点、标记点, 此时类型值就是三种类型的复合值.遗憾的是做这个例子时, 我还不知道... 放在这里吧, 留个纪念, 记下曾经的幼稚!本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics...
阅读全文
posted @
2008-06-18 18:23
万一
阅读(3481)
推荐(0) 编辑