将image.canvas画的图拷到另一image中,不过是拷图的一部分,而且这个区域是一个斜放的矩形区域,请问用什么函数或好的办法,,谢谢! 将image.canvas画的图拷到另一image中,不过是拷图的一部分,而且这个区域是一个斜放的矩形区域,请问用什么函数或好的办法,,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你使用过把TMediaplayer的播放窗口的图片用canvas.copyrect拷贝到image.canvas吗?为什么如果mediaplay的窗口太大了就拷不下来? 直接canvas.copyrect然后对于它加工,处理为rgn 第一种方法:varBmp :TBitmap;FRgn :HRGN;beginBmp :=TBitmap.Create;Bmp.PixelFormat :=Image1.Picture.Bitmap.PixelFormat;Bmp.Width :=100;Bmp.Height :=100;BitBlt(Bmp.Canvas.Handle,0,0,Bmp.Width,Bmp.Height,Image1.Canvas.Handle,80,80,SRCCOPY); //要拷贝的位图FRgn :=CreateEllipticRgn(0,0,100,100); //创建圆形区域SelectClipRgn(Image1.Canvas.Handle,FRgn); //选择剪切区域Image1.Canvas.Draw(0,0,Bmp); //位图位于区域内的部分加载Bmp.Free;DeleteObject(FRgn);end;第二种方法:将另一个IMAGE的Transparent设置为TRUE,不过不保险哦!! 散分吧,不知道升級後界面是什麼樣子!! 如何用PASCAL代码关闭显示器 如何在FastReport中给 MasterData定位?? 在TQUERY中怎么得到一个记录的指定列的值? 高分求助:由于本人以前极少在SQL中使用参数,如今发生错误,急啊(SQLServer 2000+ADO) 专科生不能做程序员? ACCESS共享 有关Async Professional的用法 大家帮我测试一下我的在线歌曲播放器 谢谢!! 在dll中怎样连接数据库(sql6.5). 打包!!!问题问题。。。在线..... 请问现在怎么看自己的专家分?
var
Bmp :TBitmap;
FRgn :HRGN;
begin
Bmp :=TBitmap.Create;
Bmp.PixelFormat :=Image1.Picture.Bitmap.PixelFormat;
Bmp.Width :=100;
Bmp.Height :=100;BitBlt(Bmp.Canvas.Handle,0,0,Bmp.Width,Bmp.Height,Image1.Canvas.Handle,80,
80,SRCCOPY); //要拷贝的位图
FRgn :=CreateEllipticRgn(0,0,100,100); //创建圆形区域
SelectClipRgn(Image1.Canvas.Handle,FRgn); //选择剪切区域
Image1.Canvas.Draw(0,0,Bmp); //位图位于区域内的部分加载
Bmp.Free;
DeleteObject(FRgn);
end;
第二种方法:
将另一个IMAGE的Transparent设置为TRUE,不过不保险哦!!