PROPRIETES GLISSER DEPOSER

4D v15.4


PROPRIETES GLISSER DEPOSER ( srcObjet ; srcElément ; srcProcess )

Paramètre	Type	Description
srcObjet	Pointeur	Pointeur vers l'objet source du glisser-déposer
srcElément	Entier long	Numéro de l'élément de tableau glissé ou Numéro de la ligne de list box glissée ou Elément de la liste hiérarchique glissé ou -1 si l'objet glissé n'est ni un élément de tableau, ni une ligne de list box ni un élement de liste
srcProcess	Entier long	Numéro du process source

Description

La commande PROPRIETES GLISSER DEPOSER vous permet de récupérer des informations sur l'objet source lorsque l'événement Sur glisser ou Sur déposer est déclenché pour un objet “complexe” (tableau, list box ou liste hiérarchique).

Généralement, la commande PROPRIETES GLISSER DEPOSER se place dans la méthode objet (ou une des sous-méthodes qu'elle appelle) de l'objet pour lequel l'événement Sur glisser ou Sur déposer se produit.

Rappel : Des données peuvent être déposées sur un objet de formulaire si la propriété Déposable lui a été assignée. De plus, la méthode qui lui est associée doit être appelée par l'événement Sur déposer et/ou Sur glisser si vous voulez traiter ce type d'événement.

Après l'appel de cette commande :

Le paramètre srcObjet est un pointeur vers l'objet source, c'est-à-dire l'objet qui a été glissé et déposé. Notez que cet objet peut être ou non identique à l'objet de destination, autrement dit l'objet pour lequel l'événement Sur déposer ou Sur glisser a été déclenché. Le glisser-déposer de valeurs entre des objets de même type est utile pour les tableaux et les listes hiérarchiques : cela vous fournit un moyen simple de permettre à l'utilisateur de trier manuellement un tableau ou une énumération.
Si les données glissées-déposées sont un élément de tableau (l'objet source étant un tableau), le paramètre srcElément est égal au numéro de cet élément. Si les données glissées-déposées sont une ligne de list box, le paramètre srcElément est égal au numéro de cette ligne. Si les données glissées-déposées sont un élément de liste hiérarchique, le paramètre srcElément retourne la position de cet élément. Sinon, si l'objet source n'appartient à aucune de ces catégories, srcElément est égal à -1.
Des opérations de glisser-déposer peuvent être effectuées entre différents process. Le paramètre srcProcess est égal au numéro du process auquel appartient l'objet source. Il est important de tester la valeur de ce paramètre. En effet, vous pouvez traiter un glisser-déposer “process” en copiant simplement les données source dans l'objet de destination. En revanche, lorsque vous traitez un glisser-déposer “interprocess”, vous devez utiliser la commande LIRE VARIABLE PROCESS pour récupérer les données source à partir de l'instance de l'objet du process source. Notez que généralement, le glisser-déposer dans une interface utilisateur s'effectue à partir de variables (tableaux et liste hiérarchiques) vers des zones de saisie de données (champs ou variables).

Note de compatibilité : Depuis la version 11 de 4D, il est recommandé de gérer les opérations de glisser-déposer, notamment interprocess, à l'aide de l'événement Sur début glisser et des commandes du thème Conteneur de données.

Si vous appelez PROPRIETES GLISSER DEPOSER alors qu'aucun événement glisser-déposer ne s'est produit, srcObjet retourne un pointeur NIL, srcElément retourne -1 et srcProcess retourne 0.

Astuce : 4D gère pour vous l'aspect graphique du glisser-déposer. Mais c'est à vous de traiter l'événement de manière appropriée. Dans les exemples ci-dessous, le traitement consiste à copier les données qui ont été glissées. Mais vous pouvez également implémenter des interfaces plus sophistiquées dans lesquelles, par exemple, le glisser-déposer d'un élément de tableau depuis une palette flottante provoque le remplissage de la fenêtre de destination (la fenêtre dans laquelle se trouve l'objet de destination) avec des données structurées (comme plusieurs champs provenant d'un enregistrement désigné par l'élément de tableau source).

Vous pouvez appeler la commande PROPRIETES GLISSER DEPOSER lors de l'événement formulaire Sur glisser afin de décider si l'objet de destination doit ou non accepter l'opération, en fonction du type et/ou de la nature de l'objet source (ou pour toute autre raison). Si vous acceptez le glisser-déposer, la méthode de l'objet doit retourner $0:=0. Si vous n'acceptez pas l'opération, la méthode de l'objet doit retourner $0:=-1. L'acceptation ou le refus d'un glisser-déposer est visible à l'écran : l'objet sera ou ne sera pas sélectionnable (par exemple encadré) en tant que destination du glisser-déposer.

Exemple 1

Vous disposez, dans plusieurs formulaires de votre base, de zones de défilement. Vous voulez que l'utilisateur puisse réordonner manuellement les éléments des zones par simple glisser-déposer à l'intérieur de chaque zone. Plutôt que d'écrire du code spécifique pour chaque cas, vous voulez utiliser une méthode projet générique qui traite toutes les zones de défilement. Pour cela, vous pouvez écrire :

  ` Méthode projet de traitement de glisserdéposer interne dans un tableau

  ` Traitement de glisserdéposer interne dans un tableau ( Pointeur ) -> Booléen

  ` Traitement de glisserdéposer interne dans un tableau ( -> Tableau ) -> Est un glisser-déposer interne dans un tableau

 

 Au cas ou

    :(Evenement formulaire=Sur glisser)

       PROPRIETES GLISSER DEPOSER($vpSrcObj;$vlSrcElem;$vlPID)

       Si($vpSrcObj=$1)

  `Accepter le glisser-déposer s'il est interne au tableau

          $0:=0

       Sinon

          $0:=-1

       Fin de si

    :(Evenement formulaire=Sur déposer)

  ` Récupérer les informations sur l'objet source du glisser-déposer

       PROPRIETES GLISSER DEPOSER($vpSrcObj;$vlSrcElem;$vlPID)

  ` Récupérer le numéro de l'élément de destination

       $vlDstElem :=Position deposer

  ` Si l'élément n'a pas été glissé-déposé sur lui-même

       Si($vlDstElem #$vlSrcElem)

  ` Stocker l'élément glissé dans l'élément 0 du tableau

          $1->{0}:=$1->{$vlSrcElem}

  ` Effacer l'élément glissé

          SUPPRIMER DANS TABLEAU($1->;$vlSrcElem)

  ` Si l'élément de destination est au-delà de l'élément glissé

          Si($vlDstElem>$vlSrcElem)

  ` Décrémenter le numéro de l'élément de destination

             $vlDstElem:=$vlDstElem-1

          Fin de si

  ` Si le glisser-déposer s'est produit au-delà du dernier élément

          Si($vlDstElem=-1)

  ` Définir le numéro de l'élément de destination comme un nouvel élément ajouté à la fin du tableau

             $vlDstElem:=Taille tableau($1->)+1

          Fin de si

  ` Insérer ce nouvel élément

          INSERER DANS TABLEAU($1->;$vlDstElem)

  ` Fixer sa valeur, préalablement stockée dans l'élément zéro du tableau

          $1->{$vlDstElem}:=$1->{0}

  ` L'élément devient le nouvel élément sélectionné du tableau

          $1->:=$vlDstElem

       Fin de si

 Fin de cas

Une fois que vous avez écrit cette méthode projet, vous pouvez l'utiliser ainsi :

  ` Méthode objet Zone de défilement unTableau

 

 Au cas ou

  `...

    :(Evenement formulaire=Sur glisser)

       $0:=Traitement de glisserdéposer interne dans un tableau(Self)

    :(Evenement formulaire=Sur déposer)

       Traitement de glisserdéposer interne dans un tableau(Self))

  `...

 Fin de cas

Exemple 2

Vous disposez, dans plusieurs formulaires de votre base, de zones de texte saisissables. Vous voulez que l'utilisateur puisse y saisir des données par glisser-déposer à partir de sources multiples. Plutôt que d'écrire du code spécifique pour chaque cas, vous voulez utiliser une méthode projet générique qui traite toutes les zones de texte. Pour cela, écrivez la méthode suivante :

  ` Méthode projet Traitement du déposer dans variable Texte

  ` Traitement du déposer dans variable Texte ( Pointeur )

  ` Traitement du déposer dans variable Texte ( -> variable texte ou chaîne )

 

 Au cas ou

  ` Utilisation de cet événement pour accepter ou refuser le glisser-déposer

    :(Evenement formulaire=Sur glisser)

  ` Initialiser $0 pour le refus

       $0:=-1

  ` Récupérer les informations sur l'objet source du glisser-déposer

       PROPRIETES GLISSER DEPOSER($vpSrcObj;$vlSrcElem;$vlPID)

  ` Dans cet exemple, nous refusons le glisser-déposer d'un objet sur lui-même

       Si($vpSrcObj#$1)

  ` Récupérer le type des données glissées

          $vlSrcType:=Type($vpSrcObj->)

          Au cas ou

             :($vlSrcType=Est un texte)

  ` OK pour les variables texte

                $0:=0

             :($vlSrcType=Est une variable chaîne)

  ` OK pour les variables chaîne

                $0:=0

             :(($vlSrcType=Est un tableau chaîne)|($vlSrcType=Est un tableau texte))

  ` OK pour les tableaux chaîne et texte

                $0:=0

             :(($vlSrcType=Est un entier long)|($vlSrcType=Est un numérique))

                Si(Liste existante($vpSrcObj->))

  ` OK pour les liste hiérarchiques

                   $0:=0

                Fin de si

          Fin de cas

       Fin de si

 

  ` Utilisation de cet événement pour effectuer réellement l'action de glisser-déposer

    :(Evenement formulaire=Sur déposer)

       $vtDonnéesGlissées:=""

  ` Récupérer les informations sur l'objet source du glisser-déposer

       PROPRIETES GLISSER DEPOSER($vpSrcObj;$vlSrcElem;$vlPID)

  ` Récupérer le type des données glissées

       $vlSrcType:=Type($vpSrcObj->)

       Au cas ou

  ` Si c'est un tableau

          :(($vlSrcType=Tableau chaîne)|($vlSrcType=TABLEAU TEXTE))

             Si($vlPID#Numero du process courant)

  ` Lire l'élément depuis l'instance de la variable dans le process source

                LIRE VARIABLE PROCESS($vlPID;$vpSrcObj->{$vlSrcElem};$vtDraggedData)

             Sinon

  ` Glisser-déposer depuis le même process, copions juste la valeur

                $vtDraggedData:=$vpSrcObj->{$vlSrcElem}

             Fin de si

  ` Si c'est une liste

          :(($vlSrcType=Est un numérique) | ($vlSrcType=Est un entier long))

  ` Si c'est une liste en provenance d'un autre process

             Si($vlPID#Numero du process courant)

  `Récupérer la référence de la liste dans l'autre process

                LIRE VARIABLE PROCESS($vlPID;$vpSrcObj->;$vlList)

             Sinon

                $vlList:=$vpSrcObj->

             Fin de si

  ` Si la liste existe

             Si(Liste existante($vpSrcObj->))

  `Récupérer le texte de l'élément dont on a obtenu la position

                INFORMATION ELEMENT($vlList;$vlSrcElem;$vlItemRef;$vsItemText)

                $vtDraggedData:=$vsItemText

             Fin de si

          Sinon

  ` C'est une variable chaîne ou texte

             Si($vlPID#Numero du process courant)

                LIRE VARIABLE PROCESS($vlPID;$vpSrcObj->;$vtDraggedData)

             Sinon

                $vtDraggedData:=$vpSrcObj->

             Fin de si

       Fin de cas

  ` S'il y a effectivement quelque chose à déposer (l'objet source pourrait être vide)

       Si($vtDraggedData # "")

          $1->:=$1->+$vtDraggedData

       Fin de si

 Fin de cas

Une fois que vous avez écrit cette méthode projet, vous pouvez l'utiliser ainsi :

  ` Méthode objet du champ de texte [uneTable]unTexte

 

 Au cas ou

          ` ...

    :(Evenement formulaire=Sur glisser)

       $0:=Traitement du déposer dans variable texte(Self)

 

    :(Evenement formulaire=Sur déposer)

       Traitement du déposer dans variable texte(Self)

          ` ...

 

 Fin de cas

Exemple 3

Nous souhaitons remplir une zone de texte (par exemple une étiquette) avec des données glissées depuis une list box.

Voici la méthode de l’objet etiq1 :

 Au cas ou

    :(Evenement formulaire=Sur glisser)

       PROPRIETES GLISSER DEPOSER($source;$lignetab;$numprocess)

       Si($source=Pointeur vers("list box1"))

          $0:=0 `On accepte le glisser

       Sinon

          $0:=-1 `On refuse le glisser

       Fin de si

    :(Evenement formulaire=Sur déposer)

       PROPRIETES GLISSER DEPOSER($source;$lignetab;$numprocess)

       CHERCHER([Adhérents];[Adhérents]Nom=tNoms{$lignetab})

       Si(Enregistrements trouves([Adhérents])#0)

          etiq1:=[Adhérents]Nom+" "+[Adhérents]Prénom+Caractere(Retour chariot)+[Adhérents]Adresse+Caractere(Retour chariot)+[Adhérents]Code postal+" "+[Adhérents]Ville

       Fin de si

 Fin de cas

Il est dès lors possible d’effectuer l’action suivante :

Voir aussi

Evenement formulaire
LIRE VARIABLE PROCESS
Liste existante
Position deposer
Présentation du Glisser-Déposer
RESOUDRE POINTEUR