pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


Cet exemple présente toutes les procédures nécessaires à la gestion d'un "Drag and Drop" programmé.



- - Initialisation du champ cible Rechercher
Rechercher..DnDCible = DnDProgrammé
DnDEvénement("SurLacher", "Rechercher", DnDLâcher )
DnDEvénement("SurSurvol", "Rechercher", DnDSurvol )
Procédure SurSurvol()
// Modifier le curseur pour indiquer la copie
SI DnDDonnéeDisponible( CF_TEXT ) ALORS DnDCurseur( DnDCopier )
Procédure SurLâcher()
// Autoriser uniquement la copie de texte si texte
SI DnDDonnéeDisponible( CF_TEXT ) ALORS
   Rechercher = DnDRécupère( CF_TEXT )
FIN
//- - Initialisation du champ PETALE1
FLEUR1..DnDSource = DnDProgrammé
DnDEvénement("Début", "FLEUR1", DnDDébutGlisser )
Procédure Début()
// Associer la donnée "Pétale" au type de donnée "Fleur"
// Mettre dans le tampon du Drag and Drop
DnDDonne("Fleur", "Pétale")
// Imposer le mode copie pour ne pas supprimer la source
DnDImpose( DnDCopier )
//- - Initialisation du champ FLEUR1
Destinataire..DnDCible = DnDProgrammé
DnDEvénement("SurLâcher", "Destinataire", DnDLâcher )
Procédure SurLâcher()
Ch est une chaîne
SI DnDDonnéeDisponible("Fleur") ALORS // Donnée de type "Fleur" disponible
  
Ch = DnDRécupère("Fleur") // Récupérer la donnée
  
SI Ch = "Pétale" ALORS
      Info("Un pétale est ajouté à la fleur")
      ListeAjoute("Pétale")
   FIN
FIN