billeder der fader i delphi

Der er nogle komponenter man kan installere som kan gøre dette trick.

http://delphi.icm.edu.pl/ftp/d20free/pcvcomponents.zip = fade labels og fade knapper

---------

og her er en funktion til at fade bitmap billeder:

Put a TImage (Image1) on a Delphi form and load a bitmap of 24 bits or 32 bits in it; put a TButton (Button1) and put this code in its OnClick event:
~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.Button1Click(Sender: TObject) ;

  procedure FadeOut(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;

      {Decrease 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 FadeOut}
  begin {button1_click}
    FadeOut(Image1,5) ;
  end;

Der er også en eksempel kode her: http://homepages.borland.com/efg2lab/ImageProcessing/fade.htm som beskriver hvordan man kan fade imellem billeder, men i det hele taget bare få et billede til at fade.

Ellers hvis du bruger delphi7+ mener jeg at der er et felt der hedder AlphaBlending, og i den kan du sætte en værdi som gør at den fader ind og ud alt efter hvad værdien blir sat til. Kører dog selv med delphi 5, så kan ikke lige undersøge om det er det den hedder, men der er ihvertfald en funktion der kan gøre det i delphi 7.

Vil du prøve at hjælpe mig igang med det hvis jeg sender projektet til dig?

Jeg er desværre i arbejde i Århus og min computer står hjemme på Lolland hvor jeg bor, så er ikke i nærheden af en Delphi :( Så det kan jeg desværre ikke.

Okay er det noget du kan de næste par dage måske, det er et skoleprojekt som gerne skulle være færdigt i weekenden. Kan du evt. nå det inden da?

Jeg er desværre først hjemme engang lørdag eller søndag, men hvis du ikke har fundet hjælp inden da skal jeg gøre hvad jeg kan for at hjælpe selvom det blir sådan noget i sidste øjeblik.

Kan du ikke prøve at beskrive 100% hvad det er du vil lave og hvordan det skal fungere. så kan det være jeg kan hjælpe dig alligevel hvis jeg forstår opgaven bedre.

okay har du en mail jeg kan skrive til så sende rjeg lige hvad jeg har lavet indtil videre..

js@nordhavn.dk :)

Da heller ikke du svarede lukker jeg.