上一页 1 ··· 127 128 129 130 131 132 133 134 135 ··· 215 下一页
摘要: 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2:... 阅读全文
posted @ 2008-05-27 13:01 万一 阅读(3554) 评论(0) 推荐(0)
摘要: 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); ... 阅读全文
posted @ 2008-05-27 11:35 万一 阅读(3551) 评论(0) 推荐(0)
摘要: 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormClick(Sender: TObject); ... 阅读全文
posted @ 2008-05-27 10:30 万一 阅读(2663) 评论(0) 推荐(0)
摘要: CombineRgn( p1: HRGN; {合成后的区域} p2, p3: HRGN; {两个原始区域} p4: Integer {合并选项; 见下表} ): Integer; {有四种可能的返回值} //合并选项: RGN_AND = 1; RGN_OR = 2; RGN_XOR = 3; RGN_DIFF = 4; RGN_COPY = 5; {复... 阅读全文
posted @ 2008-05-26 23:17 万一 阅读(13332) 评论(7) 推荐(1)
摘要: 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormClick(Sender: TObject); ... 阅读全文
posted @ 2008-05-26 17:01 万一 阅读(8230) 评论(22) 推荐(0)
摘要: 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormPaint(Sender: TO... 阅读全文
posted @ 2008-05-26 16:22 万一 阅读(9103) 评论(1) 推荐(1)
摘要: 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); ... 阅读全文
posted @ 2008-05-26 15:25 万一 阅读(8349) 评论(0) 推荐(0)
摘要: 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); ... 阅读全文
posted @ 2008-05-26 15:20 万一 阅读(4790) 评论(0) 推荐(0)
摘要: 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); ... 阅读全文
posted @ 2008-05-26 15:14 万一 阅读(5520) 评论(4) 推荐(0)
摘要: 不管什么曲线命令, 到来路径中都会变成 Bezier 线; 也就是说路径中只有直线和 Bezier 线. FlattenPath 和 WidenPath 都能够把路径中的 Bezier 线转换为近似的直线; 不同的是: 用 WidenPath 转换后貌似加宽了线, 其实它是转换成了一个包围路径的新路径(类似区域). 本例效果图: 代码文件: unit Unit1; interface u... 阅读全文
posted @ 2008-05-26 13:46 万一 阅读(3118) 评论(0) 推荐(0)
上一页 1 ··· 127 128 129 130 131 132 133 134 135 ··· 215 下一页