利用Delphi实现图像的淡入淡出

利用Delphi实现图像的淡入淡出 来源：www.ccidnet.com

//ScanLine 参数只有一个，例：ScanLine[X] 代表扫描图像第X行，返回值为图像第X行的像素颜色。我们在浏览网页时见过不少图像淡入淡出的特技，其实，用Delphi也可以实现这样的效果。   用Delphi显示图像,有两个不可缺少的步骤,一是将图像装入Delphi隐形控件TBitmap中，二是用Canvas（画布）的Draw(x,y,Bitmap)或StretchDraw(Rect,Bitmap)方法将图像显示出来。淡出的效果就是将图像上每一个像素的颜色值进行设置，使它逐渐减少到0（黑色），实现图像的渐渐隐去。利用Canvas的Scanline属性可读取和设置图像每一行的像素颜色，我们就是利用它来实现特技的。淡入则是将一幅图像装入两个TBitmap对象，一个用来保存原始颜色，另一个用来处理，将像素的颜色从0逐渐递增到原始图的颜色，实现淡入的效果。   准备工作：新建一个窗体并加入一个Image控件（用来显示图像特技），两个Button控件（用来切换淡入淡出）。下面我们将两个Button的Click事件源码介绍如下：   unit   drdc; interface uses Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,   ExtCtrls,   StdCtrls; type TForm1   =   class(TForm) Button1:   TButton; Button2:   TButton; Image1:   TImage; procedure   Button1Click(Sender:   TObject); procedure   Button2Click(Sender:   TObject); private {   Private   declarations   } public {   Public   declarations   } end; var Form1:   TForm1; implementation {$R   .DFM} procedure   TForm1.Button1Click(Sender:   TObject); var x,y,i:integer; Bitmap:TBitmap; pixcolo:PByteArray; begin Bitmap:=TBitmap.Create; //创建TBitMap实例 try Bitmap.LoadFromFile ( 'c:/windows/clouds.bmp '); Bitmap.PixelFormat:=pf24bit; for   i:=0   to   255   do begin for   y:=0   to   Bitmap.Height-1   do begin pixcolo:=Bitmap.Scanline[y]; //扫描每行像素颜色 for   x:=0   to   ((Bitmap.Width3)-1)   do if   pixcolo[x]＞0   then   pixcolo[x]:=(pixcolo[x]-1); //递减颜色值，不同的递减值可改变不同的速度 end; Image1.Canvas.Draw(0,0,Bitmap); //画出图像 Application.ProcessMessages; //系统做其他工作 end; finally Bitmap.free;   //释放位图 end; end; procedure   TForm1.Button2Click(Sender:   TObject); var x,y,i,j:integer; Bitmap1,Bitmap2:TBitmap; pixcolo1,pixcolo2:PByteArray; begin Bitmap1:=TBitmap.Create; Bitmap2:=TBitmap.Create; try Bitmap1.LoadFromFile( 'c:/windows/clouds.bmp '); //将同一幅图像装入两个TBitmap实例 Bitmap2.LoadFromFile( 'c:/windows/clouds.bmp '); Bitmap1.pixelFormat:=pf24bit; Bitmap2.pixelFormat:=pf24bit; for   y:=0   to   Bitmap2.height-1   do begin pixcolo2:=Bitmap2.Scanline[y]; for   x:=0   to   ((Bitmap2.Width3)-1)   do pixcolo2[x]:=0; //先将要处理的图像的像素颜色值设为0 end; for   i:=0   to   255   do begin for   y:=0   to   Bitmap2.Height-1   do begin pixcolo2:=Bitmap2.Scanline[y]; pixcolo1:=Bitmap1.Scanline[y]; for   x:=0   to   ((Bitmap2.Width3)-1)   do   if   pixcolo2[x]＜pixcolo1[x]   then   pixcolo2[x]:=(pixcolo2[x]+1); end; //与原始图的像素颜色值比较，并递增其值直到与原始图相等 Image1.Canvas.Draw(0,0,Bitmap2); Application.ProcessMessages; end; finally Bitmap1.free end; end; end.   利用上面的程序，我们就在Delphi中初步实现了图像的淡入淡出效果。