4D v16.3Position deposer |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D v16.3
Position deposer
|
Position deposer {( numColonne | posYImage )} -> Résultat | ||||||||
Paramètre | Type | Description | ||||||
numColonne | posYImage | Entier long |
![]() |
Numéro de colonne de list box (-1 si le déposer a lieu après la dernière colonne) ou Position coordonnée Y dans l'image |
|||||
Résultat | Entier long |
![]() |
• Numéro (tableau/list box) ou • Position (liste hiérarchique) ou • Position dans la chaîne (texte/combo box) de l'élément de destination ou • -1 si le déposer a lieu après le dernier élément de tableau ou de liste ou • Position coordonnée X dans l’image |
|||||
Position deposer permet de connaître l'emplacement, dans un objet de destination “complexe”, auquel un objet a été (glissé et) déposé. Généralement, vous utiliserez Position deposer pendant le traitement d'un événement glisser-déposer qui s'est produit dans un tableau, une list box, une liste hiérarchique, un champ texte ou une image.
Si vous appelez Position deposer pendant le traitement d'un événement qui n'est pas de type glisser-déposer dans un tableau, une list box, une combo box, une liste hiérarchique, un texte ou une image, la fonction retourne également -1.
Rappel : Pour qu'un objet de formulaire accepte des données déposées, la propriété Déposable doit lui avoir été assignée. De plus, sa méthode objet doit être appelée par l'événement Sur glisser et/ou Sur déposer si vous voulez pouvoir gérer ce type d'événement.
Reportez-vous aux exemples de la commande PROPRIETES GLISSER DEPOSER.
Dans l’exemple suivant, une liste de sommes doit être ventilée par mois et par personne. L’opération s’effectue par glisser-déposer depuis une zone de défilement :
La méthode objet de la list box contient le code suivant :
Au cas ou
:(Evenement formulaire=Sur glisser)
PROPRIETES GLISSER DEPOSER($source;$lignetab;$numprocess)
Si($source=Pointeur vers("ZD1")) `Si le déposer provient bien de la zone de défilement
$0:=0
Sinon
$0:=-1 `On refuse le déposer
Fin de si
:(Evenement formulaire=Sur déposer)
PROPRIETES GLISSER DEPOSER($source;$lignetab;$numprocess)
$numligne:=Position deposer($numcol)
Si($numcol=1)
BEEP
Sinon
Au cas ou `Addition des valeurs déposées
:($numcol=2)
Jean{$numligne}:=Jean{$numligne}+ZD1{$lignetab}
:($numcol=3)
Marc{$numligne}:=Marc{$numligne}+ZD1{$lignetab}
:($numcol=4)
Pierre{$numligne}:=Pierre{$numligne}+ZD1{$lignetab}
Fin de cas
SUPPRIMER DANS TABLEAU(ZD1;$lignetab) `Mise à jour de la zone
Fin de si
Fin de cas
Produit : 4D
Thème : Glisser-Déposer
Numéro :
608
Nom intl. : Drop position
Modifié : 4D v11 SQL
Modifié : 4D v12
4D - Langage ( 4D v16)
4D - Langage ( 4D v16.1)
4D - Langage ( 4D v16.2)
4D - Langage ( 4D v16.3)