TListview et TGlyphButtonObjectAppearance
Bonjour
Est-ce que l'un d'entre vous aurait un exemple d'utilisation du TGlyphButtonObjectAppearance ?
Il me manque un truc mais je sais pas quoi. Rien n’apparaît dans les item de ma liste.
J'ai essayé ça dans OnUpdateObjects de ma liste:
Code:
1 2 3 4 5 6 7
|
Gly := AItem.Objects.FindObjectT<TListItemGlyphButton>('GlyphButton7');
if Gly <> nil then
begin
Bmp := BitmapFromImageList(ImageList1, 'stapple');
Gly.Data := Bmp;
end; |
Je l'ai fais aussi à la création des item mais ça ne change rien :-(