Bonjour,
j'ai une TListView nommé ListView1
avec le paramètre ItemAppearance en DynamicAppearance
qui contient 4 Text nommé 'Text1', 'Text2' 'Text3' 'Text4'
j'aimerais remplir la liste avec 2 item par programmation
Le premier item avec
'ListView1_Item1_Text1';
'ListView1_Item1_Text2';
'ListView1_Item1_Text3';
'ListView1_Item1_Text4';
Le deuxième avec
'ListView1_Item2_Text1';
'ListView1_Item2_Text2';
'ListView1_Item2_Text3';
'ListView1_Item2_Text4';
Je pensais que c’était simple mais je bloque après l'ajout de l'item
J'ai bien sur (mal) cherché sur internet et la doc mais je n'ai pas trouvé.
Comment affecter un string a un "champ" text de la ListView?
Voici un résumé du Code du Form
ET LE CODE ACTUEL DE L’UNITÉ
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 object Form1: TForm1 Caption = 'Form1' object ListView1: TListView ItemAppearanceClassName = 'TDynamicAppearance' ItemAppearanceObjects.ItemObjects.ObjectsCollection = < item AppearanceObjectName = 'Text1' end item AppearanceObjectName = 'Text2' end item AppearanceObjectName = 'Text3' end item AppearanceObjectName = 'Text4' end> end end
Merci d'avance de votre aide.
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 unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base, FMX.ListView; type TForm1 = class(TForm) ListView1: TListView; procedure FormCreate(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.FormCreate(Sender: TObject); var i: integer; begin for i := 0 to 1 do begin ListView1.Items.Add(); //et là je bloque // ListView1.Item.Text1 := 'ListView1_Item1_Text1'; // ListView1.Item.Text2 := 'ListView1_Item1_Text2'; // ListView1.Item.Text3 := 'ListView1_Item1_Text3'; // ListView1.Item.Text4 := 'ListView1_Item1_Text4'; end; end; end.
Partager