Remplir Une ListView DynamicAppearance par programmation
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
Code:
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 |
ET LE CODE ACTUEL DE L’UNITÉ
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
|
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. |
Merci d'avance de votre aide.