Rafraichir une image dans un stylesdata d'une listbox

bonjour à tous,

petite question :
sur XE7, comment supprime t-on le contenu de l'image dans un stylesdata ?

j'ai définis un style à ma listbox ou j'ai rajouté une image.
lorsque je veux la charger, je fais ceci, et ça s'affiche :

Code:

---

1 2 3 4 5 6

var FLbxItem : TListBoxItem; begin .... FLbxItem.StylesData['img'] := sThumbFilename;

---

mais pour l'effacer, comment fait-on ? (un chemin vide ne fonctionne pas )

merci

Bonjour,

Quel est le type 'Img' dans le style ? un TImage ?

bonsoir Thierry,

le type est un timage
le chemin pour sThumbFilename pointe sur un jpg

petite précision : le debugger me donne parfois pour FLbxItem.StylesData['img'] soit qu'il est de type string, soit qu'il est du type TBitmapOfItem.
je n'ai pas fait attention si il y avait un contexte particulier

cdt

jerome

Donc en fait, si il n'y a que la partie visuelle qui nous intéresse on peut faire ça :

Code:

---

(FLbxItem.FindStyleResource('img') as TImage).Bitmap.Clear(TAlphaColorRec.Null);

---

Par contre dans ce cas là on ne pourra pas tester par exemple sur le Bitmap la propriété IsEmpty car l'image existera bien, car on a simplement créé une image transparente. Par contre comme je l'ai dit cela fonctionne pour le côté visuel puisqu'on ne voit plus d'image.

Le mieux serait donc de faire plutôt ceci :

Code:

---

(FLbxItem.FindStyleResource('img') as TImage).MultiResBitmap.Delete(0)

---

Car en fait même si on est d'accord que sur un composant TImage FMX on peut accéder à l'image via la propriété Bitmap, on a en fait une propriété MultiResBitmap qui me permet d'avoir plusieurs images (Pour pouvoir gérer les cas des différentes tailles d'écrans), et donc il suffit de supprimer l'image avec l'index 0 (Qui est donc la première, et la seule si dans notre cas on a qu'une seule image) pour la supprimer. Et du coup contrairement à la solution précédente on pourra correctement utiliser ensuite la propriété IsEmpty pour savoir si on a une image ou pas.

Code:

---

(FLbxItem.FindStyleResource('img') as TImage).MultiResBitmap.Delete(0)

---

nickel, ça marche. je n'ai pas du tout penser à ça.

question subsidiaire, liée avec mon style, mon image, et un ttext :
habitué à faire tout moi même au niveau graphique sur la vcl, j'ai voulu me simplifier la vie avec firemonkey, mais je n'ai pas dû faire les choses correctement.
( c'est ma 1ére appli firemonkey )

mon pb, toujours avec le FLbxItem, j'assigne un événement onclick sur un ttext

Code:

---

LbxItem.StylesData['textnom.OnClick'] := TValue.From<tNotifyEvent>(txtnomClick);

---

et dans txtnomClick, je change la présentation de mon lbxitem

Code:

---

1 2 3 4 5 6

.... if LbxItem.StyleLookup = 'listboxitemstylepresentation1' then LbxItem.StyleLookup := 'listboxitemstylepresentation2' else LbxItem.StyleLookup := 'listboxitemstylepresentation1';

---

nota : les 2 styles sont identiques en taille , juste la presentation qui change

à la sortie de l’événement onclick, j'ai une violation d’accès parce qu’apparemment le contrôle n'existe plus ( à cause de l'assignation du nouveau style )
j'ai contourné le pb en fusionnant mes styles et maintenant je fais ceci

Code:

---

1 2 3 4 5 6 7 8 9 10

if LbxItem.StylesData['rectanglestylepresentation1.visible'].AsBoolean then begin LbxItem.StylesData['rectanglestylepresentation1.visible'] := False; LbxItem.StylesData['rectanglestylepresentation2.visible'] := true; end else begin LbxItem.StylesData['rectanglestylepresentation2.visible'] := False; LbxItem.StylesData['rectanglestylepresentation1.visible'] := true; end;

---

en tapant mon message, je me demande si je n'ai pas fait du n'importe quoi cette nuit avec mes rectangles (mais ça marche)

mon style est assigné comme ceci :

Code:

---

LbxItem.StyleLookup := 'listboxitemstylepresentation';

---

et il est fait ainsi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

object TLayout StyleName = 'listboxitemstylepresentation' Padding.Left = 2.000000000000000000 Padding.Top = 2.000000000000000000 .... object TRectangle StyleName = 'rectanglestylepresentation1' Align = Client Fill.Color = xFF505050 Visible = True ... end object TRectangle StyleName = 'rectanglestylepresentation2' Align = Client Fill.Color = xFF505050 Visible = False ... end .... end

---

jerome

Le plus simple serait peut être de nous montrer quel est le but escompté visuellement. Ce que vous souhaitez faire et avoir comme résultat visuel. Ça sera plus simple pour voir quel peut être la meilleure solution.