Discussion :

[SergioMaster]

Bonjour,

Un TListWiew propose un Header et un Footer pour chaque Item ou groupe d'item ce qui permet, par exemple, de faire des listes classées en ordre alphabétiques avec, en Header, la première lettre.
Ok, ça avec les livebindings c'est relativement aisé, il y a plusieurs exemples de répertoires sur le net et voici, avec des données disons "aléatoires" une image de ce que je veux exprimer.

Je me suis penché sur les Footers en effet, j'aimerais bien avoir le cumul pour chaque groupe et ce, en bas du groupe. Mais, il n'y a aucun moyen de le faire via livebindings à ma connaissance
Comme vous pourrez le remarquer j'ai réussi à mettre un Footer (en rose) tous les 5 items et ce de la manière suivante

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
procedure TForm13.FormCreate(Sender: TObject);
begin
i:=1;
end;
 
procedure TForm13.LinkListControlToField1FillingListItem(Sender: TObject;
  const AEditor: IBindListEditorItem);
begin
 begin
  with ListView1.Items.Add do
    begin
      Text := Format('footer %s',['mmmm']);
      Purpose := TListItemPurpose.Footer;
    end;
   i:=1;
 end
else inc(i);
end;

Bien évidemment ce n'est pas ce qu'il me faut puisque ce que je voudrai c'est bien tester sur la première lettre de ma donnée (dans mon image des noms de couleurs)

La question est là ! Comment obtenir cette valeur dans l'évènement ?
pour l'instant j'ai , à partir de AEditor :
un purpose qui pourrait, à l'occasion, me permettre de savoir s'il s'agit d'un header ou pas,
un CurrentIndex qui me permettrait de vérifier qu'il ne s'agit pas du premier groupe,
une possibilité de transtyper AEditor en TListViewItem
Je ne dois donc pas être très loin de la solution mais ... je vois pas

[SergioMaster]

Pour info, je suis allé un peu plus loin.
J'ai bien l'obtention de mes données en utilisant soit AnItem.Text soit en cas de liste customisée AnItem.Data['Text1'].asString (en cas de ListView avec des items dynamiques)

reste un problème, l'événement à utiliser !
FillingListItem - les données ne sont pas encore renseignées
FilledListItem - Trop tard, si j'ajoute le Pied il ne se trouve pas au bon endroit, mais sous l'item rempli !

voilà où j'en suis !


Donc, maintenant, la question est de savoir comment "remonter" un Item de liste ?
J'ai essayé un

Code :

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

1
2
3
4
5
6
 if (AEditor.CurrentIndex>0)  then
    with ListView1.Items.Insert(AEditor.CurrentIndex)  do
    begin
      Text := Format('PIED %d',[i]);
      Purpose := TListItemPurpose.Footer;
     end;

[gbegreg]

Bonjour Sergio,

As tu essayé avec la méthode Exchange du TListview ? (pour échanger 2 items).

[SergioMaster]

Bonjour,

Non, je ne connaissais même pas cette possibilité je vais tenter le coup dès que j'ai le temps

[Edit]
Bon, soit c'est une fausse piste, soit je ne sais pas m'en servir
j'ai écrit ListView1.exchange(TFMxObject(ItemHeader), TFMXObject(ItemFooter)) non concluant rien n'a changé
peut être faut-il que je le fasse une fois la liste remplie ? la suite après le prochain test

[SergioMaster]

J'ai fini par atteindre l'objectif en procédant en deux temps.

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
...
public 
  i : integer; 
....
 
procedure TForm13.LinkListControlToField1FilledList(Sender: TObject);
var Pied,Temp : TListViewItem;
    texte : String;
    Li : integer;
begin
   // remonter les pieds créés au dessus des Header 
   for Li := 1 to ListView1.ItemCount-1 do
     begin
       if ListView1.Items[Li].Purpose=TListItemPurpose.Footer then
         begin
           Pied:=ListView1.Items[Li];
           Texte:=Pied.Text;
           ListView1.Items.Delete(Li);
           with ListView1.Items.Insert(Li-1) do 
             begin
               Text := Texte;
               Purpose := TListItemPurpose.Footer;
             end;
         end;
     end;
   // dernier item de liste 
   with ListView1.Items.Add do
    begin
      Text := Format('FIN PIED %d',[i]);
      Purpose := TListItemPurpose.Footer;
    end;
end;
 
procedure TForm13.LinkListControlToField1FilledListItem(Sender: TObject;
  const AEditor: IBindListEditorItem);
var AnItem, FItem : TListViewItem;
begin
AnItem:=AEditor.CurrentObject as TListViewItem;
if (AnItem.Purpose=TListItemPurpose.Header) then
 begin
  if (ListView1.ItemCount>1)  then
   begin
      with ListView1.Items.Add do
      begin
       Text := Format('PIED %d',[i]);
       Purpose := TListItemPurpose.Footer;
       // il faudra le remonter une fois la liste pleine!
     end;
   end;
  i:=0;
 end
 else  i:=i+StrToInt(AnItem.Data['Text2'].AsString);
end;

ce n'est certes pas très "académique" mais le résultat est là

[SergioMaster]

A vôtre avis, pour la postérité (ou plutôt le partage, ayons pitié de mes chevilles ) de cette trouvaille :
cela mérite un billet dans mon blog ou un petit tutoriel ?

[Lung]

A vôtre avis, pour la postérité (ou plutôt le partage, ayons pitié de mes chevilles ) de cette trouvaille :
cela mérite un billet dans mon blog ou un petit tutoriel ?

Je suis pour.

[Cirec]

Bonjour,

idem, je pense que ce sera utile à plus d'un

Cordialement,
@+

[gbegreg]

Bonne idée un petit tuto

[SergioMaster]

Bonjour,
en attendant une version définitive je vous propose d'aller voir par vous même un premier jus dans mon blog
J'y attend vos commentaires/ suggestions etc..