1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
| PROCEDURE SourisBouge()
Res, PosX, PosY sont des entiers // Pour récupérer les coordonnées de la souris
xMini, xMaxi, yMini, yMaxi sont des entiers
// On peut définir des bornes à ne pas dépasser,
// pour éviter que l'objet soit déplacé en dehors de l'écran...
xMini = 100
xMaxi = FEN_Board_PostIt..Largeur-230
yMini = 7
yMaxi = FEN_Board_PostIt..Hauteur - 230
BOUCLE
Res = CurseurPos(cpEcran)
SI Res <> -1 ALORS
// on récupère la position de la souris
// (NomFenetre à remplacer par le nom de la fenetre...)
PosX = PoidsFaible(Res) - FEN_Board_PostIt..X
PosY = PoidsFort(Res) - FEN_Board_PostIt..Y
// on vérifie que l'on ne sort pas de la zone, sinon on bloque
SI PosX < xMini ALORS PosX = xMini
SI PosX > xMaxi ALORS PosX = xMaxi
SI PosY < yMini ALORS PosY = yMini
SI PosY > yMaxi ALORS PosY = yMaxi
// On déplace
{gsChampADeplacer,indChamp}..X = PosX - xMini
{gsChampADeplacer,indChamp}..Y = PosY - yMini
FIN
// Quand on relachera le bouton, enMouvement passera à Faux et on sortira de la boucle
SI PAS gbEnMouvement ALORS SORTIR
FIN |
Partager