位图的淡入 (2001年1月8日).txt

来自「delphi 编程技巧」· 文本 代码 · 共 39 行

位图的淡入 (2001年1月8日) 

网友更新  分类:多媒体   作者:阎 磊  推荐:yanlei   阅读次数:597  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
在form1上放入Image1、Button1,装入bmp位图,设置Autosize:=true,在Button1的Click编写如下事件:
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,i: integer;
ptr : PByteArray;
begin
image1.Picture.Bitmap.PixelFormat:=pf24bit;
for i := 1 to 255 do
begin
for y := 0 to image1.Height - 1 do
begin
ptr := image1.Picture.Bitmap.ScanLine[y];
for x := 0 to ((image1.Width *3) - 1) do
begin
if i<126 then
begin
if ptr[x] > 1 then ptr[x] := ptr[x] - 2;//2用来调整速度
end
else //后部分加快速度
if ptr[x] > 9 then ptr[x] := (ptr[x] - 10);
end;

end;

Canvas.Draw(0,0,image1.Picture.Bitmap);
Application.ProcessMessages;
end;

end;