时间: 2021-07-31 作者:daque
{ 增添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 { 仅在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;