Discussion :

[Rekin85]

Bonjour à toutes et tous, et bonnes Pâques !

Je bidouille un petit programme qui utilise deux TListBox. La seconde affiche des strings qui sont complémentaires de chacune des strings de la première. Il est donc crucial que les strings en vis à vis soient parfaitement synchrones dans leurs présentations, leurs sélections et leurs différents traitements…

J'ai presque tout réussi à synchroniser sauf pour un petit détail : le scrolling vertical ! Quand le nombre de strings excède la hauteur de la page, les barres de défilement verticales apparaissent. Jouer sur l'une n'entraîne pas la seconde. Il n'y a que quand je fais une sélection dans l'une ou l'autre que les deux se resynchronisent…

Je cherche, je cherche. Il n'y a pas d'événement OnChange ni OnScroll (?)… J'ai recherché avec les méthodes : je ne vois pas de solution.

Quelqu'un aurait une idée ou une piste ? Merci beaucoup.

[Andnotor]

Tu peux intercepter WM_VSCROLL.

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
type
  TListBox = class(StdCtrls.TListBox)
  protected
    procedure WMVScroll(var Message: TMessage); message WM_VSCROLL;
  public
    Slave :TListBox;
  end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Slave := ListBox2;
end;
 
procedure TListBox.WMVScroll(var Message: TMessage);
begin
  inherited;
 
  if Assigned(Slave) then
    Slave.Perform(Message.Msg, Message.WParam, Message.LParam);
end;

Cela dit, le smooth scolling entraîne un léger retard à l'allumage de la seconde listbox. Ce serait plus joli en le supprimant mais le problème est que ça influe sur le système complet !

Code :

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

1
2
3
4
5
6
7
var
  pvParam :integer;
 
begin
  pvParam := 0;
  SystemParametersInfo(SPI_SETLISTBOXSMOOTHSCROLLING, 0, pvParam, 0);
end;

[ShaiLeTroll]

Que donne ceci : Synchroniser deux TListBox et ce sujet Synchroniser deux listBox ?

[Rekin85]

Hum... Bonsoir...
Je vous remercie pour vos solutions, mais je suis désolé, rien ne marche véritablement. Dans un premier temps, j'ai suivi l'exemple de Nono40 dans la FAQ. A l'aide d'un gestionnaire d'événement, on essaie de détourner les messages qui nous intéressent. Sur le papelard, c'est imparable, mais dans mon programme ça ne donne rien (!????)

L'idée de Andnotor est sérieuse, on essaie de capter l'événement VM_Scroll. Cela marche mais uniquement pour le glisser de barre de défilement du scroll vertical et uniquement pour une seule des deux listbox; si on essaie pour les deux à la fois, on obtient une belle V.A.

Je rappelle le deal : Toute intervention de défilement d'une listbox doit entraîner la même chose sur l'autre et vice et versa.

Bref, je vais encore chercher...

En tous cas, merci à vous.

[Rekin85]

Bonjour,

Finalement, j'ai trouvé une solution bâtarde. A partir de la proposition de AndNotOr, j'ai ajouté une procédure pour capter la roulette de la souris (WM_MOUSEWHEEL); ça marche mais je ne suis pas parvenu à rendre cela réciproque entre les deux ListBox sans obtenir un beau débordement de pile. Pas grave, je ne manipule les deux qu'à partir de la première et je rends la deuxième à l'état Enabled.

Je vous remercie bien.

[Andnotor]

Tu peux régler assez facilement ce problème de réentrance en ajoutant un ExtraInfo.

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
type
  TListBox = class(StdCtrls.TListBox)
  private const
    ExtraInfo = 123456;  // Valeur quelconque
  protected
    procedure ForwardMessage(var Message :TMessage);
    procedure WMVScroll(var Message: TMessage); message WM_VSCROLL;
    procedure WMMouseWheel(var Message: TMessage); message WM_MOUSEWHEEL;
  public
    Slave :TListBox;
  end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.Slave := ListBox2;
  ListBox2.Slave := ListBox1;
end;
 
procedure TListBox.ForwardMessage(var Message: TMessage);
begin
  if Assigned(Slave) and (GetMessageExtraInfo <> ExtraInfo) then
  begin
    SetMessageExtraInfo(ExtraInfo);
    Slave.Perform(Message.Msg, Message.WParam, Message.LParam);
  end;
end;
 
procedure TListBox.WMMouseWheel(var Message: TMessage);
begin
  inherited;
  ForwardMessage(Message);
end;
 
procedure TListBox.WMVScroll(var Message: TMessage);
begin
  inherited;
  ForwardMessage(Message);
end;

EDIT: on peut tout de même se demander pourquoi tu n'utilises pas une grille de deux colonnes

[anapurna]

salut

voici un petit test de synchro entre deux listbox

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
 
unit UTestLb;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TListBox = class(StdCtrls.TListBox)
  private
    FOnScroll: TNotifyEvent;
  protected
    procedure WMVScroll(var Message: TMessage); message WM_VSCROLL;
    procedure WMMouseWheel(var Message: TMessage); message WM_MOUSEWHEEL;
  public
    property OnScroll: TNotifyEvent read FOnScroll write FOnScroll;
  end;
  ////////////////////////////////////
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ListBox2Click(Sender: TObject);
  private
    { Déclarations privées }
 
  public
    procedure DoScrollListBox1(Sender: TObject);
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure SynchroListBox(ASrc, ADest: TListBox);
var
  I: Integer;
begin
  if ASrc.MultiSelect and ADest.MultiSelect then
    for I := 0 to ASrc.Items.Count - 1 do
      If i <   ADest.Count Then
       ADest.Selected[I] := ASrc.Selected[I];
  ADest.TopIndex := ASrc.TopIndex;
  ADest.ItemIndex := ASrc.ItemIndex;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.onscroll :=  DoScrollListBox1;
  ListBox2.onscroll :=  DoScrollListBox1;
end;
 
procedure TListBox.WMVScroll(var Message: TMessage); 
begin
  inherited;
  if Assigned(FOnScroll) then
    FOnScroll(Self);
end;
 
procedure TListBox.WMMouseWheel(var Message: TMessage); 
begin
  inherited;
  if Assigned(FOnScroll) then
    FOnScroll(Self);
end;
//////////////////////////////////
procedure TForm1.DoScrollListBox1(Sender: TObject );
begin
 
  if sender = ListBox1 Then
  begin
    SynchroListBox(TListBox(Sender),ListBox2)
  end
  else
    if sender = ListBox2 Then
    begin
      SynchroListBox(TListBox(Sender),ListBox1)
    end;
end;
 
 
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  SynchroListBox(TListBox(Sender),ListBox2)
end;
 
procedure TForm1.ListBox2Click(Sender: TObject);
begin
  SynchroListBox(TListBox(Sender),ListBox1)
end;
 
end.

PS : j'ai modifié le code pour qu'il fonctionne avec les deux type de message

[Rekin85]

Ah ! Que merci AndNotOr !

Tout marche parfait. D'un côté comme de l'autre. Un petit bémol, mon compilateur de D7 Perso n'a jamais voulu que la constante privée ExtraInfo soit dans la définition du Type TListbox. Il l'a bien voulue à l'extérieur sous cette forme:

Code :

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

const ExtraInfo : integer = 123456;

Quant à la solution d'une grille à deux colonnes, tu veux parler d'une StringGrid ; car pour une listBox à deux colonnes l'affichage se fait sur deux colonnes c'est tout (!!??)