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.
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
|