Discussion :

[Raideman]

Oui Bonjour tout d'abord
Dans mon appli j'ai 8 listx boxs qui recoivent chacune des donnees de maniere simultanées, c'est a dire qu'elles ont, a n'importe quel moment, le meme nombre d'elements dans la liste.
J'aimerais pouvoir, en deplacant la "scroll bar" de l'une des listes, deplacer celles de toutes les autres pour me retrouver au meme niveau, lorsque je parcours les listes en "scrollant".
En gros je voudrais rendre les scrolls bars de mes differentes listboxs dependantes.
Au mieux, je parviens a que lorsque l'on selectionnne un element d'un liste, les autres elements du meme index se selectionnent ds les autres listes. Mais ca ne fonctionne pas tres bien comme feinte :/

Si vos avez une meilleure feinte, un composant plus adequat ou une solutiona ca, je vous en remercie d'avance
Merci, bonne journée.

[Gilles Louïse]

Malheureusement, je ne crois pas qu'on ait accès à la position du scroll en temps réel d'un ListBox. Ce que je vous conseillerais pour simulmer cet effet est de mettre un ScrollBar horozontal sur tous les ListBox, vous pouvez même cacher celui du ListBox au profit du nouveau.

Voici le code pour deux TListBox. Au moment du OnShow de la forme principale, vous initialisez les Min et Max des TScrollBar ajoutés.

Code :

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

1
2
3
4
5
6
7
void __fastcall TForm1::FormShow(TObject *Sender)
{
ScrollBar1->Min=0;
ScrollBar1->Max=ListBox1->Count;
ScrollBar2->Min=0;
ScrollBar2->Max=ListBox1->Count;
}

Voici l'événement OnChange du premier ScrollBar.

Code :

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

1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
TScrollBar* S=(TScrollBar*)Sender;
 
ListBox1->TopIndex=S->Position;
ListBox2->TopIndex=S->Position;
 
ScrollBar1->Position=S->Position;
ScrollBar2->Position=S->Position;
}

Ce code convertit le Sender en un pointeur de type TScrollBar*. Ensuite le TopIndex de tous les ListBox est mis à la position du ScrollBar. Puis on impose aux positions de tous les TScrollBar d'être la même.

Ensuite, vous forcez l'événement OnChange du deuxième ScrollBar de la deuxième ListBox en le connectant à l'évenement ci-dessus, il apparaît d'ailleurs dans la liste déroulante dans l'inspecteur d'objets (évenement OnChange de ScrollBar2).

À partir de là, il est facile de généraliser ce principe pour autant de ListBox que vous voulez.

À bientôt
Gilles

[Raideman]

Merci
Ca marche impeccable

[Raideman]

Ouais ok ca marche impec mais a pres usage, je me rends comptre que j'ai juste besoin d'une scrool barre pour bouger toutes les autres et que donc les uatres j'en ai pas besoin.
Bref actuellement, j'ai une scrool bar qui me "dirige" toutes mes autres lists box grace a votre methode.
Cependant, n'y a-t-il pas moyen de ne plus afficher les scroll bars des listbox pour ne plus avoir qu'a utiliser juste la scroll bar "globale"?
Il me semblat que c'etait une proprieté des lists boxs mais je dois me tromper surement ...
Merci encore.

[Gilles Louïse]

Je ne crois pas qu'on puisse ne pas afficher le ScrollBar vertical des TListBox, donc une astuce consisterait à faire se chevaucher les TListBox de manière à cacher leurs TScrollBar et de mettre le ScrollBar agissant sur le ScrollBar de la TListBox la plus à droite, ainsi on ne voit pas les TScrollBar des ListBox car ils sont tous cachés, on ne voit que le ScrollBar agissant à droite.

Une autre solution consisterait à utiliser des TMemo au lieu des TListBox mais je n'ai pas trouvé le moyen de modifier l'affichage d'un TMemo en imposant un numéro de ligne comme ligne visible en haut (i.e. l'équivalent de la propriété TopIndex des TListBox).

À bientôt
Gilles

[dj_kyl]

Salut je profite de ce topic pour verifier quelque chose. Vous parlez de scrollbar sur les listbox mais je n'arrive pas a avoir de scrollbar horizontale , j'ai uniquement la verticale.

Qql peut il me confirmer l'existence de cette scrollbar horizontale dans une listbox et si oui comment l'afficher.
Merci d'avance.

[CGi]

Ce que tu décris ressemble fortement à une ListView en style report.

[Flow_75]

salut les gars,


Je voudrais savoir si il y avait possibilité d'afficher sur une TListBox une scrollbar horizontale quand on a du text qui va hors de la fenetre.....?

Merci.

[cmax]

salut les gars,


Je voudrais savoir si il y avait possibilité d'afficher sur une TListBox une scrollbar horizontale quand on a du text qui va hors de la fenetre.....?

Merci.

[cmax]

un scrollbar horizontal permanent c'est relativement facile
automatique c'est une autre histoire
voici un bout de code que j'ai fait pour une filelistbox
si je ne m'abuse il fonctionne parfaitement
je crois que tu pourras facilement l'adapter à une listBox

Code C++ :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::FileListBox1Change(TObject *Sender)
{
 
int i,a,t=0;
SendMessage(FileListBox1->Handle,LB_SETHORIZONTALEXTENT,0, 0L);
int lignes= SendMessage(Form1->FileListBox1->Handle, LB_GETCOUNT, 0, 0L);
for (i = 0; i < lignes; i++)
{
AnsiString repp=FileListBox1->Items->Strings[i];
 a=Canvas->TextWidth(repp);
if (i==0||a>=t){  t=a;
 SendMessage(FileListBox1->Handle,LB_SETHORIZONTALEXTENT,a+23, 0);
  }
}