Forcer OnCompare dans un TListView

Version imprimable

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:

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;

24/02/2017, 15h44
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:

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

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

Code:

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:

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:

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

25/02/2017, 00h45
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.
25/02/2017, 12h06
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).
27/02/2017, 14h43
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
27/02/2017, 15h12
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