能填充用lineto画出来的框吗？

Question

thanks.

Answer 1

什么函数呀？
这个只有一个坐标，怎么用啊？
procedure FloodFill(X, Y: Integer; Color: TColor; FillStyle: TFillStyle);

Answer 2

FloodFill(X, Y: Integer; Color: TColor; FillStyle: TFillStyle);
X，Y的位置就是你框内的任意一个点，剩下两个就是颜色和填充方式。

Answer 3

with Image1.Canvas do
  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;
可是不行呀。

Answer 4

procedure TForm1.FormClick(Sender: TObject);   var
  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;

Answer 5

procedure TForm1.FormClick：点一下自动画出方框；procedure TForm1.Button1Click：点一下自动填充。

Answer 6

gasmade(刘亚林) 你的方法成了。
但如果是几个广框连起来成为一个折框怎么办？除了用FillRect还有更快捷的方法吗？
这个FloodFill怎么用？

Answer 7

你都没设Brush.Color,这里你填充了白色,当然觉得没效果~~~

Answer 8

怎么用可以查帮助嘛,再说只是封装了GDI,查MSDN也是最好的选择~~~