Discussion :

[Coussati]

bonjour

je déplace avec le curseur de la souris des composants Timage sur ma fiche, et j'aimerais éviter qu'ils se touchent

j'avais pensé à un tableau qui mémoriserait les coordonnées de chaque Timage et ainsi afficher un message d'erreur si un est disposé sur l'ensemble des coordonnées recouvert par un autre ? mais je me demandais s'il y avait mieux ?

je précise tout de fois que les Timage qui se déplacent sont posés sur un Timage (fixe) qui sert d'image de fond

merci à vous

[ALWEBER]

Tu dois effectivement mémoriser un tableau des coordonnées (top,left,right,bottom) de chaque image.
Ensuite tu analyse les quatre points futurs de l'image après déplacement, et si au moins un des points est a l'intérieur du style (image1.Left <= point1.X <= image1.right) et (image1.Top <= point1.Y <= image1.Bottom) tu annules le déplacement. Attention! Exclure l'image elle même de l'analyse. Bon algorithme

[guillemouze]

(...), et si au moins un des points est a l'intérieur du style (image1.Left <= point1.X <= image1.right) et (image1.Top <= point1.Y <= image1.Bottom) tu annules le déplacement(...)

Attention, si une image est plus grande que l'autre, tu peux ne pas avoir de point à l'intérieur mais recouvrir (partiellement) l'image.
Il vaut mieux verifier que les 2 bords sont plus a droite ou a gauche de l'autre image, ET les 2 autres au dessus ou en dessous

Code :

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

1
2
3
4
 
( (img1.right < img2.left) or (img1.left > img2.right) )
and
( (img1.bottom < img2.top) or (img1.top > img2.bottom) )

[Andnotor]

On peut tester le chevauchement par IntersectRect (ou IntersectsWith).

Code :

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

1
2
3
4
5
6
7
8
var
  R :TRect;
begin
  if IntersectRect(R, Image1.BoundsRect, Image2.BoundsRect) then
 
  //ou
  if Image1.BoundsRect.IntersectsWith(Image2.BoundsRect) then
end;

[Coussati]

merci à vous tous

ALWEBER comme toi j'avais pensé à une version plus longue et contraignante, j'avais espérer ne pas réinventer la roue, et grâce à Andnotor je n'aurais pas à le faire ^^

@Andnotor la fonction IntersectRect fonctionne bien, mais l'autre doit avoir un problème de class ou alors mal écrit

[Andnotor]

la fonction IntersectRect fonctionne bien, mais l'autre doit avoir un problème de class ou alors mal écrit

Non, elle est juste mais il faut un Delphi relativement récent. La structure TRect a été améliorée

[Coussati]

Non, elle est juste mais il faut un Delphi relativement récent. La structure TRect a été améliorée

tu as surement raison, car j'utilise delphi 7

merci en tout cas