Insérer une Image dans la listview dynamiquement
Bonjour,
J'ai une ListView fait avec Firemonkey Delphi 10.2
Il y a 3 membres dans la listview Text, Detail et Image.
Je suis capable d'assigner la valeur au texte et Detail et de mettre des couleurs à cette valeur.
Je crée des images dynamiquement mais je suis incapable d'assigner l'image dans cette liste.
J'ai mis ItemAppearance en mode ImageListItemBottomDetail ...!
Comment assigner une image dynamiquement correctement dans la liste ?
Ce code ne donne pas d'erreur de compilation mais ne fonctionne pas avec l'image !!
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
...
aBitmap := TBitmap.create(40, 40);
...
...
procedure TForm1.Button20Click(Sender: TObject);
begin
for I in [0..10] do
with ListView1.Items.Add do
begin
Text := 'ligne en rouge';
Detail := 'ligne en vert';
Objects.TextObject.TextColor := TAlphaColors.Red;
Objects.DetailObject.TextColor := TAlphaColors.Green;
Bitmap := aBitmap ; // ne fonctionne pas
// Bitmap.Assign ( aBitmap );
end;
end; |
Merci d'avance pour votre aide.
