上一页 1 ··· 112 113 114 115 116 117 118 119 120 ··· 215 下一页
摘要: 其实这和 TGPImage 是没有关系的. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) M... 阅读全文
posted @ 2008-07-07 10:16 万一 阅读(2527) 评论(0) 推荐(0) 编辑
摘要: {红色增加绿色的 m 倍、蓝色的 n 倍} ColorMatrix: TColorMatrix = ( (1.0, 0.0, 0.0, 0.0, 0.0), (m, 1.0, 0.0, 0.0, 0.0), (n, 0.0, 1.0, 0.0, 0.0), (0.0, 0.0, 0.0, 1.0, 0.0), (0.0, 0.0, 0.0, 0.0, 1.0)); ... 阅读全文
posted @ 2008-07-07 00:12 万一 阅读(2113) 评论(0) 推荐(0) 编辑
摘要: 我通过做此例同时证实了 GDI+ 可以直接显示 png、gif、tif 格式的透明图片. //红色与绿色绕蓝色旋转(r 是弧度) ColorMatrix: TColorMatrix = ( (Cos(r), Sin(r), 0.0, 0.0, 0.0), (-Sin(r), Cos(r), 0.0, 0.0, 0.0), (0.0, 0.0, 1.0, ... 阅读全文
posted @ 2008-07-06 21:53 万一 阅读(2868) 评论(7) 推荐(0) 编辑
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TrackBar1: TT... 阅读全文
posted @ 2008-07-06 00:09 万一 阅读(2101) 评论(3) 推荐(0) 编辑
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TrackBar1: TT... 阅读全文
posted @ 2008-07-05 20:54 万一 阅读(2830) 评论(1) 推荐(0) 编辑
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TrackBar1: TT... 阅读全文
posted @ 2008-07-05 00:22 万一 阅读(4329) 评论(3) 推荐(0) 编辑
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; ... 阅读全文
posted @ 2008-07-04 23:45 万一 阅读(2696) 评论(0) 推荐(0) 编辑
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Butto... 阅读全文
posted @ 2008-07-04 16:50 万一 阅读(3889) 评论(0) 推荐(0) 编辑
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type TForm1 = class(TForm) DrawGrid1: TDraw... 阅读全文
posted @ 2008-07-04 02:11 万一 阅读(3118) 评论(2) 推荐(0) 编辑
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; ... 阅读全文
posted @ 2008-07-03 11:41 万一 阅读(6042) 评论(2) 推荐(0) 编辑
上一页 1 ··· 112 113 114 115 116 117 118 119 120 ··· 215 下一页