LA DANSE DES AVATARS

Commentaire de cantador le 13/12/2007 11:21:03

Merci caribensila..

Désolé, mais je n'ai pas réussi à faire fondre ton avatar...
C'est peut-être un signe..Hummmmm
Enfin, quand on voit la photo de WonderWoman publié par Francky23012301, tu as encore de la marge..

Pour le HintPerso.. j'y ai bien pensé mais j'ai préféré tomber
dans la facilité..

Tu peux si tu le souhaites proposer qlqchose..

Pour le Multi-threading, je suis aussi demandeur, mais ici,
je me demande s'il n'aurait pas été préférable de créer un objet..

A voir

@bientôt

Commentaire de cantador le 13/12/2007 13:17:54

Salut cirec,

Pour info,les images ont été traitées avec GIMP..
Les traces ben oui je sais..c'est pas top..
Qt au "pas quitter avt la fin", çà c'est voulu car j'ai pas trouvé comment shinter les 10 threads en même temps !
@+

Commentaire de cantador le 14/12/2007 16:19:24

JCL:  http://jcl.sourceforge.net/daily/
JVCL: http://jvcl.sourceforge.net/daily/

ou sur le site de SOURCEFORGE..

Le TjvBallonHint est dans la palette JV Non-Visual

Commentaire de cirec le 15/12/2007 13:05:36 administrateur CS

J'avais oublié un truc ...
Change dans toutes les unités "Thread"  ceci :
      if Assigned(BitMap[x]) then
  BitMap[x].FreeImage;

en :
     if Assigned(BitMap[x]) then
  BitMap[x].Free;          //  <<<<<<<<<<-------  

Sinon tu as des fuites de mémoires ;-)

je vais de ce pas voir ce que donne le nouveau code

Commentaire de cantador le 15/12/2007 13:36:13

@cirec:
sur une deuxième série,avec free
La violation d'accès se produit bien sûr tout à la fin lorsque tous les avatars s'endorment sur le plancher des vaches..

Commentaire de Caribensila le 15/12/2007 18:21:13

Voici une petite unité pour créer des Hints ronds:


unit RoundHintUnit;

interface

Uses
  Windows, Controls, Classes, Graphics, SysUtils;

Type TRoundHint = Class( THintWindow )
  Private
    fBmp : TBitmap;
    procedure SetBmp(Image: TBitmap);
    Procedure Paint; override;
  Public
    Constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    property Image: TBitmap read fBmp write SetBmp;
  end;

implementation

{Un hint est une fenêtre Windows, et pour donner une forme particulière à une
fenêtre, on utilise les Régions Windows.}

Constructor TRoundHint.Create(AOwner: TComponent);
  begin
  Inherited Create(AOwner);
  fBmp := TBitmap.Create;
  try
    fBmp.Height := 100;
    fBmp.Width  := 100;
  except FreeAndNil(fBmp); end;
end;

destructor TRoundHint.Destroy;
  begin
  fBmp.Free;
  inherited;
end;

procedure TRoundHint.SetBmp(Image : TBitmap);
  begin
  fBmp := Image;
end;


Procedure TRoundHint.Paint;
  Var Rect      : TRect;
      Medaillon : HRgn;
  begin
  {ClientRect à été déterminé par la méthode CalcHintRect.}
  Rect := ClientRect;
  Medaillon := CreateEllipticRgnIndirect(Rect); //Création d'une région elliptique.
  Canvas.Draw(0,0,fBmp); //Dessin de l'avatar.
  {FrameRgn() est une fonction qui dessine un contour autour de la région.
   Mais ici, résultat bizarre dû à l'ombre de la bulle, je pense.}
  //Canvas.Brush.Color:=clblack;
  //FrameRgn(Canvas.Handle,Medaillon,Canvas.Brush.Handle,1,1);
  SetWindowRgn(Handle,Medaillon,True ); //On applique la région à la fenêtre Windows.
end;

END.

----------------------------------------------------------

Exemple d'utilisation:


uses RoundHintUnit;

var H1 : TRoundHint;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowHint  := true;
Application.HintPause := 0;
Application.HintHidePause := -1;
H1 := TRoundHint.Create(nil);
H1.Image := Image1.Picture.Bitmap;//ici, 100x100 pixels.
//Pour fermer: H1.ReleaseHandle;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var  Rect : TRect;
begin
  Rect.Left   := 10;//Les hints peuvent éventuellement occuper tout l'écran.
  Rect.Top    := 10;
  Rect.Right  :=Rect.Left+4+Image1.Width;//+4 pour centrer. Pkoi? Mystère...
  Rect.Bottom :=Rect.Top+Image1.Height;
  H1.ActivateHint(Rect,'');//Chaîne vide.
end;

procedure TForm1.FormDestroy(Sender: TObject);
  begin
  H1.ReleaseHandle;
end;

Commentaire de cantador le 15/12/2007 18:35:12

@cirec:
C'est bien vu avec le FreeAndNil(Bitmap[i] car çà règle le souci de la violation d'accès
mais en revanche cette procédure déclenche des Sursauts intempestifs dans le mouvement des avatars..
C'est la raison pour laquelle j'attends encore un peu avant
de faire une modif.
@bientôt

Commentaire de Caribensila le 15/12/2007 21:49:15

@cantador
...A l'origine, je voulais n'utiliser que des Hints pour les avatars et les textes afin d'en remplir l'écran...

Mais j'ai bcp de mal à les animer, ces foutus Hints.

'Me suis mis la barre un peu haut sur ce coup...  lol
Si t'y arrives, ça m'intéresse.

Commentaire de cantador le 15/12/2007 23:11:23

Oui efectivement j'ai installé ton unité et intégré le code.
Mais les résultats au niveau des bulles sont décevants pour l'instant.
il semble que les theads bloquent l'apparition des bulles..


Même en utilisant un truc simple comme ci-dessous :

çà ne fonctionne pas npn plus..

Voilà pourquoi je me suis tourné vers le TjvBallonHint..

Il me reste néamoins à régler :
- accélération de l'ouverture
- et les morceaux de bullles qui restent de temps en temps



procedure DoHint(AControl: TControl);  // autre solution
var
  pt: TPoint;
begin
  pt := AControl.ClientToScreen(Point(1, 1));
  SetCursorPos(pt.x, pt.y);
  Application.ActivateHint(pt);
end;

procedure TFAvatar.AffichageBulle;
var
  X, Y: integer;
//  Bulle: TJvBalloonHint;
begin
  Randomize;
  X := RandomRange(0, 10); {sélection aléatoire de l'image}
  Y := RandomRange(0, 3); {sélection aléatoire du texte}

  Image[X].Hint := InfoBulle[X, Y];    // autre solution
  DoHint(Image[X]);
  PAvatar.Repaint;  

{  Bulle := TJvBalloonHint.Create(PAvatar); {création du JvBallonHint}
  Bulle.Options := Bulle.Options - [boShowCloseBtn]; {suppression du bouton de fermeture de la bulle}
  if Image[X].Parent <> nil then {L'image a t-elle un parent ?}
    Bulle.ActivateHint(Image[X], InfoBulle[X, Y], InfoEntete[X, Y], 0); {Affichage de la bulle}
  Application.ProcessMessages; {pour forcer l'affichage du texte}
  sleep(1500); {petite pause pour permettre la lecture}
  Bulle.free; {libèration la bulle}
  if not ((FinThread1 = true) and (FinThread2 = true) and {test de la fin des 10 threads}
    (FinThread3 = true) and (FinThread4 = true)
    and (FinThread5 = true) and (FinThread6 = true)
    and (FinThread7 = true) and (FinThread8 = true)) then
    PAvatar.Repaint;  }
end;

Bref, faut encore y laisser de la sueur !

Commentaire de cantador le 15/12/2007 23:13:55

et bien sûr les Hint natifs des images non plus !
ça aurait été trop simple..

Commentaire de Caribensila le 15/12/2007 23:17:46

Ah ouais...
J'ai pas essayé avec threads.
ça doit pas arranger l'affaire.

Commentaire de Caribensila le 15/12/2007 23:24:24

Bein, t'es jamais content...

Si ça s'affiche à un moment donné, c'est déjà ça!

mdrrrrrrrrr

Commentaire de cantador le 16/12/2007 12:44:42

@caribensila :
merci pour le zip..
c'est une découpe en rond que je vois et un mvt à vitesse constante.
Je m'attendais à un traitement siouc de bulles..
Mais il n'y a aucun message qui apparaît.
A moins que..