再学 GDI+[88]: TGPImage(8) - 放大镜
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; ...
阅读全文
posted @
2008-07-03 00:30
万一
阅读(3714)
推荐(0) 编辑
再学 GDI+[87]: TGPImage(7) - 调整图像大小
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObj...
阅读全文
posted @
2008-07-02 18:33
万一
阅读(4913)
推荐(0) 编辑
再学 GDI+[86]: TGPImage(6) - 拖动图像
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObj...
阅读全文
posted @
2008-07-02 15:50
万一
阅读(4386)
推荐(0) 编辑
一个用 GDI+ 给图片添加花边的例子 - 给 "sky123" 做的
摘要:按 "sky123" 的样图要求, 花边必须是透空的, 最好使用图元文件; 本例没有做完保存功能, 也没有实现整个图片的调整功能. 因为有测试图片, 给个源码下载吧: http://www.cnblogs.com/Files/del/sky123.rar 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysU...
阅读全文
posted @
2008-07-01 17:31
万一
阅读(4807)
推荐(0) 编辑
再学 GDI+[85]: TGPImage(5) - RotateFlip - 旋转与镜像
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; ...
阅读全文
posted @
2008-07-01 16:21
万一
阅读(4811)
推荐(0) 编辑
再学 GDI+[84]: TGPImage(4) - 把图像显示在指定的矩形中
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObje...
阅读全文
posted @
2008-07-01 15:47
万一
阅读(3313)
推荐(0) 编辑
再学 GDI+[83]: TGPImage(3) - 平行四边形变换
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObje...
阅读全文
posted @
2008-07-01 14:48
万一
阅读(2792)
推荐(0) 编辑
再学 GDI+[82]: TGPImage(2) - GetThumbnailImage - 略缩图
摘要:本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObje...
阅读全文
posted @
2008-07-01 12:40
万一
阅读(3409)
推荐(0) 编辑
再学 GDI+[81]: TGPImage(1) - 显示图像
摘要:已知 GDI+ 可以支持的图像格式: BMP、JPEG、GIF、TIFF、PNG、ICO、WMF、EMF TGPGraphics.DrawImage 函数有太多重载了, 一起列在这吧: function DrawImage(image: TGPImage; const point: TGPPointF): TStatus; overload; function DrawImage(image...
阅读全文
posted @
2008-07-01 09:54
万一
阅读(5745)
推荐(0) 编辑
再学 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
万一
阅读(2617)
推荐(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
万一
阅读(2902)
推荐(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
万一
阅读(2310)
推荐(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
万一
阅读(3316)
推荐(1) 编辑
再学 GDI+[76]: 区域(5) - GetDataSize、GetData
摘要:本来这个例子是要获取区域的详细信息的, 但非常遗憾, 这个版本的 GDI+ 的头文件少定义了一个 TRegionData 类! 不过也不要紧, 通过 TRegionData 主要也是获取区域中的矩形数据, GetRegionScans 函数可以完成这个任务! 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysU...
阅读全文
posted @
2008-06-30 20:05
万一
阅读(2167)
推荐(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
万一
阅读(2951)
推荐(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
万一
阅读(2045)
推荐(0) 编辑
再学 GDI+[73]: 区域(2) - 区域运算
摘要:Intersect {交集} Union {联合} Xor_ {减去交集} Exclude {减去} Complement {不相交} //GDI+ 的区域能和矩形、路径、另一个区域三种对象进行运算. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Vari...
阅读全文
posted @
2008-06-30 13:10
万一
阅读(2778)
推荐(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
万一
阅读(2742)
推荐(0) 编辑
再学 GDI+[71]: 路径画刷(11) - RotateTransform、ScaleTransform 等变换
摘要:RotateTransform {旋转} ScaleTransform {缩放} TranslateTransform {平移} SetTransform {综合的矩阵变换} ResetTransform {取消变换} 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysU...
阅读全文
posted @
2008-06-29 19:45
万一
阅读(3868)
推荐(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
万一
阅读(2049)
推荐(0) 编辑