摘要: 点击查看... 阅读全文
posted @ 2009-01-25 15:26 万一 阅读(4836) 评论(0) 推荐(1)
摘要: //让 TDIB 的这些特效烦透了: 多、还重复、又不完善; 还没有测试或测试失败的方法: procedure DrawShadow(SrcDIB: TDIB; X, Y, Width, Height, Frame: Integer; FilterMode: TFilterMode); procedure DrawShadows(SrcDIB: TDIB; X, Y, Width, Heigh... 阅读全文
posted @ 2009-01-25 12:48 万一 阅读(3476) 评论(4) 推荐(0)
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文
posted @ 2009-01-25 11:01 万一 阅读(2161) 评论(0) 推荐(0)
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文
posted @ 2009-01-25 10:30 万一 阅读(1785) 评论(0) 推荐(0)