Delphi中的图形显示技巧
#1 一、基本原理
在Delphi中，实现一副图像的显示是非常简单的，只要在Form中定义一个TImage组件，设置其picture属性，然后选择任何有效的.ICO、.BMP、.EMF或.WMF文件，进行Load，所选文件就显示在TImage组件中了。但这只是直接将图形显示在窗体中，毫无技巧可言。为了使图形显示具有别具一格的效果，可以按下列步骤实现：
1.定义一个TImage组件，把要显示的图形先装入到TImage组件中，也就是说，把图形内容从磁盘载入内存中，作为图形缓存。
2.创建一新的位图对象，其尺寸跟TImage组件中的图形一样。
3.利用画布（Canvas）的CopyRect功能（将一个画布的矩形区域拷贝到另一个画布的矩形区域），使用一定技巧，动态形成位图文件内容，然后在窗体中显示位图。
#1 二、实现方法
下面介绍各种图形显示技巧：
1.推拉效果
将要显示的图形由上、下、左、右方向拉进屏幕内显示，同时将屏幕上原来的旧图覆盖掉，此种效果可分为四种，上拉、下拉、左拉、右拉，但原理都差不多，以上拉效果为例。
原理：首先将放在暂存图形的第一条水平线搬移至要显示的位图的最后一条，接着再将暂存图形的前两条水平线，依序搬移至要显示位图的最后两条水平线，然后搬移前三条、前四条...直到全部图形数据搬完为止。在搬移的过程中即可看到显示的位图由下而上浮起，而达到上拉的效果。
程序算法：
procedure TForm1.Button1Click（Sender: TObject）;
var
newbmp: TBitmap;
i，bmpheight，bmpwidth:integer;
begin
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
for i:=0 to bmpheight do
begin
newbmp.Canvas.CopyRect（Rect
（0，bmpheight－i，bmpwidth，bmpheight），
image1.Canvas，
Rect（0，0，bmpwidth，i））;
form1.Canvas.Draw（120，100，newbmp）;
end;
newbmp.free;
end;
2.垂直交错效果
原理：将要显示的图形拆成两部分，奇数条扫描线由上往下搬移，偶数条扫描线则由下往上搬移，而且两者同时进行。从屏幕上便可看到分别由上下两端出现的较淡图形向屏幕中央移动，直到完全清楚为止。
程序算法：
procedure TForm1.Button4Click（Sender: TObject）;
var
newbmp:TBitmap;
i，j，bmpheight，bmpwidth:integer;
begin
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
i:=0;
while i< =bmpheight do
begin
j:=i;
while j >0 do
begin
newbmp.Canvas.CopyRect（Rect（0，j－1，bmpwidth，j），
image1.Canvas，
Rect（0，bmpheight－i＋j－1，bmpwidth，bmpheight－i＋j））;
newbmp.Canvas.CopyRect（Rect
（0，bmpheight－j，bmpwidth，bmpheight－j＋1），
image1.Canvas，
Rect（0，i－j，bmpwidth，i－j＋1））;
j:=j－2;
end;
form1.Canvas.Draw（120，100，newbmp）;
i:=i＋2;
end;
newbmp.free;
end;
3.水平交错效果
同垂直交错效果原理一样，只是将分成两组后的图形分别由左右两端移进屏幕，程序算法从略。
4.雨滴效果
原理：将暂存图形的最后一条扫描线，依序搬移到可视位图的第一条到最后一条扫描线，让此条扫描线在屏幕上留下它的轨迹。接着再把暂存图形的倒数第二条扫描线，依序搬移到可视位图的第一条到倒数第二条扫描线。其余的扫描线依此类推。
程序算法：
procedure TForm1.Button3Click（Sender: TObject）;
var
newbmp:TBitmap;
i，j，bmpheight，bmpwidth:integer;
begin
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
for i:=bmpheight downto 1 do
for j:=1 to i do
begin
newbmp.Canvas.CopyRect（Rect（0，j－1，bmpwidth，j），
image1.Canvas，
Rect（0，i－1，bmpwidth，i））;
form1.Canvas.Draw（120，100，newbmp）;
end;
newbmp.free;
end;
5.百叶窗效果
原理：将放在暂存图形的数据分成若干组，然后依次从第一组到最后一组搬移，第一次每组各搬移第一条扫描线到可视位图的相应位置，第二次搬移第二条扫描线，接着搬移第三条、第四条扫描线，其余扫描线依此类推。
程序算法：
procedure TForm1.Button6Click（Sender: TObject）;
var
newbmp:TBitmap;
i，j，bmpheight，bmpwidth:integer;
xgroup，xcount:integer;
begin
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
xgroup:=16;
xcount:=bmpheight div xgroup;
for i:=0 to xcount do
for j:=0 to xgroup do
begin
newbmp.Canvas.CopyRect（Rect
（0，xcount＊j＋i－1，bmpwidth，xcount＊j＋i），
image1.Canvas，
Rect（0，xcount＊j＋i－1，bmpwidth，xcount＊j＋i））;
form1.Canvas.Draw（120，100，newbmp）;
end;
newbmp.Free;
end;
如有什么疑问，请发E－Mail给我：zxx@myrice.com。