911画布对象属性(2) procedure TForm1. Button1Click(sender: TObject VAR Xt,yt, t: integer;xt,yt是用来决定像素的位置,t用来控制循环次数。 x, y: real;∥xy是用来取得屏幕的中心 begin x:=form1. ClientWidth/2 ∥ ClientWidth属性指的是不包括标题栏在内的宽度。 y: =form1. ClientHeight/2 ∥ ClientHeight属性指的是不包括标题栏在内的高度 fort:=-10000to10000do begin xt:=≡ round(f100+X) {t之所以要除以100是因为要让像素的显示紧密点没有断断续续的感觉,加上x是 因为原来的中 心在(0,0)的地方,也就是画布的左上角,而现在是要移到(xy)的地方, 将坐标原点进行了 移动。} yt: =round (-t/100+y) canvas.Pixels[Xt, yt]:cbue;/画布的像素颜色为蓝色 end: end norse Dephi9.1.1 画布对象属性(2) procedure TForm1.Button1Click(Sender: TObject); VAR xt,yt,t:integer; //xt,yt是用来决定像素的位置，t用来控制循环次数。 x,y:real; //x,y是用来取得屏幕的中心 begin x:=form1.ClientWidth/2; // ClientWidth属性指的是不包括标题栏在内的宽度。 y:=form1.ClientHeight/2; // ClientHeight属性指的是不包括标题栏在内的高度。 for t:=-10000 to 10000 do begin xt:=round(t/100+x); {t之所以要除以100是因为要让像素的显示紧密点没有断断续续的感觉，加上x是 因为原来的中 心在（0，0）的地方，也就是画布的左上角，而现在是要移到（x,y）的地方， 将坐标原点进行了 移动。} yt:=round(-t/100+y); canvas.Pixels[xt,yt]:=clblue;//画布的像素颜色为蓝色。 end; end;