procedure tform1.drawclear;
var i,k:integer;
begin
form1.canvas.brush.color:=clblack;
form1.canvas.floodfill(15,15, clcream, fsborder);
for i:=0 to 5 do
begin
k:=random(300);
drawline3(20+k,1,20+k,307,clyellow);
drawline3(200+k,1,200+k,307,clyellow);
end;
end;
procedure tform1.summer1click(sender: tobject);
begin
drawclear;
form1.canvas.font.color:=clblue;
form1.canvas.font.size:=18;
form1.canvas.textout(150,150,'绿色海洋...休整时间^_^！');
//drawtree;
end;
procedure tform1.autumn1click(sender: tobject);
begin
drawclear;
form1.canvas.font.color:=clblue;
form1.canvas.font.size:=18;
form1.canvas.textout(150,150,'红叶香山...正在休整^_^！');
end;
procedure tform1.winter1click(sender: tobject);
//var i,x,y:integer;
begin
drawclear;
form1.canvas.font.color:=clblue;
form1.canvas.font.size:=18;
form1.canvas.textout(150,150,'银蛇腊象...暂不开放^_^！');
end;
procedure tform1.ext1click(sender: tobject);
begin
form5.show;
end;
end.
下面是附带的使用浮点数指令的测试程序，当时的原本，未达到效果的：）：
//指令图书馆查的：）
procedure tform1.xx;
var
xmax,ymax,x,y,a,b:single;
i,z:integer;
begin
a:=2.0;b:=10.0;
xmax:=image1.width;
ymax:=image1.height;
for i:=0 to image1.width do
begin
asm
//.80x87
finit
fld xmax //push xmax in st(0)
fdiv a
fchs //let st(0)=-st(0)
fadd i //st(0)=st(0)+i
fdiv b //st(0)=st(0)/b
fstp x //put st(0) in x without pop
fld x
fmul x
fchs
fadd ymax
//frndint
//fabs
fstp y
end;
x:=(i-xmax/2)/10;
y:=-x*x+ymax;
z:=trunc(z);
image1.canvas.ellipse(i-1,trunc(y)-1,i+1,trunc(y)+1);
//image1.canvas.pixels[x,y];
end;
end;
选的是其中一个过程，呵呵，见笑了。
大家不妨把自己的东西拿出来，经验说一说，我准备洗耳恭听：）。
请----
