Discussion :

[phoenixgreg]

Bonjour,

j'ai beau forcer la chose, il va bien dans la procedure ListView1ColumnClick mais il ne veux pas rentrer dans la procedure OnCompare par la suite. Si je clique manuellement il va bien dans OnCompare...

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
30
31
32
 
procedure TFicheViewEvents.init;
begin
  ListView1ColumnClick(nil, ListView1.Column[1]);
end;
 
procedure TFicheViewEvents.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
  var
  ListItem : TListItem;
  i_cpt: Integer;
begin
  SortedColumn := Column.Index;
  TListView(Sender).CustomSort(nil, Column.Index -1);
end;
 
function CompareTextAsDateTime(const s1, s2: string): Integer;
begin
  Result := CompareDateTime(StrToDateTime(s2), StrToDateTime(s1));
end;
 
procedure TFicheViewEvents.ListView1Compare(Sender: TObject; Item1,
  Item2: TListItem; Data: Integer; var Compare: Integer);
var
  i_cpt: Integer;
  ListItem: TListItem;
begin
  Case SortedColumn Of
  0 : Compare := Compare;
  1 : Compare := CompareTextAsDateTime(Item1.subitems[SortedColumn - 1], Item2.subitems[SortedColumn - 1]);
  End;
end;

[Cirec]

Bonjour,
je suis pas certain d'avoir tout compris mais
j'ai déjà noté qu'il manque le Sender lors de l'appel:

Code :

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

1
2
3
4
procedure TFicheViewEvents.init;
begin
  ListView1ColumnClick(ListView1, ListView1.Column[1]);
end;

Cordialement,
@+

[phoenixgreg]

Bien vu pour le Sender merci !
En fait lors de mon clic sur une colonne dans mon TListView, je fais un tri :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TFicheViewEvents.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
  var
  ListItem : TListItem;
  i_cpt: Integer;
begin
  SortedColumn := Column.Index;
  TListView(Sender).CustomSort(nil, Column.Index -1);
end;

et automatiquement il va dans cette procedure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TFicheViewEvents.ListView1Compare(Sender: TObject; Item1,
  Item2: TListItem; Data: Integer; var Compare: Integer);
var
  i_cpt: Integer;
  ListItem: TListItem;
begin
  Case SortedColumn Of
  0 : Compare := Compare;
  1 : Compare := CompareTextAsDateTime(Item1.subitems[SortedColumn - 1], Item2.subitems[SortedColumn - 1]);
  End;
end;

mais :

Code :

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

1
2
 
ListView1ColumnClick(ListView1, ListView1.Column[1]);

il va juste dans la procedure OnClick mais il ne tri pas et moi j'aimerai faire cela sans cliquer sur une colonne

[gbegreg]

Bonsoir,

Quelle version de Delphi utilisez vous ? Etes vous bien en configuration Debug ?
J'ai fait un essai avec Delphi 10.1 Berlin update 2 avec votre code et l'instruction ListView1ColumnClick(ListView1, ListView1.Column[1]); dans l'événement OnClick d'un bouton et ça fonctionne. Le tri se déroule bien et on passe bien sur le point d'arrêt présent dans le OnCompare lorsqu'on clique sur le bouton.

[Cirec]

Ayant également fait un teste, en complément de celui de gbegreg, sous D7

le comportement est le même ... que l'on clique sur une colonne ou sur le Bouton
tout fonctionne parfaitement (Le trie se fait dans les deux cas).

[phoenixgreg]

Arf, je vais réessayer alors, on est d'accord que je n'ai pas envie de passer par un clic dans mon code, il faut que ça se fasse automatiquement ! Quand je simule le click, il passe en effet dans l'event OnClick mais par la suite le OnCompare() ne se fait pas :s

Merci pour votre aide en tout cas

[phoenixgreg]

C'est bon je sais pourquoi, et vous n'auriez pas pu m'aider sur ce coup là, en fait j'avais une procédure Init(); que j'appelais avant OnShow() ... et c'est là que je mettais le code, maintenant que je l'ai mis à la fin de mon OnShow() ma liste est bien triée ...

merci encore