µ±Ç°Î»Ö㺱à³ÌÎĵµ >> DELPHI >> TImage.BitmapµÄ½¥Òþ

ËùÊôÀà±ð£ºDELPHI
ÍƼöÖ¸Êý£º¡ï¡ï¡î
ÎĵµÈËÆø£º43
±¾ÖÜÈËÆø£º3
·¢²¼ÈÕÆÚ£º2007-5-11

{ Ìí¼Ó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;