version 6.5 (Modifiée)
WR Souris vers selection (zone; posHoriz; posVert; débutSel; finSel) Entier
Paramètre | Type | Description | |
zone | Entier long | Zone 4D Write | |
posHoriz | Entier | Coordonnée horizontale de la souris dans la zone | |
posVert | Entier | Coordonnée verticale de la souris dans la zone | |
débutSel | Entier long | Début de la sélection | |
finSel | Entier long | Fin de la sélection | |
Résultat | Entier | Sélection correspondant au positionnement | |
du curseur de la souris |
Description
La commande WR Souris vers selection retourne la sélection correspondant au positionnement du curseur de la souris. Elle retourne 0 si le curseur pointe sur du texte et 1 s'il pointe sur une image.
WR Souris vers selection s'utilise conjointement avec la fonction de glisser-déposer, pour repérer l'endroit où l'utilisateur a relâché le bouton de la souris et collé un objet.
débutSel et finSel retournent des valeurs différentes lorsque vous relâchez le bouton de la souris sur une référence. Attention, en version 6.0 ou inférieure de 4D Write, l'expression finSel - débutSel renvoyait le nombre de caractères contenus dans la référence après évaluation. A compter de la version 6.5, finSel = débutSel+1. Autrement dit, désormais une référence = 1 caractère, quel que soit le nombre de caractères contenus dans la référence, après évaluation.
Les paramètres posHoriz et posVert retournent par défaut 0000. Pour qu'ils renvoient une valeur, vous devez préalablement utiliser la commande de 4e Dimension POSITION SOURIS ou la routine de 4D_Pack AP PICT DRAGGER (pour plus d'informations, reportez-vous aux documentations de ces produits).
Exemple
Imaginons une zone 4D Write contenant un bouton avec une image en arrière-plan. Une méthode objet associée au bouton permet de simuler un glisser-déposer de l'image vers un point B, en sachant que le curseur se trouve en un point A.
AP PICT DRAGGER ([Courriers]Picture;PositionH;PositionV) NPictureNot:=WR Souris vers selection(Champ6;PositionH;PositionV;DebutSel;FinSel) WR FIXER SELECTION(Champ6;DebutSel;FinSel) im:=[Courriers]Picture*0,5 WR INSERER IMAGE(Champ6;Im)
Référence
AP PICT DRAGGER, POSITION SOURIS.