• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

DELPHI中图像的显示效果_Delphi

Delphi 搞代码 3年前 (2018-08-09) 149次浏览 已收录 0个评论

    所谓百叶窗效果,就是将画布分成若干个区域,各区域以
渐进方式同时复制图形,就象翻动的百叶窗一样.以下就是一
个显示特效的过程实例:
        首先,新建一个工程,在窗体上添加两个IMAGE控件,在控件
    IMAGE1的PICTURE属性中导入一幅位图(*.bmp),并将IMAGE1
    的VISIBLE属性设为FALSE。
        然后,在代码窗口中定义如下过程:
    procedure TForm1.fan;   
    var r1:Trect;
        list,r,every:integer;

http://www.gaodaima.com/65718.htmlDelphi中图像的显示效果_Delphi

    begin
    list:=1;
    every:=trunc(screen.Height/10)+1;
    While list<=every do
    begin
      for r:=0 to 10 do begin
       r1:=rect(0,r*every,screen.Width,R*every+list);
       image2.Canvas.CopyRect(r1,image1.Canvas,r1);
      end;
       update;
       Inc(list);
    end;
    end;
    以后就可以在程序中需要的地方调用了。
下面就让我们看一下这是如何实现的,代码中RECT(X1,Y1,X2,Y2)
表示选定的矩形范围,(X1,Y1)是矩形左上角坐标,(X2,Y2)是矩形
右下角坐标。图形显示由COPYRECT(R1,CANVAS,R2)完成,其中R1是
目标区域,R2是被复制区域,CANVAS是被复制对象(它也可以是一个
TBITMAP的实例)。

欢迎大家阅读《DELPHI中图像的显示效果_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址