Discussion :

[Gouyon]

Bonjour à tous et bonne année

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Voici le style que j'ai défini:


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Gouyon]

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.

[SergioMaster]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

chkActiveBox est-il bien un TCheckBox ?

voilà ce que j'ai testé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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