初来乍到，还请多关照：我的第一个问题是谁知道AutoCAD中混凝土材料的填充原理，它在Delphi中如何实现？(100分)

我把我生成的图形拷贝下来发给你吧。

to 吕雪松: 我的问题仍然没有解决，绘Polygon时画刷只能用到8*8像素，以下是帮助文件中有关TBrush.Bitmap的说明：
Specifies an external bitmap image that defines a pattern for the brush.
property Bitmap: TBitmap;
Description
Bitmap points to a TBitmap object that holds a BMP image. If Bitmap is nonempty, the BMP image (rather than the Style property) defines the brush抯 pattern. If the image is larger than eight pixels by eight pixels, only the top left eight-by-eight region is used.
Changing the image does not affect the brush until the TBitmap is reassigned to the Bitmap property. Be sure to free the TBitmap after finishing with the brush, since TBrush will not free it.
请注意一下 eight pixels by eight pixels的要求。谢谢

不要受它限制，因为我的确做出来了，黑白图像的确可以达到400*400（你是不是把这个
忘掉了？），彩色的的确是8*8。

你仔细再做一次吧。

tttttt_tttttt:
我把程序和图片又发给你了，你查看一次。

to 吕大侠:谢谢你的邮件，可惜.....我想可能是系统的关系吧，Win98＋D5。

对于以上问题我已打算自己写填充程序，不知道吕大侠有没有图案填充方面的例程，本人已从写多边形
采用扫描线进行实体填充的例程开始，现在还有些问题。另外不知道图案填充能不能在此基础上修改。
对于园等没有边的图形是不是要将其等效为边长比较多的多边形然后再填充。

如果谁感兴趣我可以将上面例程发给大家。

如果对以上问题没有好的答案，明天就结帖吧。

接受答案了.