网站建设| 数据库类| 图形图象| 程序设计| 现代办公| 操作系统| 考试认证| 网络技术| 软件工程| 电脑相关| 文学作品
网站开发| 网页制作| 操作系统| 图象图形| 考试认证| 数据库类| 程序设计| 硬件技术| 现代办公| 网络技术| 笑话频道
 
您的位置: 电脑书库首页-> 电脑文摘-> 程序设计-> Delphi/Pascal-> 百叶窗效果

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

[文章录入员:fightter]

相关文章 相关书籍:
本站推荐内容

近期主机类热搜关键词:
美国服务器 美国服务器租用 海外服务器租用 国外服务器租用

Delphi/Pascal
C/C++/VC
C++Builder
Basic/VB类
Delphi/Pascal
Java编程
FORTRAN
其它
电脑教程阅读排行
·DELPHI下的多线程程序设计(...
·Delphi与Excel的亲密接...
·Delphi实现串口通信的常用的...
·Delphi中初始化.Ini文件...
·Delphi中用于读写(I/O)...
·谈谈Delphi中的类和对象
·Delphi编译错误中文手册
·Delphi中关于TApplic...
·OPENGL图形程序设计
·SQL的基本操作