程
程序小鱼
Unregistered / Unconfirmed
GUEST, unregistred user!
这样的。我这样写为什么结果a.bmp中是空的呢?
a , b : TRect;
c:Tbitmap;
begin
a:=rect(0,0,80,80);
b:=rect(0,0,80,80);
c:=Tbitmap.create;
c.Canvas.BrushCopy(a,image1.Picture.Bitmap,b,clblack);
c.SaveToFile('c:/a.bmp');
而这样写却对了。为什么?a , b : TRect;
c:Tbitmap;
begin
a:=rect(0,0,80,80);
b:=rect(0,0,80,80);
c:=Tbitmap.create;
image2.Canvas.BrushCopy(a,image1.picture.bitmap,b,clwhite);
image2.Picture.SaveToFile('c:/abc.bmp');
这时abc却是有内容的。
是BMP的方法brushcopy有问题吗
a , b : TRect;
c:Tbitmap;
begin
a:=rect(0,0,80,80);
b:=rect(0,0,80,80);
c:=Tbitmap.create;
c.Canvas.BrushCopy(a,image1.Picture.Bitmap,b,clblack);
c.SaveToFile('c:/a.bmp');
而这样写却对了。为什么?a , b : TRect;
c:Tbitmap;
begin
a:=rect(0,0,80,80);
b:=rect(0,0,80,80);
c:=Tbitmap.create;
image2.Canvas.BrushCopy(a,image1.picture.bitmap,b,clwhite);
image2.Picture.SaveToFile('c:/abc.bmp');
这时abc却是有内容的。
是BMP的方法brushcopy有问题吗