Trier un ListView

Version imprimable

26/10/2005, 16h07
Raylemon

Trier un ListView

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 :cry:

Merci,
26/10/2005, 16h24
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à !

:wink:
26/10/2005, 16h36
Raylemon

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

Je vais essayer de retomber dessus, et si je la retrouve, je la posterai ici...
26/10/2005, 16h53
mduse

Salut,

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

Bon courage,

@+
26/10/2005, 17h20
Bloon

Nous avons un code source qui fait ça :

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

Bloon

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

Citation:

Envoyé par NoisetteProd

Fait cogiter ta Noisette !!

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

Code:

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 !