METTRE DES PROGRESSBAR DANS UNE LISTVIEW
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
-
25 mars 2005 à 22:00
tichto11 Messages postés 1 Date d'inscription samedi 5 mai 2007 Statut Membre Dernière intervention 6 mai 2007 - 5 mai 2007 à 18:23
tichto11 Messages postés 1 Date d'inscription samedi 5 mai 2007 Statut Membre Dernière intervention 6 mai 2007 - 5 mai 2007 à 18:23
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/30324-mettre-des-progressbar-dans-une-listview
https://codes-sources.commentcamarche.net/source/30324-mettre-des-progressbar-dans-une-listview
5 mai 2007 à 18:23
14 nov. 2006 à 22:44
Je confirme le bug du 13/11. Pour le voir, il suffit de faire,dans le FormCreate:
//pb.Position := Random(pb.Max);
pb.Max := 40;
pb.Position := i;
et de scroller : c'est l'horreur...
Mes 2 cts,
13 nov. 2005 à 17:00
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.
4 avril 2005 à 13:29
Même si ça me plaierait de le faire.
Mais, il faudrait pouvoir insérer n' importe quel type de compo (boutons, gauges etc ...) à chaque item dans une ou plusieurs colonnes ... Donc, c' est pas évident !
4 avril 2005 à 12:23
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 ? :-)
4 avril 2005 à 11:05
Sinon, j' aurais opté par créer une fonction pour ajouter des items et une autre pour les eliminer. Surtout dans un programme où on ajoute des items un peu partout dans le code.
Perso, Je savais pas qu' on pouvait faire:
li.Data := pb;
A+
3 avril 2005 à 20:24
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.
30 mars 2005 à 13:08
procedure TForm1.AdjustProgressBar(item: TListItem; r: TRect);
var
pb: TProgressBar;
begin
//Procédure qui met à jour la taille de la ProgressBar en fonction du rectangle d'affichage de l'élément
//qui contient la ProgressBar et en fonction de la taille de la colonne
//dans laquelle on met la progressbar (ici, la 2ème colonne)
r.Left := r.Left + Listview1.columns[0].Width;
r.Right := r.Left + Listview1.columns[1].Width;
pb := item.Data;
if item.Index in [ListView1.TopItem.Index..ListView1.TopItem.Index + ListView1.VisibleRowCount-1]
then begin
pb.Visible := true;
pb.BoundsRect := r;
end
else
pb.Visible := false;
end;
30 mars 2005 à 12:34
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)!
27 mars 2005 à 16:36
26 mars 2005 à 09:50
Merci pour le travail accompli en un temps record.
26 mars 2005 à 09:04
Comme ça, il n'y a plus qu'une seule fois le code.
25 mars 2005 à 23:44
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.
25 mars 2005 à 22:00
Mis sous forme de composant, ça serait surement très apprécié.
Félicitations.