ITPub博客

首页 > Linux操作系统 > Linux操作系统 > DELPHI中图像的显示效果 (转)

DELPHI中图像的显示效果 (转)

原创 Linux操作系统 作者:worldblog 时间:2007-12-07 11:34:47 0 删除 编辑
DELPHI中图像的显示效果 (转)[@more@]  所谓百叶窗效果,就是将画布分成若干个区域,各区域以
渐进方式同时复制图形,就象翻动的百叶窗一样.以下就是一
个显示特效的过程实例:
  首先,新建一个工程,在窗体上添加两个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的实例)。

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-989504/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2410698