Затухание - появление

[virtual[ity]]

Во общем можете мне объяснить как сделать затухание на форме(не самой формы)! Допустим есть картинка, ее надо затемнить! Нашел пример, но не могли бы Вы мне попроще как тот же эффект представить, ну или объясните мне его пожалуйста! А то не все понятно!

[dmitriegorovih]

А то не все понятно!

А что именно не понятно? Как функцией пользоваться?

[virtual[ity]]

Да! Не все что в ней написано мне понятно!

     begin
       for h:=0 to BMP.Picture.Bitmap.Height-1 do
       begin
         P:=BMP.Picture.Bitmap.ScanLine[h];
         for w:=0 to BytesPourScan-1 do
           if P^[w] >0 then P^[w]:=P^[w]-1;
       end;
     Sleep(Pause);
     BMP.Refresh;

[dmitriegorovih]

Ну смотрите вставляете функцию вот эту в код

procedure JMC(const BMP: TImage; Pause: integer);
 var
     BytesPourScan : integer;
     w,h           : integer;
     p             : pByteArray;
     jmccouleurs   : integer;
   begin

     If Not (BMP.Picture.Bitmap.PixelFormat in [pf24Bit, pf32Bit])
     then raise exception.create( 'Erreur, format de bitmap non supportй.'+
                                   #13+
                                   'Erreur, format de bitmap non supportй.'
                                   );
     try
       BytesPourScan:=Abs ( Integer(BMP.Picture.Bitmap.ScanLine[1])-
                           Integer(BMP.Picture.Bitmap.ScanLine[0]));
     except
       raise exception.create('Erreur');
     end;


     for jmccouleurs:=1 to 255 do //Rйglages de l'intensitй 1 а 255
     begin
       for h:=0 to BMP.Picture.Bitmap.Height-1 do
       begin
         P:=BMP.Picture.Bitmap.ScanLine[h];
         for w:=0 to BytesPourScan-1 do
           if P^[w] >0 then P^[w]:=P^[w]-1;
       end;
     Sleep(Pause);
     BMP.Refresh;
    end;
   end;

дальше на пример по нажатию кнопки используем её так
еслихотите по быстреё ставите вот сдесь
наименьшее число
JMC(Image1,>>>>>>>1<<<<<<<<<);

procedure TForm1.Button1Click(Sender: TObject);
begin
 JMC(Image1,1);
end;

если хотите по медление ставите число по больше вот так

procedure TForm1.Button1Click(Sender: TObject);
begin
 JMC(Image1,100);
end;

вы это хотели услышать (прочитать)?

[virtual[ity]]

Вот спасибо за разъяснение скорости затухания! А все что выше сказано это я знал!