Discussion :

[bastoune]

salut,
Je souhaiterais obtenir la position du pointeur de la souris dans un Timage ... De plus, j'ai utiliser la propiété proportional pour adapter l'affichage de l'image au Timage et aurais donc voulu connaitre la taille de l'image affichée.
D'avance Merci

[portu]

tout est devant ton nez
tailles de l'image sont dans le panneau des propriété regarde à Height et à Width.
Pour la position du curseur dans l'image , c'est dans l'evenement de l'image "Onmousemove" et "Onmousedown"et"Onmouseup" . Les coordonnées sont données par la var X et Y.
voila a+

[bastoune]

Merci pour ton aide pour la position dans l'image, je m'étais borner a un evenement sur mouseclick et getcursorpos ...
Par contre, pour la taille de l'image, j'ai tjrs un petit pb, en fait je récupere la taille de mon image originale grace a Timage.Picture.Height et Timage.picture.Width et celle de mon Timage grace a Timage.height et Timage.Width. cependant par la propriété "proportional" mon image est redimensionnée pour entrer dans les dimensions de Timage, ce sont ces nouvelles dimensions de l'image que j'aurais souhaité obtenir.
Encore merci,
a+

[portu]

oui je pense voir ce que tu veux dire. Je pense pas qu'il y aie une propriété ou fonction qui nous donne cela.
Mais, suffit de faire un ptit calcul

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
h,w : integer;
begin
if image1.Picture.Height> image1.Picture.Width then begin
h := image1.Height;
w := round((image1.Picture.Width/image1.Picture.Height)*h);
end else begin
w := image1.Width;
h := round((image1.Picture.height/image1.Picture.width)*w);
end;
caption := inttostr(h)+' '+inttostr(w);

h represente la hauteur et w la largeur.
voila a+

[bastoune]

Merci pour la réponse , ca fonctionne impeccable (avec plutot partie entière Int() que Round())
a+

[portu]

non, la fonction int te renvois que la partie entiere d'un nbr réel, roud arrondit cette valeur, donc si j'ai 125.9 :
int me renvoie 125
round me renvois 126
donc je pense que Round est mieux adapté pour cela.

Voila et de rien
a+

[bastoune]

Suite a ma premiere question j'ai mesuré la taille de l'image redimensionée grace au suivi du pointeur de souris et pensais donc ke l'arrondi se faisait à l'entier inférieur (d'ou la proposition dela fonction Int) sans tenir compte que les positions commencent à 0 (et non 1, d'où mon erreur sur la taille de l'image redimensionnée), désolé de mon post hatif ....
En tout cas merci encore pour tes conseils précieux
a+