TScrollBox et deplacements programmés

**petitcoucou31** · 06/01/2008, 19h23

Bonjour a tous ..

j'ai un problème avec l'utilisation des ascenseurs d'un scrollbox.

Mon besoin est d'envoyer de nouvelles positions aux barres de défilement en fonction de coordonnées images.

un exemple sera peut être plus explicite.

J'ai un Tscrollbox de taille 250x250 pixels, à l'intérieur un Timage avec une image de 1000x1000 pixels.
A Partir saisie quelconque de coordonnée image (x=500,y=500) je voudrais envoyer la position adéquate aux barres de défilement pour centrer cette coordonnée au centre de mon Tscrollbox.

Cela fait quelle temps que je tourne autour mais sans résultats vraiment probants, donc si quelqu'un a une méthode .

merci d'avance.

**Qwazerty** · 06/01/2008, 21h56

SAlut
Je pense qu'en faisant comme cela tu devrais avoir l'effet escompté

Code :

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

1
2
3
4
5
6
7
var CoordonneeX, CoordonneeY : Integer;
begin
    CoordonneeX := 354; //Ici mettre le point a centrer dans le scrollbox1
    scrollbox1.HorzScrollBar.Position := CoordonneeX - (scrollbox1.Width Div 2);
 
    CoordonneeY := 250; //Ici mettre le point a centrer dans le scrollbox1
    scrollbox1.VertScrollBar.Position := CoordonneeY - (scrollbox1.height Div 2);