Image Fade In

[Kage]

Nun, ich habe zwar ein Fade Out gefunden nicht aber ein Fade In. Natürlich ist es für die einen unter euch keine Sache sowas kurz umzuschreiben, aber ich krieg einfach nicht raus, was ich ändern muss um aus dem Fade Out ein Fade In zu kriegen.

Also, hier der Fade Out Code:

Delphi-Quellcode:

  procedure FadeIn(const BMP:TImage; Pause:integer) ;
   var
    BytesPorScan : integer;
    w,h : integer;
    p : pByteArray;
    counter : integer;

   begin
      {This only works with 24 or 32 bits bitmaps}
      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;

      {Increase the RGB for each single pixel}
      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 FadeIn}

Schon im voraus ein Danke an denjenigen/diejenige, der/die mir das kurz umschreibt.

P.S.: Und nein, mit der SuFu fand ich kein Fade In