delphi7自学使用教程9.pptVIP

9.2.3 Paintbox组件(1) Paintbox组件主要提供一个可以用来绘制几何图形的矩形区域，可以使用绘图语句在这个区域内绘制各种图形。Paintbox的绘图方式与Form等其他绘图组件基本上一样，都是通过Canvas对象来完成的。所不同的是绘制的坐标是以Paintbox对象的左上角为原点，而不是以窗体的左上角为原点，且当设定的背景色与Form相同的时候，其运行的结果和在窗体上绘图的效果一样。使用Paintbox组件绘图的一个好处是只需将图形画在Paintbox组件上面，这样就可以避免计算坐标原点了。 画板组件Paintbox在System页中，如图9-18所示。 图9-18 Paintbox组件 【例9-12】　输入圆的坐标和半径求圆的面积和周长，如图9-19所示。 图9-19 paintbox组件的使用 9.2.3 Paintbox组件(2) 1. 主要步骤 ? 在form1上添加6个Tlabel组件，它们的Caption属性如图9-19所设置。 ? 在form1添加5个Tedit组件，并且把它们的Text属性设置为0。设置edit4，edit5的Readonly属性为True。 ? 在form1中添加一个TPaintbox组件，设置它的Align属性为alLeft。 ? 在form1中添加一个TButton组件，设置它的Caption属性为计算。 2. 主要程序代码 public { Public declarations } x,y:integer;//定义公共变量，x，y是为了取得Paintbox1的中点 end; var Form1: TForm1; implementation {$R *.dfm}｛下面代码是为了画坐标轴｝ procedure TForm1.FormPaint(Sender: TObject); Var i:integer;//定义I变量是为了控制循环 9.2.3 Paintbox组件(3) begin paintbox1.Canvas.Pen.color:=clblue;//定义画笔颜色 paintbox1.Canvas.Brush.Style:=bsclear; x:=round(paintbox1.ClientWidth/2);//取得x方向的中点 y:=round(paintbox1.ClientHeight/2);//取得y方向的中点 paintbox1.Canvas.MoveTo(x,0); paintbox1.Canvas.LineTo(x,paintbox1.Height);//画y轴 paintbox1.Canvas.MoveTo(0,y); paintbox1.Canvas.LineTo(paintbox1.Width,y);//画x轴 ｛下面的循环是为了输出坐标轴上的坐标和数值｝ for i:=-15 to 15 do begin if i0 then begin paintbox1.Canvas.Moveto(x+i*20,y); paintbox1.Canvas.LineTo(x+i*20,y-5); //画出x方向上的坐标，乘以20只不过是为了在x方向上的坐标有一些间距。 paintbox1.Canvas.TextOut(x+i*20,y+5,inttostr(i)); //画出x方向上的数值 paintbox1.Canvas.MoveTo(x,y+i*20); paintbox1.Canvas.LineTo(x+5,y+i*20); //画出y方向的坐标 9.2.3 Paintbox组件(4) paintbox1.Canvas.Textout(x-15,y+i*20,inttostr(-i)); //画出y方向上的数值 end; end; end; ｛下面的程序段是为了画圆和求出圆的面积和周长｝ procedure TForm1.Button1Click(Sender: TObject); var c,s:real;//c代表圆周长，s代表圆面积 a,b,r:integer;//a，b代表圆中心，r表示圆半径 begin refresh;//主要是为了去掉上一次所画的圆 a:=strtoint(edit1.Text); b:=strtoint(edit2.Text); r:=strtoint(edit3.Text); paintbox1.Canvas.Ellipse(x+(a-r)*20,y+(b-r)*20,x+(a+r)*20,y+(b+r)*20);