COMPOSANT IMAGE ANIMÉE

Commentaire de f0xi le 18/08/2007 12:20:49 administrateur CS

mmmm ... j'aurais pas vus ça de cette façon ...

et y'a deux ou trois truc qui me chiffoune ... :)

par exemple, la methode AfficheImage necessite un index, index que l'on ne peu pas réellement controler puisque qu'il n'existe pas de methode Count par exemple ...
il faudrait aussi quelques methodes pour vider les images chargée au cas ou ...


ensuite il me semble qu'il est superflus d'appeler le Refresh a la fin de cette methode puisque logiquement, l'assign du bitmap notifie l'objet TImage de la modification (et donc qu'il doit se rafraichir) ...

ensuite tu utilise le format bitmap en interne, soit, mais ne serait il pas judicieux de fournir une alternative (jpeg par exemple) qui prendrais moins de ressource memoire (au cas ou).

il y a aussi un manque de control dans les methodes Set* :

procedure TAnimage.SetTempo(Valeur : Integer);
begin
  if fTempo <> Valeur then
    fTempo := Valeur;
end;

procedure TAnimage.SetActive(Valeur : boolean);
var
no : integer;
begin
  if fActive <> Valeur then
  begin
    fActive := Valeur;
    if not (csDesigning in ComponentState) then
      while fActive do
        for no := 0 to fNbima-1 do
        begin
          if not fActive then
            exit;
          AfficheUneImage(no);
          Sleep(fTempo);
          Application.ProcessMessages;
        end;
  end;
end;


mais bon, je peu pas trop "critiquer" puisque j'ai moi même tenter sans succés d'ecrire de tel composant mais aucuns n'est satisfaisant.

Commentaire de Delphiprog le 19/08/2007 19:09:58 administrateur CS

Voilà un composant qui peut s'avérer utile à condition :
1- qu'on n'ait que des bitmaps à afficher
2- que toutes les images aient la même dimension
C'est un peu restrictif mais Debiars a justifié sa décision et je ne la contesterai pas.

Pourquoi utiliser le type TGraphic dans "ChargerGraphic(UneImage: TGraphic);" ? Cela peut induire en erreur la personne qui croirait que l'on peut injecter n'importe quel type d'image dans le liste. Pourquoi ne pas avoir obligé à transmettre un TBitmap en argument à la place ?

"csDesigning in ComponentState" : comme son nom le suggère, cette propriété indique que le composant est actuellement en cours de dessin.

Bon, je sens que si Debiars a eu besoin de nous pondre un composant, c'est qu'il a une idée derrière la tête...;o)