Discussion :

[tintin62]

bonjour
j'ai toujours pas régler mon problème alignement de donnée sur fmx.listbox
avant avec delphi 7 je me servais de TAB=valeur
et je mettais

Code :

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

1
2
 
Do ListBox1.Items.Add(epNom+#9+epmail+#9+eppasse);

jai meme essayer sa

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
 
Procedure TForm1.recharge_ListBox;
 Var i:Integer;
 l:integer;
 Begin
  Listbox1.Items.BeginUpdate;
  ListBox1.Items.Clear;
 
  With Liste Do For i:=0 To Count-1 Do
    If Items[i]=Nil Then ListBox1.Items.Add('<NIL>')
                    Else With TElementListe(Items[i]^)
 
                       { Do ListBox1.Items.Add(epNom+' '+epmail+' '+eppasse);  }
                        Do ListBox1.Items.Add(Format('%-20s%15s%15s',[epnom,epmail,eppasse]));
 
  ListBox1.Items.EndUpdate;
 End;

mais toujours pas alignement voir photo

[ShaiLeTroll]

Lettre à largeur variable cela ne fonctionnera jamais
Faut passer en Courrier New ou toute fonte dit à fixed-pitch

Utilise un TColumn (je sais pas le nom exact en FMX)

[SergioMaster]

Un TListView avec une apparence dynamic gérerait ça sans problème. avec trois zones texte, et en utilisant les alignements de zone et de texte
Franchement, c'est cette histoire de remplissage qui me parait bizarre.

En Fmx, avec en plus une liste d'objet, il est relativement simple de remplir un TListView.
Je crois que c'est dans ce tutoriel que je montre comment faire

Voilà comment procéder :

Au design, poser un tlistview et un tprotypebindsource (définir 3 champs)
mettre le type d'apparence à Dynamic, ajouter deux TextObject pour obtenir ceci en mode coneption


On obtient alors, en ajustant les propriétés (celles marquées en jaune) des divers Textobject et en basculant en mode normal


Pour passer du prototypebindsource, on utilisera l'évènement OnCreateAdapter de celui-ci
Pour reprendre la structure donnée cela devrait donner quelque chose comme

Code :

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

1
2
3
4
5
procedure TForm7.PrototypeBindSource1CreateAdapter(Sender: TObject;
  var ABindSourceAdapter: TBindSourceAdapter);
begin
 ABindSourceAdapter:=TListBindSourceAdapter<TElementList>.Create(self, Elements, True);
end;

et ce sera le seul code pour remplir le Tlistview.
Bien sûr, la partie pour les données "réelles" est à écrire, c'est-à-dire la déclaration de TElementList et de Elements : TElementList et son remplissage. (chapitre III du tutoriel)

P.S. avant de publier le programme on vérifiera que le prototypebindsource n'ai plus d'enregistrements (recordcount=0) pour ne pas mettre des valeurs inutiles
P.P.S. pour se rendre la chose plus facile, renommer les colonnes et les variables de TPrototypeBindSource comme les éléments de TElementList