thanks.
解决方案 »
- 发布AX Builder Demo版
- 关于DELPHI网页技巧问题
- 请教formatDatetime()的问题?
- 关于连接数据库异常问题!
- 在线求助ValueListEditor的一个功能
- 数据库的别名问题
- 放马过来!
- 备份interbase数据库是否只是copy *.gdb 文件也可以
- Delphi5开发人员指南 那里有卖的?
- 如果你是以位分布式应用程序高手,请指教...
- +++++++请问,如何用opengl显示中文字体+++++++++
- Field frm_sales_out.editprice does not have a corresponding component.Remove the declaration?
这个只有一个坐标,怎么用啊?
procedure FloodFill(X, Y: Integer; Color: TColor; FillStyle: TFillStyle);
X,Y的位置就是你框内的任意一个点,剩下两个就是颜色和填充方式。
begin
MoveTo(10,10);
LineTo(10,100);
lineto(100,100);
lineto(100,10);
lineto(10,10);
FloodFill(11,11,clblue,fsBorder); //无图形
//FloodFill(11,11,clblue,fsSurface); //还是一个方框
end;
可是不行呀。
myp:Tpoint;
begin
myp.X:=100;
myp.Y:=100;
canvas.PenPos:=myp;
canvas.LineTo(200,100);
canvas.LineTo(200,200);
canvas.lineto(100,200);
canvas.LineTo(100,100);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
area:Trect;
begin
area.Left:=100;
area.Right :=200;
area.Top:=100;
area.Bottom :=200;
canvas.Brush.Color:=clyellow;
canvas.FillRect(area);
end;
但如果是几个广框连起来成为一个折框怎么办?除了用FillRect还有更快捷的方法吗?
这个FloodFill怎么用?