• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

TImage.Bitmap的渐隐_Delphi

Delphi 搞代码 3年前 (2018-08-09) 179次浏览 已收录 0个评论

{ 添加Timage并载入一幅24位或32位bitmap ;
添加TButton 并在OnClick 事件下加入下面代码}
procedure TForm1.Button1Click(Sender: TObject);
procedure FadeOut(const BMP:TImage; Pause:integer);
var
BytesPorScan: integer;
w,h: integer;
p: pByteArray;
counter: integer;
begin

http://www.gaodaima.com/?p=65920TImage.Bitmap的渐隐_Delphi

{ 仅在24 位或32位色下有效}

If Not (BMP.Picture.Bitmap.PixelFormat in [pf24Bit, pf32Bit])
then raise exception.create(”Error, bitmap format not supported.”);

try
BytesPorScan := Abs ( Integer(BMP.Picture.Bitmap.ScanLine[1])-
Integer(BMP.Picture.Bitmap.ScanLine[0]));
except
raise exception.create(”Error”);
end;

{ 减小每个像素的RGB值}
for counter := 1 to 256 do
begin
for h := 0 to BMP.Picture.Bitmap.Height – 1 do
begin
P := BMP.Picture.Bitmap.ScanLine[h];
for w := 0 to BytesPorScan – 1 do
if P^[w] >0 then P^[w] := P^[w]-1;
end;
Sleep(Pause);
BMP.Refresh;
end;
end; {procedure FadeOut}

begin
FadeOut(Image1, 5);
end;

欢迎大家阅读《TImage.Bitmap的渐隐_Delphi,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址