Discussion :

[Georges P]

Bonjour à tous,

une petite question surement bête mais bon :

je souhaite synchroniser deux ScrollBox dans leurs positions horizontales, elles ont toutes les deux la même taille horizontale.

soit avec la barre de défilement de la première ScrollBox soit avec un composant TscrollBar commune au deux.

merci pour votre aide.

[SergioMaster]

Il faudrait que je teste, mais je me lancerai dans un truc du genre
un prototypebindsource avec un record et une valeur (integer ou single)
puis une liaison entre les srollbox.horizontal.position
enfin si elles sont liables

[Georges P]

merci pour ton retour,

faudrait utiliser plutôt ViewportPosition ? non ?

je teste là sans succès.

[SergioMaster]

Au temps pour moi, pas de liaison possible
Reste effectivement l'évènement ViewportPositionChange

[Georges P]

je tente ça sans succès :

Code :

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

1
2
3
4
5
 
procedure TFormMain.ScrollBox1HScrollChange(Sender: TObject);
begin
     ScrollBox12.ScrollBy(ScrollBox1.ViewportPosition.X,0);
end;

[SergioMaster]

Il faut certainement encadré ça avec un ScrollBox.BeginUpdate/EndUpdate

j'ai essayé ça

Code :

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

1
2
3
HorzScrollbox2.BeginUpdate;
HorzScrollbox2.ScrollBy(NewViewportPosition.X-OldViewportPosition.x,0);
HorzScrollbox2.EndUpdate;

mais j'ai un drole d'effet
une erreur de comprehension, en modifiant le calcul

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.HorzScrollBox1ViewportPositionChange(Sender: TObject;
  const OldViewportPosition, NewViewportPosition: TPointF;
  const ContentSizeChanged: Boolean);
begin
//HorzScrollbox2.BeginUpdate;
HorzScrollbox2.ScrollBy(OldViewportPosition.x-NewViewportPosition.X,0);
// HorzScrollbox2.EndUpdate;
end;

c'est synchro