Remplir une ListView et mettre certains textes de colonnes en couleurs
cs_tolt
Messages postés
269
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
4 avril 2019
-
9 févr. 2006 à 10:07
gbegreg Messages postés 9 Date d'inscription jeudi 17 juillet 2003 Statut Membre Dernière intervention 1 mars 2012 - 28 déc. 2006 à 19:18
gbegreg Messages postés 9 Date d'inscription jeudi 17 juillet 2003 Statut Membre Dernière intervention 1 mars 2012 - 28 déc. 2006 à 19:18
A voir également:
- Remplir une ListView et mettre certains textes de colonnes en couleurs
- Fonction remplir et afficher un tableau en c - Forum C / C++ / C++.NET
- Inverser les couleurs d'une image ✓ - Forum Visual Basic 6
- Emploi du temps scolaire à remplir - Forum PHP
- Inverser les couleurs photoshop - Forum Visual Basic
- Une image .tiff repose sur une palette de 256 000 couleurs. ✓ - Forum C++ & C++ .NET
1 réponse
gbegreg
Messages postés
9
Date d'inscription
jeudi 17 juillet 2003
Statut
Membre
Dernière intervention
1 mars 2012
28 déc. 2006 à 19:18
28 déc. 2006 à 19:18
Bonjour,
J'étais comme toi à la recherche d'une possibilité de coloriser ou de modifier la police de caractère d'une cellule spécifique d'un TListView. A force de chercher, j'ai trouvé la solution suivante : il faut ajouter le code suivant dans l'évènement OnAdvancedCustomDrawSubItem de la TListView (mon besoin était de coloriser le fond d'une cellule correpondant à un subitem) :
Sender.Canvas.Brush.Color := clWhite;
if subitem = 2 then
begin
if strtointdef(Item.SubItems[1],0) >0 then
begin
Sender.Canvas.Brush.Color := TColor($00AA40);
end
else
begin
if strtointdef(Item.SubItems[1],0) <0 then
begin
Sender.Canvas.Brush.Color := TColor($AA0040);
end
else
begin
Sender.Canvas.Brush.Color := clWhite;
end;
end;
end;
Dans cet exemple, il faut une listview avec le style vsReport et au moins 3 colonnes. Si le chiffre contenu dans la 3 ème colonne est négatif, la cellule sera colorée en rouge. Si le chiffre est positif, la cellule sera vert et si le chiffre est nul, la cellule sera blanche.
Rappel de la gestion des TListView :
un item correspond à la ligne entière. La propriété caption de l'item permet de renseigner la première colonne. Pour alimenter la deuxième colonne, il faut passer par item.subitem[0], puis item.subitem[1] pour la 3 ème colonne etc...
En espérant que cela te dépannes.
J'étais comme toi à la recherche d'une possibilité de coloriser ou de modifier la police de caractère d'une cellule spécifique d'un TListView. A force de chercher, j'ai trouvé la solution suivante : il faut ajouter le code suivant dans l'évènement OnAdvancedCustomDrawSubItem de la TListView (mon besoin était de coloriser le fond d'une cellule correpondant à un subitem) :
Sender.Canvas.Brush.Color := clWhite;
if subitem = 2 then
begin
if strtointdef(Item.SubItems[1],0) >0 then
begin
Sender.Canvas.Brush.Color := TColor($00AA40);
end
else
begin
if strtointdef(Item.SubItems[1],0) <0 then
begin
Sender.Canvas.Brush.Color := TColor($AA0040);
end
else
begin
Sender.Canvas.Brush.Color := clWhite;
end;
end;
end;
Dans cet exemple, il faut une listview avec le style vsReport et au moins 3 colonnes. Si le chiffre contenu dans la 3 ème colonne est négatif, la cellule sera colorée en rouge. Si le chiffre est positif, la cellule sera vert et si le chiffre est nul, la cellule sera blanche.
Rappel de la gestion des TListView :
un item correspond à la ligne entière. La propriété caption de l'item permet de renseigner la première colonne. Pour alimenter la deuxième colonne, il faut passer par item.subitem[0], puis item.subitem[1] pour la 3 ème colonne etc...
En espérant que cela te dépannes.
