pb avec Alphablend

**Sitas** · 07/11/2002, 16h39

Bonjour a tous,

Mon pb est tout simple a priori. Apres lecture des interventions a ce sujet sur le forum et de la FAQ, je suis en train de faire des essais concernant la transparence. J'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
    JPeg:=TJpegImage.Create;
    JPeg.LoadFromFile(apppath+'Images\MonImage.jpg');
    frmAccueil.AlphaBlend:=true;
    Canvas.Draw(0,0,JPeg);
    frmAccueil.AlphaBlendValue:=155;
    sleep(2000);
    frmAccueil.AlphaBlendValue:=255;

Et tout ce que fait mon prog c'est d'attendre 2s avant de m'afficher l'image opaque alors que j'attendais l'affichage de cette image en 2 etapes (une fois semi transparente puis entierement opaque) !

Me "goure-je" quelque part ?

Merci d'avance.

Precisions : D7 Pro, Win XP Pro

**Lung** · 07/11/2002, 17h09

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
    JPeg:=TJpegImage.Create;
    JPeg.LoadFromFile(apppath+'Images\MonImage.jpg');
    frmAccueil.AlphaBlend:=true;
    Canvas.Draw(0,0,JPeg);
    frmAccueil.AlphaBlendValue:=155;
   Application.ProcessMessages;
    sleep(2000);
    frmAccueil.AlphaBlendValue:=255;

**Sitas** · 07/11/2002, 17h15

Merci Lung, mais desole ca ne change rien. :-(

Je continue a chercher car je ne vois pas de raison valable pour que ca n'aille pas.

Encore merci, A+

**Sitas** · 08/11/2002, 14h16

Bon, je ne sais pour quelle raison, le code ci dessus fonctionne dans l'evenement OnPaint mais pas dans OnShow ...

Merci Lung. A+

**Lung** · 08/11/2002, 15h37

Peut-être parce qu'il passe dans OnPaint après OnShow.

**FW-S** · 08/11/2002, 15h42

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
  begin
    with Form2 do begin
         Form2 := TForm2.Create(Application);
         FormCenter;
         AnimateWindow(Handle, 250, AW_BLEND);
         Show;
    end;
  end;

Archive => http://fwszip01.free.fr/zip_frensh/jumble/d6/AnimateWindow.zip

**Sitas** · 08/11/2002, 17h13

Envoyé par Lung

Peut-être parce qu'il passe dans OnPaint après OnShow.

Oui, ce que je voulais dire c'est qu'il a fallu que je cree un evenement OnPaint pour que ca fonctionne. Avec le meme code mais dans l'evenement OnShow (et seulement lui), ca ne fonctionne pas :-( ?!?

Bizare non ?

A+