我在Delphi中怎么复制不到图像 Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiMultimedia/html/delphi_20060929084043280.html
procedure TForm1.FormCreate(Sender: TObject);
var
rect1,rect2:Trect;
begin
rect1.Left:=image1.Left;
rect1.Top:=image1.Top;
rect1.Right:=rect1.Left+image1.Width;
rect1.Bottom:=rect1.Top+image1.Height;
rect2.Left:=image2.Left;
rect2.Top:=image2.Top;
rect2.Left:=rect2.Left+image2.Width;
rect2.Bottom:=rect2.Top+image2.Height;
image2.Canvas.CopyRect(rect2,image1.Canvas,rect1);
end;
在我电脑运行后image2就是纯白色的一片,那位大哥大姐可怜可怜我这小^^^^^^^^^
我家太穷没什么分!!!!
var
RectFrom, RectTo: TRect;
begin
RectFrom :=Rect(0,0,768,304);
RectTo :=Rect(0,0,768,304);
Image1.Canvas.BrushCopy(RectTo, tempImage.Picture.Bitmap, RectFrom, clBlack);
end;
失踪的月亮
你好!你所说的方法是很好!
我想实现拷贝一个指定图像的指定区域填充另一个图像的指定区域,用你说的那个方法不行,你有没有办法实现啊!有就请告诉我,十分感谢你的热心帮助!!!!
你有没有关于图像编程的电子书资料什么的啊,要是有给我一份好吗?我的邮箱是:notmain@163.com QQ是:476636971
你说的那个方法能实现,刚才说错了.不好意思
图像编程你可以看看opencv ,intel的视觉库sourceforge上有下载,论坛你可以去阿须论坛