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

Posted 2022-07-21 知

篇首语：若要功夫深，铁杵磨成针。本文由小常识网(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实现位图显示特技

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