copyrect 问题。。。。。。。。。。

jerry8 2006-12-06 04:43:34

trackbar1.Max:=image1.Picture.Height;
MyRect:=Rect(0,0,image2.Width,trackbar1.Position);
image1.Width := MyRect.Right;
image1.Height := MyRect.Bottom;
image1.Canvas.CopyRect(image1.ClientRect, image2.Canvas,MyRect);
两个图片，根据控制条的位置。考一个图相应的位置大小的图片到另一个相应的位置，而且我想从下到上显示，问题在那里啊？///
但是后退回来，图象没有变化 /////？？？？？

...全文

111 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

wudi_1982 2006-12-06

打赏
举报

回复

没空细看，关于copyrect好好看看帮助，多动手试试，问题不大。

最近看了一本书，讲delphi7中的图片的处理，这里上传几个常用的图片转换的效果，有雨滴，百叶窗等。

本控件可以自由传播、复制。Varsion 1.0 2009_12_25. 本控件作用： 1、添加了关闭按钮，点击关闭按钮可以关闭当前tabsheet； 2、双击tabsheet，关闭当前tabsheet； 3、改变tabsheet的caption,活动时为蓝色，（Canvas.Font.Color := clBlue;当然你也可以随便改 :) ），不活动时为默认颜色； 4、改变了tabsheet的头部的颜色，活动时为： ImgTabyes.LoadFromResourceName(HInstance, 'TABYES1'); SrcR := ImgTabyes.Canvas.ClipRect; DestR := Rect; Canvas.CopyRect(DestR, ImgTabyes.Canvas, SrcR); 不活动时： ImgTabyes.LoadFromResourceName(HInstance, 'TABNO1'); SrcR := ImgTabyes.Canvas.ClipRect; DestR := Rect; Canvas.CopyRect(DestR, ImgTabyes.Canvas, SrcR); 当然这些你都可以随便改 :)，(说明：都是画上去的，不要笑话:))，所有的图像文件存在于Pagecon.res 如果您有什么良好建议或有更好的方法，可以和我联系： //Email:exinju@163.com // //QQ:34117986 // //BLOG:exinju.blog.163.com //

图片的垂直交错效果，Delphi 编写的图片垂直交错显示效果，之前就分享过这种效果，类似百叶窗的交替显示效果，可用于图片转场，不过本效果还有很多地方需要优化，当时是写给一本书，作为随书实例的，有兴趣的可参考，关于本功能的关键代码部分，请看以下代码：　　newbmp:= TBitmap.Create; 　　newbmp.Width:=image1.Width; 　　newbmp.Height:=image1.Height; 　　bmpheight:=image1.Height; 　　bmpwidth:=image1.Width; 　　i:=0; 　　while i<=bmpheight do 　　begin 　　 j:=i; 　　 while j >0 do 　　 begin 　　 newbmp.Canvas.CopyRect(Rect(0,j-1,bmpwidth,j),image1.Canvas,Rect(0,bmpheight-i j-1,bmpwidth,bmpheight-i j)); 　　 newbmp.Canvas.CopyRect(Rect(0,bmpheight-j-1,bmpwidth,bmpheight-j),image1.Canvas,Rect(0,i-j,bmpwidth,i-j 1)); 　　 j:=j-2; 　　 Application.ProcessMessages; 　　 end; 　　 form1.Canvas.Draw(0,0,newbmp); 　　 i:=i 2; 　　end; 　　newbmp.free;

//创建一个BITMAP来存放图象 Fullscreen.Width:=screen.width; Fullscreen.Height:=screen.Height; DC:=GetDC(0); //取得屏幕的DC，参数0指的是屏幕 FullscreenCanvas:=TCanvas.Create; //创建一个CANVAS对象 FullscreenCanvas.Handle:=DC; Fullscreen.Canvas.CopyRect(Rect(0,0,screen.Width,screen.Height), fullscreenCanvas,Rect(0,0,Screen.Width,Screen.Height)); //把整个屏幕复制到BITMAP中 FullscreenCanvas.Free;

VNC-RFB-CLIENT RFC 6143（RFB协议/ VNC）客户端的纯node.js实现，没有外部依赖关系。支持Raw，CopyRect，Hextile和ZRLE编码。入门要求 Node.js> = 10 安装安装NPM软件包npm install vnc-rfb-client 用法 const VncClient = require ( 'vnc-rfb-client' ) ; const initOptions = { debug : false , // Set debug logging encodings : [ // Encodings sent to server, in order of preference VncClient . consts . encodings . copyRect , VncCl

5,391

社区成员

262,736

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章