DELPHI 7 学习---------图象渐变

效果：

 

图一

图二

图一、图二的混合结果

 

 

主要内容：使用WINDOWS API 完成混合效果

主要代码：

var bl:TBlendFunction;
begin
  ZeroMemory(@bl,sizeof(bl));
  bl.SourceConstantAlpha:=alpha;
  windows.AlphaBlend(bmp1.Canvas.Handle,0,0,bmp1.Width,bmp1.Height,bmp2.Canvas.Handle,0,0,bmp2.Width,bmp2.Height,bl);
  self.Canvas.StretchDraw(ClientRect,bmp1);
end;

代码下载；http://download.csdn.net/detail/tzgltzgm/4845359