DELPHI中图像的显示效果

原创 2001年05月24日 17:58:00
  所谓百叶窗效果,就是将画布分成若干个区域,各区域以
渐进方式同时复制图形,就象翻动的百叶窗一样.以下就是一
个显示特效的过程实例:
        首先,新建一个工程,在窗体上添加两个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的实例)。

DELPHI中图像的显示效果

  • zgqtxwd
  • zgqtxwd
  • 2008年04月30日 18:44
  • 95

Delphi图像处理 -- 图像显示

阅读提示:    《Delphi图像处理》系列以效率为侧重点,一般代码为PASCAL,核心代码采用BASM。    《C++图像处理》系列以代码清晰,可读性为主,全部使用C++代码。    尽可能保持...
  • maozefa
  • maozefa
  • 2009年10月30日 11:16
  • 8224

Delphi显示Opencv的Mat/IplImage图像

先下载delphi opencv套件: https://github.com/Laex/Delphi-OpenCV      打开opencv_classes工程, 增加如下 两个函数导出,用于ma...
  • rocklee
  • rocklee
  • 2017年06月17日 11:25
  • 939

Delphi 设置窗体的属性(最前端显示、淡入淡出效果、滑动效果)

//1、淡入淡出效果、滑动效果 procedure TForm1.FormShow(Sender: TObject); begin   //AW_SLIDE:滑动类型  ;AW_BLEND:为淡...
  • xiongmao000738
  • xiongmao000738
  • 2011年09月23日 17:32
  • 3505

图像的平移和镜像

平移和镜像变换
  • zhangchen1003
  • zhangchen1003
  • 2015年05月21日 19:30
  • 527

delphi 如何将两张图片合并成一张

有两张图片,我想通过程序把他合并成一张,然后另存为一张新图 var        DestRect,SrcRect:TRect;    begin        DestRect:=Rect(0,0,...
  • zzflover
  • zzflover
  • 2008年09月05日 13:36
  • 4291

利用CBitmap将图像快速显示到屏幕上

正在做一个图像处理的类库,任意图像类型的文件利用类库读入后都存为一个固定的格式,保证程序的可扩展性。在编写的过程中需要将图像显示到屏幕上,由于自己写的将图像所有像素绘制到CDC上的程序速度总不是很理想...
  • Depraved_Survival
  • Depraved_Survival
  • 2007年10月07日 18:22
  • 1993

delphi数据库数据显示

在delphi数据库数据显示中有两种常用方法:使用表(DBGrid)显示,使用报表(DBEdit)显示。在这里讲述报表的使用。 效果图 编辑视图 所需控件: 1. DataSource(...
  • MAO_JIN_DAO
  • MAO_JIN_DAO
  • 2016年06月02日 12:37
  • 473

Delphi图像处理 -- RGB与HSL转换

阅读提示:    《Delphi图像处理》系列以效率为侧重点,一般代码为PASCAL,核心代码采用BASM。    《C++图像处理》系列以代码清晰,可读性为主,全部使用C++代码。    尽可能保持...
  • maozefa
  • maozefa
  • 2013年12月04日 20:22
  • 4133

Delphi基本图像处理方法汇总

本文实例汇总了Delphi基本图像处理方法。分享给大家供大家参考。具体分析如下: ? 1 2 3 4 5 6 7 8 9 10 11 12 13...
  • tesily
  • tesily
  • 2016年12月21日 13:39
  • 1171
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:DELPHI中图像的显示效果
举报原因:
原因补充:

(最多只允许输入30个字)