Listview, ajouter des Footers par groupe

Version imprimable

1 pièce(s) jointe(s)

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.
Pièce jointe 362576
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 :weird:
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:

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

20/03/2018, 13h38
SergioMaster

1 pièce(s) jointe(s)
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 !
Pièce jointe 362655

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

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;
:aie:
20/03/2018, 19h42
gbegreg

Bonjour Sergio,

As tu essayé avec la méthode Exchange du TListview ? (pour échanger 2 items).
21/03/2018, 06h57
SergioMaster

Bonjour,

Non, je ne connaissais même pas cette possibilité :oops: 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 :koi:
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

1 pièce(s) jointe(s)

Suite et Fin

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

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
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à :yaisse:
Pièce jointe 362916

22/03/2018, 08h49
SergioMaster

Votre avis

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 ?
22/03/2018, 12h31
Lung

Citation:

Envoyé par 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 ?

Je suis pour.

;)
22/03/2018, 13h10
Cirec

Bonjour,

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

Cordialement,
@+
22/03/2018, 19h01
gbegreg

Bonne idée un petit tuto :applo:
25/03/2018, 09h46
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..