image Copyrect 问题，兄弟们快来。。。。。。。

jerry8 2006-12-06 10:08: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);
怎么我的底图没有了，两个图片，根据控制条的位置。考一个图相应的位置大小的图片到另一个相应的位置，而且我想从下到上显示，问题在那里啊？///

...全文

144 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

jerry8 2006-12-06

打赏
举报

啊，忙晕了

mynamelj 2006-12-06

打赏
举报

delphi的语法，你发错了地方了。

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

拷贝到了图象当然要存起来了，SAVE 按钮就有了用武之地，我们写下如下代码。 procedure TForm1.Save1Click(Sender: TObject); begin if savedialog1.Execute then begin form1....

　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,...

Delphi 全屏抓图范例源码，除了全屏截图外还演示了区域抓图的实现，最后将抓图保存了图片，可把本源码作为Delphi图像工具软件的一个模块来借鉴。　Fullscreen:=TBitmap.Create;//创建一个BITMAP来存放图象　...

ForeImage.Canvas.CopyRect(DestRect, BackImage.Canvas, SourceRect); end; procedure TForm1.ForeImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin DoubleBuffered :=True; NewX:...

VC/MFC

16,472

社区成员

421,731

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

VC/MFC社区版块或许是CSDN最“古老”的版块了，记忆之中，与CSDN的年龄几乎差不多。随着时间的推移，MFC技术渐渐的偏离了开发主流，若干年之后的今天，当我们面对着微软的这个经典之笔，内心充满着敬意，那些曾经的记忆，可以说代表着二十年前曾经的辉煌……
向经典致敬，或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天，我们期待着MFC技术能够恢复其曾经的辉煌，或许这个期待会永远成为一种“梦想”，或许一切皆有可能……
我们希望这个版块可以很好的适配Web时代，期待更好的互联网技术能够使得MFC技术框架得以重现活力，……

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

+ 用AI写文章