知识大全 用Delphi实现位图显示特技

Posted

篇首语:若要功夫深,铁杵磨成针。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 用Delphi实现位图显示特技相关的知识,希望对你有一定的参考价值。

用Delphi实现位图显示特技  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!

  在应用程序中引入位图并以多种特技显示 会使程序界面生动形象 充满魅力 那么在Delphi环境中如何实现这一切呢?笔者在用Delphi开发一个多媒体系统时发现了实现位图显示特技的两种方法 下面将对这两种方法予以介绍 供Delphi爱好者参考   一 画布Tcanvas简介

  Delphi中与绘图和位图操作有关的对象是画布Tcanvas Tcanvas对象功能强大 封装了WindowsAPI的GDI 用户可以很方便地在画布上绘制直线 矩形 椭圆 多边形等基本图形 还可以显示 拷贝位图 却不必关心设备上下文等GDI概念 极大地方便了用户 Tcanvas对象本身并不是一个构件 不单独使用 它总是作为其它对象的属性来使用的   Delphi有四个对象具有画布属性 它们是TForm TImage TPaintbox和Tbitmap 其中前三者是可视化构件 至于Tcanvas的详细情况 可以参考Delphi的联机帮助

  实现简单的位图显示特技 实际上就是以不同的方式逐渐将源位图拷贝到Tcanvas类型的对象上 如从位图的中央开始拷贝一个矩形区域到屏幕中央 矩形区域不断扩大直到拷贝整个位图 其视觉效果就是位图从屏幕中央向四周扩散 不同的拷贝方式就形成了多种特技形式 如扩散 拉动和百叶窗等 对于每种特技形式灵活运用 又可演变出多种花样 如扩散可以演变为从上向下 从左向右 从中间向四周和相反方向的扩散 以及从一角向对角方向扩散的特技花样

  实现上述位图显示特技的原理很简单 关键是怎样实现位图的拷贝 在Delphi中有两种拷贝位图的方法 相应地就有两种实现位图显示特技的方法 一种是用Tcanvas对象的方法CopyRect 另一种是调用WindowsAPI的BitBlt函数 下面就以两种特技的实现为例分别介绍这两种方法

   二 方法之一 调用CopyRect

  Tcanvas对象与拷贝位图有关的是CopyMode属性和CopyRect方法 其中CopyMode定义拷贝的模式 而Copy Rect执行位图拷贝的操作 当CopyMode定义为缺省值cmSrcCopy时 CopyRect将源画布上的一部分位图拷贝到目标画布上的一个矩形区域内 CopyRect的过程声明及参数意义如下

  procedureCopyRect(Dest TRect Canvas TCanvas Source TRect)

  Dest 目标画布上的矩形区域

  Canvas 源画布

  Source 源画布上的矩形区域

  下面以一个拉动特技的实现为例 说明如何用CopyRect方法实现特技 该例包括三个构件 Tform Teditl和Tbuttonl 变量step控制拉动的步骤 程序运行后 从Teditl中输入待显示位图文件名 然后单击Tbuttonl 这时位图从左侧出现并逐渐向右侧移动 好似位图被从左向右拉动一样 拉动结束后位图左上角坐标为(x y ) 该例程序清单如下所示

  procedureTForml.ButtonlClick(Sender TObject)

  conststepΚ

  x Κ

  y Κ

  varbitmap tbitmap

  midx integer {中间变量 当前步骤所拷贝位图的宽}

  ratiox real {每步位图宽度增加量}

  i integer

  rect rect trect {源 目标矩形区域}

  begin

  bitmap Κtbitmap.create

  bitmap.loadfromfile(edit .text)

  ratiox Κbitmap.width/step

  fori Κotostepdo

  begin

  midx Κround(ratiox*i)

  withrect do

  begin

  left Κbitmap.width-midx

  topΚ

  right Κbitmap.width

  bottom Κbitmap.height

  end

  withrect do

  begin

  left Κx

  top Κy

  right Κx +midx

  bottom Κyo+bitmap.height

  end

  canvas.copyrect(rect bitmap.canvas rect )

  end

  bitmap.free

  end

  三 方法之二 调用BitBlt函数

  这里涉及到了在Delphi中如何调用WindowsAPI 每当生成一个新的项目时 Delphi自动地把WinType和WinProcs单元名添加到所生成单元文件中的uses子句中 这两个单元包含了Delphi调用WindowsAPI所必须的类型定义和例程声明 这样 只需使用正确的参数就可以直接调用WindowsAPI 而不需要再作其它任何声明

  BitBlt及类似的StretchBlt函数是Windows功能强大的图形处理函数 它的功能与TCanvas的CopyRect函数一样 不仅能够将位图或位图的一部分从一处拷贝到另一处 它还可以根据 个不同的光栅操作码将三幅位图结合起来 从而呈现不同的视觉效果 在WindowsAPI函数中 所有的blt函数的鼻祖都是BitBlt函数 在Delphi中BitBlt函数声明及参数意义如下

  functionBitBlt(DestDC HDC X Y nWidth Height Integer SrcDC HDC XSrc YSRC Ingeger Rop LongInt) Bool

  DestDC源设备上下文句柄

  X Y源矩形左上角坐标

  nWidth Height目标矩形的宽度和高度

  SrcDC目标矩形句柄

  XSrc TSrc源位图矩形左上角坐标

  Rop光栅操作码 对于简单的拷贝 其值为SRCCOPY

  下面同样以一个例子来说明如何用BitBlt实现特技 本例所实现的特技是将选定的位图从屏幕中心开始向四周扩散 最后整个位图全部显示出来 此例的程序清单如下

  procedureTForm Button Click(Sender TObject)

  conststepΚ

  var

  bitmap tbitmap

  x y integer {屏幕中心坐标}

  midx midy integer

  ratiox ratioy teal

  i integer

  begin

  bitmap Κtbitmap.create

  bitmap.loadfromfile(edit .text)

  x Κround(form .width/ )

  y Κround(form .height/ )

  ratiox Κbitmap.width/step

  ratioy Κbitmap.height/step

  fori Κ tostepdo

  begin

  midx Κround(ratiox*i)

  midy Κround(ratioy*i)

  bitblt(form .canvas.handle x -midx y -midy round(ratiox*i* ) round(ratioy*i* ) bitmap.canvas.handle x -midy y -midy srccopy)

  end

  bitmap.free

cha138/Article/program/Delphi/201311/25071

相关参考

知识大全 用DELPHI在状态栏中显示进程条[1]

用DELPHI在状态栏中显示进程条[1]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!经常上网的朋

知识大全 用 Java 保存位图文件

Java技巧:用Java保存位图文件  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  如果您在Mi

知识大全 Delphi中的图形显示技巧

程序开发小技巧:Delphi中的图形显示技巧  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!目前在许

知识大全 Delphi中的图形显示技巧[2]

Delphi中的图形显示技巧[2]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  垂直交错效果 

知识大全 Delphi中的图形显示技巧[3]

Delphi中的图形显示技巧[3]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  雨滴效果  原

知识大全 Delphi中的图形显示技巧[1]

Delphi中的图形显示技巧[1]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  概述  目前在

知识大全 Delphi 中自做动态显示的控件

Delphi中自做动态显示的控件  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! Delp

知识大全 让Delphi 2007 for PHP正确显示中文

让Delphi2007forPHP正确显示中文  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  在

知识大全 Delphi实现动态修改显示器分辨率

Delphi实现动态修改显示器分辨率  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!本实例演示如何在

知识大全 在Delphi中开发使用多显示器的应用程序

在Delphi中开发使用多显示器的应用程序  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! Wind