fmx tlistbox alignement

Version imprimable

1 pièce(s) jointe(s)

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:

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

jai meme essayer sa

Code:

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
Pièce jointe 637970

28/04/2023, 12h59
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)

2 pièce(s) jointe(s)

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
Pièce jointe 638032

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

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:

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