上一页 1 ··· 74 75 76 77 78 79 80 81 82 ··· 215 下一页
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TForm) DXPaintBox1: TDXPa... 阅读全文
posted @ 2009-01-24 18:23 万一 阅读(1686) 评论(0) 推荐(0) 编辑
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls, ExtCtrls; type TForm1 = class(TForm) DXPaintB... 阅读全文
posted @ 2009-01-23 22:26 万一 阅读(1836) 评论(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-23 20:40 万一 阅读(1692) 评论(0) 推荐(0) 编辑
摘要: TDIB.DrawTransparent: 按指定的透明色透明; TDIB.DrawTranslucent: 先按指定的透明色透明, 然后再半透明; DIB.DrawAlpha: 先按指定的透明色透明, 再按指定的透明度透明. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants... 阅读全文
posted @ 2009-01-23 19:43 万一 阅读(2366) 评论(0) 推荐(0) 编辑
摘要: 问题来源: http://www.cnblogs.com/del/archive/2009/01/23/1017571.html#1437673 本来 wuheng66888 需要的是输出旋转的文本, 下面的例子只是转了一个矩形; 因为 GDI+ 的旋转理念是旋转画布, 所以都是一样的. 本例效果图: 代码文件: unit Unit1; interface uses Windo... 阅读全文
posted @ 2009-01-23 17:00 万一 阅读(5249) 评论(2) 推荐(0) 编辑
摘要: 问题来源: http://www.cnblogs.com/del/archive/2009/01/23/1232856.html#post 方法一: Delphi 的 TBitmap 类可以方便地操作流, 如果能让 TGPImage 和 TBitmap 沟通起来就好了; TGPImage 有一个子类 TGPBitmap 可以和 TBitmap 沟通... ok 了! 代码如下: uses G... 阅读全文
posted @ 2009-01-23 11:20 万一 阅读(6510) 评论(17) 推荐(0) 编辑
摘要: 问题来源: http://www.cnblogs.com/del/archive/2009/01/20/1353117.html#1435746 原理分析: 这需要用到 ShellAPI 单元的两个函数: DragAcceptFiles、DragQueryFile; 用 DragAcceptFiles(窗口句柄, True); 以让窗口能够接受拖放; 然后就等待 WM_DROPFILES... 阅读全文
posted @ 2009-01-20 21:14 万一 阅读(4624) 评论(12) 推荐(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-20 18:28 万一 阅读(2023) 评论(2) 推荐(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-20 17:59 万一 阅读(1752) 评论(2) 推荐(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-20 16:25 万一 阅读(1780) 评论(16) 推荐(0) 编辑
上一页 1 ··· 74 75 76 77 78 79 80 81 82 ··· 215 下一页