Discussion :

[gudul]

Bonjour,

Je suis en Delphi 7 et mon but est de faire une zone de sélection pour un zoom.

J'affiche 2 images dans des TImages. Une charger avec une image dont la propriétés Proportional est à False et l'autre avec la même image avec proportionnal à true. L'une me sert de zoom pour l'autre. J'aimerais afficher un TShape (ou autre) sur l'image genérale représentant le zoom (fenêtre de zoom), pouvoir déplacer ce rectangle à la souris et visualiser le contenu du zoom.
Mes Timages font env 500 x 500 et la résolution de mes images font 6000 x 4000
Avez vous une idée ?

[Droïde Système7]

Il me semble qu'il y a un source à ce sujet :
http://delphi.developpez.com/sources/?rechercher=zoom

Idem, un source à Nono :
http://delphi.developpez.com/sources...no40source0025

En biblio JVCL, il y a un compo exprès pour cela = pour zoommer. Si ça t'intéresse, je vais le rechercher...

@+

[chaplin]

A la différence que pour son Zoom, il suffit de prendre la portion d'image qu'il souhaite de la photo à 6000X4000.
A priori, il n'aurait même pas besoin de zoom, simplement d'afficher la zone à taille réel de l'échantillon original.

[gudul]

Mon but initiale n'est pas de faire un zoom sur une image affichée à l'écran mais d'afficher l'image en taille réelle d'une coté avec des scrollBar afin de me déplacer dedans comme dans paint (C'est fait) et d'afficher un rectangle symbolisant le TImage dans le TPicture. Il faut que le rectangle se déplace en même temps que le déplacement des scrollbars et pouvoir faire glisser ce rectangle à la souris qui fera afficher l'image en taille reelle et deplassement des scrollbars.

Calcul des max des scrollbars:

Code :

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

1
2
    ScrollBarImg1B.Max := Img1.Picture.Width - Img1.Width - 1;
    ScrollBarImg1G.Max := Img1.Picture.Height - Img1.Height - 1;

J'ai mis un TShape dont je calcule la taille

Code :

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

Shape.Width := Trunc(Img1.Width / Img1.Pidture.Width * Img2.Width * Ratio);

Le ratio étant le ratio pour garder les proportions (Ratio = 1 pour la largeur, Ratio = (4000 * 500) / (6000 * 500) = 2/3 pour la hauteur)

J'ai plus de mal avec Le shape.Left et Top en fonction du scrollBarX.Position et max mais ca va s'arranger.
Le problème est de déplacer le TShape à la souris et la vitesse de déplacement du TShape (Elle saccade lors du mouvement des scrollbars).

Mon 2 ème objectif est en effet de pouvoir dézoomer, de modifier la shape, les max des scrollbars en consequence et géré le comportement.

[chaplin]

Je pense que l'exemple de IPhone Scrolling de Paul TOTH est une bonne source d'inspiration, voir même répond aux attentes, avec quelques modifications.

Il y a un programme sur http://www.abf-soft.com/lens-magnifying-glass.shtml qui fait zoom, est ce cet effet là qui est recherché.