Discussion :

[micprog]

Comment faire pour synchroniser le défilement de deux scrollbox contenant des Timage. Je voudrais qu'en jouant sur l'ascenseur d'un des scrollbox, les deux Timage dans les deux scrollbox se positionnent.
Si vous avez des idées
Mic

[gibbe]

Ce n'est peut être pas la meilleure solution mais elle marche. Je l'ai programmée pour l'affichage d'un planning avec un timer. J' affiche la liste des postes dans la scrollbox de gauche (scroll vertical) et le planning dans celle de droite (scroll vertical +scroll horizontal pour les dates)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure Tfcalcul_chrono.Timer1Timer(Sender: TObject);
begin
   if imageposte.top<>ImagePlanning.top then
     begin
        if imageposte.top<>synchroV then            
 
           scrollboxplanning.vertscrollBar.position:=scrollboxposte.VertScrollBar.position
            else
            scrollboxposte.VertScrollBar.position:=scrollboxplanning.vertscrollBar.position;
         synchroV:=imageposte.top;
     end;
end;

[Qwazerty]

SAlut
Moi je ferais comme ca plutot, c'est peut etre pas la meilleur solution mais l'utilisation d'un timer non plus

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.ScrollBox1ConstrainedResize(Sender: TObject; var MinWidth,
  MinHeight, MaxWidth, MaxHeight: Integer);
begin
     If image2.Top <> image1.Top Then ScrollBox2.VertScrollBar := ScrollBox1.VertScrollBar;
end;
 
procedure TForm1.ScrollBox2ConstrainedResize(Sender: TObject; var MinWidth,
  MinHeight, MaxWidth, MaxHeight: Integer);
begin
     If image2.Top <> image1.Top Then ScrollBox1.VertScrollBar := ScrollBox2.VertScrollBar;
 
end;

Bon ok j'ai pas renomé mes composants mais comme ca on voit de suite qu'il faut un scrollbox1 avec une image Image1dedans et pareil avec ScrollBox2 et Image2 a l'interieur

A++
Qwaz