METTRE DES PROGRESSBAR DANS UNE LISTVIEW

Commentaire de piwee le 25/03/2005 23:44:14

merci.

Oui, je pouvais un peu réduire le code mais j'avais pas eu le temps. Je vais essayer de faire une nouvelle version en faisant ça.

Commentaire de Delphiprog le 26/03/2005 09:50:54 administrateur CS

Super !
Merci pour le travail accompli en un temps record.

Commentaire de MAURICIO le 30/03/2005 12:34:27

Il y a un gros bug !
Je me disais aussi: qu' arrive t-il aux progressbar des items non visualisés?
Bem ils sont toujours là !!!
Donc, si vous vous positionnez sur le dernier item et que vous remontez les items, le progressbar du dernier item ne correspond pas !! il suffit de montrer la propriété 'position' du progressbar dans le caption de l' item pour vous en apercevoir ... Faudrait mettre la propriété visible à false des progressbar lorsque leur item associé n' est pas visible. L' autre solution serait de faire le BringToFront afin de cacher le items non visualisés par ceux visualisés (c' est pas tres français, dsl)!

Commentaire de Delphiprog le 03/04/2005 20:24:55 administrateur CS

Juste un point de détail pour ceux qui auraient ajouté des éléments en mode conception dans le TListView alors l'indice du premier élément à "triturer" ne doit pas être l'élément d'indice zéro.
Il est préférable d'utiliser une référence sur le dernier élément créé dans la boucle :
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Byte;
  r: TRect;
  pb: TProgressBar;
  li: TlistItem; //<- référence
begin
  //Initialisation de la listview
  Listview1.Columns.Add.Width := 100;
  Listview1.Columns.Add.Width := 200;
  Listview1.ViewStyle := vsReport;
  //limiter le flickering
  ListView1.DoubleBuffered := True;

  //Ajout de lignes pour le test
  Randomize;
  for i := 0 to 40 do
  begin
   //utilisation de cette référence
    li := Listview1.Items.Add;
   //Ajout d'un texte bidon
    li.Caption := 'Texte ' + IntToStr(i);

    //On récupère le rectangle d'affichage de l'élément
    //Il sera utilisé pour mettre la progressbar à la bonne taille
    r := li.DisplayRect(drBounds);
    //Création et initialisation de la progressbar
    pb := TProgressBar.Create(Self);
    pb.Parent := Listview1;
    //Ici, c'est juste pour avoir des positions différentes
    pb.Position := Random(pb.Max);
    //On stocke la progressbar dans la propriété Data de l'élément
    //afin de pouvoir la récupérer plus tard
    li.Data := pb;
    AdjustProgressBar(li, r);
  end;
end;

Pour le reste (version téléchargée ce jour), je ne vois pas de problèmes.
L'affichage des éléments visibles est traité dans WM_NOTIFY et rien à signaler.

Commentaire de Delphiprog le 04/04/2005 12:23:23 administrateur CS

Ce serait encore mieux sous forme de composants. De plus,ça ne devrait pas être trop dur à adapter.

Mauricio : comme la propriété Data est un pointeur non typé, tu peux donc lui affecter n'importe quelle référence ou pointeur. CQFD.

Bon alors, ce composant, qui le fait ? :-)

Commentaire de memphisakeronaleron le 13/11/2005 17:00:42

Bonjour,
déja bon boulot, mais je viens de tester ton code et il reste des bugs. On peut facilement le voir quand on ne met pas des positions aléatoire mais proportionelle a la varaible i et que l'on monte et descend avec l'ascenseur.

Voila je tenais juste a le signaler, malheuresement je n'ai pas assez d'experience pour pouvoir corriger ce bugs tout seul.