Marquage en-tete de colonne dans une TlistView après un tri

Question

Bonjour,

J&#8217;utilise une TlistView avec ViewStyle = vsReport, et j&#8217;ai créé une procédure pour trier les éléments de la liste lorsque l&#8217;on appelle l&#8217;événement OnColumnClick.

 :question) J&#8217;aimerais savoir s&#8217;il est possible d&#8217;afficher une image ou un petit symbole (représentant par exemple une flèche vers le haut ou vers le bas) à coté du titre de la colonne utilisée comme référence du tri.

Bref je veux faire la même chose que dans l&#8217;explorateur Windows en mode Détails.

J&#8217;ai potassé la doc Delphi (6) mais je n&#8217;ai rien trouvé concernant cette fonctionnalité pour une TListView

Quelqu&#8217;un a-t-il déjà planché sur le problème ?

Merci  :) 

Dionyzos

cs_Delphiprog · Answer

Ca peut se faire sans écrire en très peu de lignes de code.

Explications :
1- disposer d'un composant TImageList
2- Charger au moins deux images dans ce composant : un représentant un tri croissant et l'autre un tri décroissant.
3- affecter la propriété SmallImages du TListView avec le composant TImageList.
4- double cliquer sur le composant TListView et enseigner la propriété ImageIndex de la colonne que l'on souhaite voir affublée d'un dessin au démarrage de l'application.

Maintenant, passons au code source.
Pour gérer le clic sur le titre d'une colonne, on dispose de l'évènement OnColumnClick ("Se produit quand l'utilisateur clique sur un en-tête de colonne de la vue liste.").

Voici donc le fameux code tant attendu :

var
  TriAsc: boolean; //sens du tri dans un list view

procedure TForm1.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
var
  i: integer;
begin
  //Réinitaliser tous les titres des colonnes
  //= effacer les images présentes
  with TListView(Sender) do
    for i := 0 to Columns.Count - 1 do
      Columns[i].ImageIndex := -1;

  if TriAsc then
    Column.ImageIndex := 0
  else
    Column.ImageIndex := 1;
  //Inversion du sens de tri  
  TriAsc := not TriAsc;
end;


Et c'est tout !
Merci Delphi de nous faciliter la tâche à ce point  :big) 
May Delphi be with you

cs_dionyzos · Answer

Mille fois merci Delphiprog, et bravo surtout car cela fait au moins 3 mois que j'ai posté cette question sur de multiples forum développement, et personne n'a su répondre,... sauf toi ;-)

Tu es le premier, et en plus tu me donnes la solution complète et non une réponse du genre "regarde dans la doc..." :-
Merci encore pour ta précieuse aide :-D

Je vais essayer ta solution dès Lundi (au boulot).
Je te tiens au courant du résultat.

Dionyzos
"codement votre"

cs_dionyzos · Answer

Bonjour,

Delphiprog : J'ai testé ta méthode, ca marche très bien  :) 

Par contre j'ai 2 nouveaux pb :

1) l'image est alignée à gauche, ce qui fait que lorsque je clic sur une colonne pour la trier, le titre de cette colonne se décale vers la droite pour laisser la place à la petite image.
Existe-il une propriété ou une fonction permettant de placer l'image, à droite du texte ?

2) l'image est aussi dessinée devant chaque éléments de la 1ère colonne. Comment empecher cela ?

Merci encore pour ton aide  ;) 

Dionyzos

cs_dionyzos · Answer

J'ai trouvé pour le 2ème pb :

Je place le bout de code suivant après avoir rempli ma listeview :

With MaListView do
  for i := 0 to Items.Count - 1 do
    Items.Item[i].ImageIndex := -1;

Et l'image n'apparait plus devant les éléments de la 1ère colonne.
Seul subsiste l'espace correspondant à l'image, mais ca n'est pas génant.

Par contre je seche toujours sur l'alignement des image dans les colonnes ...  :sad)

cs_Delphiprog · Answer

Le plus simple est encore de mettre une image vide dans la position "au repos". autrement dit,  au lieu d'affecter -1 à la propriété ImageIndex, tu affectes l'index d'une image "bidon".
Ce qui fait que le composant devrait calculer la position du texte comme s'il y avait une image.  8-) 
May Delphi be with you

cs_dionyzos · Answer

En effet ca marche.  :big) 

Ca fait déjà beaucoup plus propre, en attendant de trouver la méthode permettant d'aligner à droite le symbole...

D'ailleurs, à ce propos, je me demande si les développeurs Delphi qui intègrent dans leur appli un explorateur avec des symbole de tri dans les colonnes, n'utilise pas un autre composant que TListView.

Pour l'instant mes connaissances de Delphi sont encore trop limitées pour pouvoir répondre à cette question.  :blush)

Marquage en-tete de colonne dans une TlistView après un tri

6 réponses

Votre réponse

Discussions similaires