[D7] Scrolling dans les TListBox

Version imprimable

25/03/2021, 12h12
Rekin85

[D7] Scrolling dans les TListBox

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.

Tu peux intercepter WM_VSCROLL.

Code:

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:

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

25/03/2021, 13h25
ShaiLeTroll

Que donne ceci : Synchroniser deux TListBox et ce sujet Synchroniser deux listBox ?
25/03/2021, 21h38
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.
26/03/2021, 12h06
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.

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

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

salut

voici un petit test de synchro entre deux listbox

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

26/03/2021, 14h49
Rekin85

Ah ! Que merci AndNotOr ! :D

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:

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 (!!??)
26/03/2021, 16h15
anapurna

salut

je comprend pas pourquoi les gens sont fébrile a utiliser les évènements
c'est pourtant ultra pratique
26/03/2021, 21h40
Rekin85

Merci Anapurna c'est une solution radicale et qui fonctionne bien. Grand Merci à toi aussi.

Ceci dit, quand j'ai débuté dans la programmation informatique (1983...) les programmes en langages interprêtés (basic Bil Gates...) il n'y avait pas d'événement et on était obligé de faire des boucles d'attente sur... Un événement quelconque (souvent une touche du clavier ou un mouvement de souris...). Puis petit à petit en passant par la programmation modulaire on est arrivé à l'événementiel, le vrai ! Tout Windows et autre OS sont événementiels !

Quand j'écris un programme avec Delphi, il est impossible de ne pas invoquer un événement sur un objet quelconque pour faire progresser les différents modules... Tout cela pour te dire qu'on ne rechigne jamais et on n'est jamais fébrile à utiliser les événements. C'est la base.

C'était la pensée philosophique du jour... Hum. :roll:
29/03/2021, 12h48
Andnotor

Citation:

Envoyé par Rekin85

tu veux parler d'une StringGrid

C'est ça.