Discussion :

[Raylemon]

Bonjour, j'aimerais savoir comment trier une listview en fonction de la colonne sur laquelle on clique.

En clair, je voudrais faire en sorte que si l'utilisateur clique sur la 1ère colonne, les éléments sont classés par ordre croissant, et si l'utilisateur reclique sur l'en-tête, le classement se fait par ordre décroissant.

J'avais vu ce genre de code il y a quelques temps sur le forum, mais le sujet a malheureusement disparu

Merci,

[NoisetteProd]

Salut Big, regarde ici : http://castelain.developpez.com/sources/TriStringGrid/ Je sais que ce n'est pas une listview, mais l'idée est là !

[Raylemon]

Merci, mais je sais qu'il existe une manière plus simple, qui ne prend que quelques lignes

Je vais essayer de retomber dessus, et si je la retrouve, je la posterai ici...

[mduse]

Salut,

Piste de recherche - la propriété SortType du TListView
Par contre je n'ai pas d'exemple à te proposer.

Bon courage,

@+

[Bloon]

Nous avons un code source qui fait ça :

http://delphi.developpez.com/sources...OONtrilistview

Bloon

[Raylemon]

Merci ilyes, ton code est "presque" celui que j'avais vu, mais grâce à ça et à Noisette (lol)

Fait cogiter ta Noisette !!

j'ai écrit un bout de code qui marche assez bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
//ColumnToSort et invert sont des integer
procedure TMain.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
 if (ColumnToSort = Column.Index) then // si la colonne est cliquée plusieurs fois de suite
  case invert of // si le paramètre invert est à 1 ou -1, on inverse le sens de tri
   1  : invert := -1;
   -1 : invert := 1;
  end
 else begin
  ColumnToSort := Column.Index;
  invert := 1;
 end;
 (Sender as TCustomListView).AlphaSort; // on trie de manière Alphanumérique
end;
 
 
procedure TMain.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
var
  ix:Integer;
  begin
  if ColumnToSort = 0 then
    Compare := CompareText(Item1.Caption,Item2.Caption)*invert
  else begin
    ix := ColumnToSort -1;
    Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix])* invert;
  end;
end;

Merci à tous !