Discussion :

[Gouyon]

Bonjour

Ce post fait suite à celui ci (findstyleresource ne fonctionne pas) où je cherche à faire une TListBox stylisée contenant pour chaque item une TComboBox.
Petit rappel:
Je veux faire ça


Pour cela j'ai créé un style


Et je remplis ma liste de la façon suivante:

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
32
33
34
35
 
    lbTirs.Clear; //vide la TlistBox
    ibatt := -1;
    if rbBatt1.IsChecked then
      ibatt := 0;
    if rbBatt2.IsChecked then
      ibatt := 1;
    if rbBatt3.IsChecked then
      ibatt := 2;
    laBatt := navEnMain.BatterieN[ibatt];
    for itrl := 0 to laBatt.nbTourelles - 1 do
    begin
      trl := laBatt.tourelle[itrl];
      if Not(trl.estHS) then
      begin
        item := TListBoxItem.Create(lbTirs);
        item.Parent := lbTirs;
        item.StyleLookup := 'lbBatterieitemstyle';
        item.ImageIndex := trl.getfloc;
        item.Text := trl.description;
        if item.FindStyleResource<TComboBox>('cbCibles', maCB) then
        begin
          maCB.Items.AddObject('----------', nil);
          iobj := 0;
          nav := navEnMain.getObjectif(trl, iobj);
          while nav <> nil do
          begin
            maCB.Items.AddObject(nav.getNom, nav);
            inc(iobj);
            nav := navEnMain.getObjectif(trl, iobj);
          end;
          maCB.ItemIndex := 0;
        end;
      end;
    end;

Au premier affichage tout se passe bien mais dès que j’agis sur la barre de scroll à droite mes combobox semble se vider


Une idée???

[SergioMaster]

Bonjour,

Quelle version de Delphi ? J'ai déjà eu un problème avec ces scrollings.

Je ne vois pas de

Code :

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

lbTirs.BeginUpdate; ... lbTirs.EndUpdate;

Il serait judicieux de les ajouter pour le remplissage

[Gouyon]

C'est la version 11.3
Pour ce qui est du BeginUpdate; ...EndUpdate; j'ai pas du bien les utiliser car le résultat est pire encore toutes mes combobox sont vides

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
32
33
34
35
36
37
38
 
lbTirs.Clear;
    lbTirs.BeginUpdate;
    ibatt := -1;
    if rbBatt1.IsChecked then
      ibatt := 0;
    if rbBatt2.IsChecked then
      ibatt := 1;
    if rbBatt3.IsChecked then
      ibatt := 2;
    laBatt := navEnMain.BatterieN[ibatt];
    for itrl := 0 to laBatt.nbTourelles - 1 do
    begin
      trl := laBatt.tourelle[itrl];
      if Not(trl.estHS) then
      begin
        item := TListBoxItem.Create(lbTirs);
        item.Parent := lbTirs;
        item.StyleLookup := 'lbBatterieitemstyle';
        item.ImageIndex := trl.getfloc;
        item.Text := trl.description;
        if item.FindStyleResource<TComboBox>('cbCibles', maCB) then
        begin
          maCB.Clear;
          maCB.Items.AddObject('----------', nil);
          iobj := 0;
          nav := navEnMain.getObjectif(trl, iobj);
          while nav <> nil do
          begin
            maCB.Items.AddObject(nav.getNom, nav);
            inc(iobj);
            nav := navEnMain.getObjectif(trl, iobj);
          end;
          maCB.ItemIndex := 0;
        end;
      end;
    end;
    lbTirs.EndUpdate;

[SergioMaster]

C'est la version 11.3

Ok, cela me donne le début du challenge : "utiliser des boites de choix (TCombobox) dans un tlistbox"

Pour ce qui est du BeginUpdate; ...EndUpdate;

Avant le lbTirs.Clear; tant qu'à faire

Code :

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

1
2
3
4
5
 
    lbTirs.BeginUpdate;
    lbTirs.Clear;
...
    lbTirs.Endupdate;

[Gouyon]

J'ai déplacé le beginupdate mais ça n'a rien changé toutes mes combobox sont vides

C'est bien le scroll qui pose problème et ça joue sur les combobox non affichées. Histoire de vérifier j'ai agrandi ma TListBox et si tout est affiché il n'y a pas de problèmes.

[anapurna]

salut

la question est : Que fait tu dans ton scroll pour vider ta combo
normalement les données ne depende pas de l'affichage