上一页 1 ··· 128 129 130 131 132 133 134 135 136 ··· 215 下一页
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Memo1: TMemo;... 阅读全文
posted @ 2008-05-26 11:48 万一 阅读(3747) 评论(0) 推荐(0)
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) RadioGroup1: ... 阅读全文
posted @ 2008-05-24 20:35 万一 阅读(7518) 评论(3) 推荐(0)
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) CheckBox1: TC... 阅读全文
posted @ 2008-05-24 00:03 万一 阅读(1915) 评论(3) 推荐(0)
摘要: BeginPath {路径开始} EndPath {路径结束} StrokePath {绘制路径} FillPath {填充路径} StrokeAndFillPath {绘制并填充路径} //在路径中可以使用的图形命令有: AngleArc Arc ArcTo Chord CloseFigure Ellipse ExtText... 阅读全文
posted @ 2008-05-23 22:39 万一 阅读(7264) 评论(3) 推荐(0)
摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton... 阅读全文
posted @ 2008-05-23 15:59 万一 阅读(2112) 评论(1) 推荐(0)
摘要: SetRectEmpty: 使矩形为空; IsRectEmpty: 判断矩形是否为空; 所谓矩形为空就是矩形是无区域的, 或者说是 Right unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type T... 阅读全文
posted @ 2008-05-23 13:16 万一 阅读(2659) 评论(0) 推荐(0)
摘要: 本例分别用五种办法初始化了同样的一个矩形, 运行效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1:... 阅读全文
posted @ 2008-05-23 11:50 万一 阅读(6152) 评论(0) 推荐(0)
摘要: 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedur... 阅读全文
posted @ 2008-05-23 00:13 万一 阅读(5440) 评论(2) 推荐(1)
摘要: 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2:... 阅读全文
posted @ 2008-05-22 23:55 万一 阅读(2516) 评论(0) 推荐(0)
摘要: 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2:... 阅读全文
posted @ 2008-05-22 23:04 万一 阅读(4021) 评论(2) 推荐(0)
上一页 1 ··· 128 129 130 131 132 133 134 135 136 ··· 215 下一页