Mettre des progressbar dans une listview

Soyez le premier à donner votre avis sur cette source.

Vue 11 347 fois - Téléchargée 1 670 fois

Description

J'avais trouvé une source ici http://www.swissdelphicenter.ch/torry/showcode.php?id=801
qui affichait une (seule) ProgressBar dans une TListView.
Ce code étant incomplet (pas de gestion du scrolling et du resize des colonnes), je l'ai donc modifé.

Dans mon code, dès qu'on modifie la taille d'une colonne (avec une capture de message avec WM_NOTIFY), les ProgressBar sont automatiquement mise à la bonne taille.
Bon, ca clignote un tout petit peu quand il y en a beaucoup (j'ai expliqué pourquoi dans le code).

Normalement, cela devrait fonctionner assez bien.
J'ai mis des commentaires (que j'espère assez clair).

Si vous voyez un bug, j'essaierai de le corriger le plus vite possible.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
23 -
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 ? :-)
cs_MAURICIO
Messages postés
2233
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
5 -
Désolé mais moi j' ai pas le temps pour l' instant :(
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 !
memphisakeronaleron
Messages postés
3
Date d'inscription
mardi 17 mai 2005
Statut
Membre
Dernière intervention
13 novembre 2005
-
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.
cs_jpt
Messages postés
7
Date d'inscription
samedi 12 octobre 2002
Statut
Membre
Dernière intervention
25 août 2007
-
Salut,
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,
tichto11
Messages postés
1
Date d'inscription
samedi 5 mai 2007
Statut
Membre
Dernière intervention
6 mai 2007
-
c sup merci
Commenter la réponse de cs_Delphiprog

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.