有没有那位大侠能提供利用图案(有规律的点或线组成)进行区域填充的算法或实例?本人为此已经折腾整整五天了.....(50分)

T

tttt_tttt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-29

• #1

暂时只剩50分,谁能提供帮助有机会再加分.

 

H

Huzzz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-29

• #2

简单的办法：用Brush.Bitmap，将图案存成Bitmap并赋给Brush即可。

 

H

Huzzz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-29

• #3

有空请看看这个：

问题：Delphi中如何自定义具有透明色的位图填充模式的画刷？
http://www.delphibbs.com/delphibbs/dispq.asp?lid=711490

 

T

tttt_tttt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-29

• #4

我知道这个简单的办法：用Brush.Bitmap，将图案存成Bitmap并赋给Brush即可,可惜在win98
下只认8＊8的像素，无法提供更大图片，我只好退而求其次才贴出这个帖子，自己填充的，
呵呵，大家帮忙吧。

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-29

• #5

我试了，
我在98下不止8＊8的像素
都可以认呀
下面是我的代码：
procedure TForm1.Button1Click(Sender: TObject);
var
bitmap: Tbitmap;
begin
bitmap:= Tbitmap.Create;
try
Bitmap.LoadFromFile('a.bmp');
Form1.Canvas.Brush.Bitmap := Bitmap;
Form1.Canvas.FillRect(Rect(0,0,200,200));
finally
Form1.Canvas.Brush.Bitmap := nil;
Bitmap.Free;
end;
end;

 

T

tttt_tttt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-29

• #6

to coolbaby: FillRect函数是可以的,你再试试Polygon函数,就不可以了哦

 

T

tttt_tttt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-04

• #7

接受答案了.