Problème de customisation d'une Listbox

Version imprimable

2 pièce(s) jointe(s)

Bonjour à tous et bonne année :yaisse2:

Je suis en train de customiser un TListBox et si le rendu final est bien celui que je veux par contre pour l'accès aux éléments ce n'est pas ça.

Donc voici ce que j'ai fait:

Le code ci dessous est appelé quand je met à jour ma TListbox
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 lbUniteActives.Clear; for i := 0 to TEtatMajor(lePion).getNbSubordonne - 1 do begin sub := TTroupe(TEtatMajor(lePion).getSubordonne(i)); ilst := TListBoxItem.Create(lbUniteActives); ilst.stylelookup := 'CheckListBoxItemStyle'; ilst.stylesdata['texte'] := sub.getNom; ilst.stylesdata['chkActiveBox'] := sub.Active; if ilst.FindStyleResource<TCheckBox>('chkActiveBox', chkactive) then chkactive.OnChange := lbUniteActivesChangeCheck; lbUniteActives.AddObject(ilst); end;
Et j'ai bien le résultat que j'attends
Pièce jointe 631688
Voici le style que j'ai défini:
Pièce jointe 631689

Le problème semble se situer à cette ligne car le résultat du FindStyleResource renvoi false
Code:

1 2 3 if ilst.FindStyleResource<TCheckBox>('chkActiveBox', chkactive) then chkactive.OnChange := lbUniteActivesChangeCheck;
Il ne trouve pas l'élément chkActiveBox et je ne comprends pas pourquoi.

Une idée?

01/01/2023, 11h41
SergioMaster

Bonjour,

Cela ne manquerait pas d'un ApplyStyleLookup la ligne 7 ?
Bon, je dis ça, on est le 1°Janvier et je n'ai pas trop envie de faire un test ;)
Meilleurs vœux quand même
01/01/2023, 12h41
Gouyon
Je viens de tester le ApplyStyleLookUp mais ça ne fonctionne pas mieux

Par contre j'ai trouvé ça qui a l'air de fonctionner.
Code:

1 2 ilst.stylesdata['chkActiveBox.OnClick'] := TValue.From<TNotifyEvent>(lbUniteActivesChangeCheck);
Un grand merci quand même pour t'être penché sur la question un 1er janvier :D
02/01/2023, 07h58
SergioMaster

J'ai toujours pensé que FindStyleRessource était pour les TListview, StylesData pour les TListbox mais de là à en faire une règle ?
Il faudra qu'un jour, je me penche à fond sur le sujet ListBox/ListView même si j'ai déjà pas mal fouillé ce thème, il y a encore des choses qui m'échappent
02/01/2023, 11h29
Gouyon

Citation:

Envoyé par SergioMaster

J'ai toujours pensé que FindStyleRessource était pour les TListview, StylesData pour les TListbox mais de là à en faire une règle ?
Il faudra qu'un jour, je me penche à fond sur le sujet ListBox/ListView même si j'ai déjà pas mal fouillé ce thème, il y a encore des choses qui m'échappent

Je n'en suis pas persuadé car j'ai retrouvé ce vieux post (https://www.developpez.net/forums/d2...yle-d-tlisbox/) et ça fonctionnait bien.

1 pièce(s) jointe(s)

Effectivement, j'ai fait un essai avec FindStyleRessource plutôt que StylesData et cela fonctionne, au temps pour moi donc.

du coup je me pose la question du code

Code:

if ilst.FindStyleResource<TCheckBox>('chkActiveBox', chkactive) then

chkActiveBox est-il bien un TCheckBox ?

voilà ce que j'ai testé
Pièce jointe 631768
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 procedure TForm4.Button1Click(Sender: TObject); var I: Integer; anItem : TlistBoxItem; aLabel : Tlabel; achkBox : TcheckBox; begin for I := 1 to 10 do begin anItem:=TlistBoxItem.Create(ListBox1); anItem.parent:=Listbox1; anItem.height:=40; anItem.stylelookup:='monstyle'; anItem.ApplyStyleLookup; anItem.text:='un texte '+i.ToString; anItem.Tag:=i; anItem.FindStyleResource<Tlabel>('detail',aLabel); if assigned(alabel) then alabel.Text:='detail '+i.ToString; // plutôt qu'un if anItem.findStyleResource.. then if anItem.FindStyleResource<TcheckBox>('CheckBox1',achkbox) then // second check box begin achkbox.Tag:=anItem.tag; achkbox.IsChecked:=odd(anItem.tag); achkbox.OnChange:=itemCheckBoxChange; end; end; end; procedure TForm4.itemCheckBoxChange(Sender: TObject); begin memo1.Lines.Add('Checkbox '+TCheckBox(Sender).Tag.ToString); end;
Toutefois si cela fonctionne sur les éléments 2-10 le premier élément déconne de temps en temps :
que ce soit le checkbox "classique" ou le checkbox "ajouté" un scroll en bas puis un retour au début de liste et les checkboxs du premier élément sont décochés et l'évènement ne se déclenche pas !

[edit] une vidéo du problème (Delphi 11.2)
https://serge-girard.developpez.com/..._listboxt.webm