请问大家有谁知道，如何填充不规则图形呢？说一说方法，或有例子更好，总之，请大家帮助呀，谢谢

Question

请问大家有谁知道，如何填充不规则图形呢？说一说方法，或有例子更好，总之，请大家帮助呀，谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.Bitmap.Width := 100;
  Image1.Picture.Bitmap.Height := 100;
  Image1.Canvas.Brush.Style := bsSolid;
  Image1.Canvas.Polygon([Point(10, 10), Point(60, 40), Point(80, 90)]);
  Image1.Canvas.Brush.Color := clBlue;
  Image1.Canvas.FloodFill(61, 50, clWhite, fsSurface);
end;

Answer 2

用函数画点，用画一组折线的函数连接即可。经典的例子是《Windows程序设计》中的SIN函数。

Answer 3

>>如何填充不规则图形呢？
找出其路徑, 
然後, 用 Polygon 之類的api就可