巅枫 - 博客园

2010年12月31日

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); procedure FormMouseDown(... 阅读全文

posted @ 2010-12-31 10:57 巅枫阅读(651) 评论(0) 推荐(0) 编辑

再学 GDI+[12] 准备工作 - 矩形命中

posted @ 2010-12-31 10:56 巅枫阅读(481) 评论(0) 推荐(0) 编辑

再学 GDI+[10] DrawClosedCurve - 绘制闭合曲线

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) TrackBar1: TTrackBar; Button1: TButton; pr... 阅读全文

posted @ 2010-12-31 10:55 巅枫阅读(561) 评论(0) 推荐(0) 编辑

再学 GDI+[11] DrawCurve - 绘制曲线

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; TrackBar1: TTr... 阅读全文

posted @ 2010-12-31 10:55 巅枫阅读(640) 评论(0) 推荐(0) 编辑

再学 GDI+[9] DrawPolygon - 绘制多边形

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure FormMo... 阅读全文

posted @ 2010-12-31 10:54 巅枫阅读(643) 评论(0) 推荐(0) 编辑

再学 GDI+[8] DrawRectangles - 绘制一组矩形

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormResize(Sender: TObject); procedure FormPaint(Sen... 阅读全文

posted @ 2010-12-31 10:53 巅枫阅读(686) 评论(0) 推荐(0) 编辑

再学 GDI+[7] DrawLines - 绘制一组直线

posted @ 2010-12-31 10:52 巅枫阅读(583) 评论(0) 推荐(0) 编辑

再学 GDI+[5] DrawArc - 绘制弧线

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin, ExtCtrls;type TForm1 = class(TForm) Panel1: TPanel; SpinEdit1: TSpinEdit... 阅读全文

posted @ 2010-12-31 10:50 巅枫阅读(604) 评论(0) 推荐(0) 编辑

再学 GDI+[6] DrawPie - 绘制饼形

posted @ 2010-12-31 10:50 巅枫阅读(444) 评论(0) 推荐(0) 编辑

再学 GDI+[4]: DrawEllipse - 绘制椭圆

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject; Button: TMouseButton;... 阅读全文

posted @ 2010-12-31 10:47 巅枫阅读(1133) 评论(0) 推荐(0) 编辑