跟着万一老师学画图 - 随笔分类 - 问题123

画图学习 [5] TextRect

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; btn2: TButton; btn3: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn3Click(Sender: TObjec 阅读全文

posted @ 2011-05-27 16:04 问题123 阅读(479) 评论(0) 推荐(0)

画图学习 [4] TextOut TextWidth TextHeigh

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{ 阅读全文

posted @ 2011-05-27 15:04 问题123 阅读(168) 评论(0) 推荐(0)

画图学习[3] 贝塞尔曲线

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; btn2: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); private { Private declarations } public { Public 阅读全文

posted @ 2011-05-21 15:59 问题123 阅读(384) 评论(0) 推荐(0)

画图学习 [2]

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) btn1: TButton; pnl1: TPanel; pb1: TPaintBox; procedure btn1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private decla 阅读全文

posted @ 2011-05-21 15:17 问题123 阅读(208) 评论(0) 推荐(0)

画方形圆形等[1]

摘要：procedure TForm1.btn1Click(Sender: TObject);begin Canvas.Pen.Color := clRed; Canvas.Pen.Width := 2; Canvas.MoveTo(0, 0); Canvas.LineTo(ClientWidth, ClientHeight);end;procedure TForm1.btn2Click(Sender: TObject);begin Canvas.Brush.Color := clYellow; Canvas.FillRect(ClientRect);end;unit Unit1;interface 阅读全文

posted @ 2011-05-21 12:56 问题123 阅读(366) 评论(0) 推荐(0)

随笔分类 - 跟着 万一老师学画图

随笔分类 - 跟着万一老师学画图