Comment ajouter un menu popup sur la flèche d'un bouton 3D

Technicien Support

- Titre : Comment ajouter un menu popup sur la flèche d'un bouton 3D

- Auteur : Technicien Support

- Parution : 1 mars 2005

- Licence : Copyright ® 2005 4D s.a.. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Sommaire

Produit : 4D 2004 · Plateforme : Mac & Win ♪

Les boutons qui utilisent la propriété « Avec pop-up menu » se voient assigner une flèche, laquelle cliquée appelle l'événement formulaire « Sur clic flèche ».

Un menu popup peut-être initialisé pour s'ouvrir directement depuis cette flèche si la commande POP UP MENU est appelée sur l'événement formulaire « Sur clic flèche ».

Documentation pour POP UP MENU :

https://fr.4d.com/documentation/4Ddoc2004/CMF/CMF00542.HTM

L'exemple de code suivant s'applique à un objet Bouton 3D avec un menu popup séparé.

Le style du bouton 3D peut être « Bouton barre outil », « Bevel », « Bevel arrondi », ou « Office XP ».

Les événements formulaires à cocher sont « Sur Clic », « Sur Clic Flèche » et « Sur Clic Long ».

1. `  --- Méthode objet ---

3. C_ENTIER LONG($FormEvent;$ItemSelectionne)

5. Evenement formulaire( Sur clic flèche ; Sur clic long )

7. Au cas ou

9. Pop up menu("Ligne1;Ligne2;Ligne3")

11. Si ($ItemSelectionne#0)   `si l'utilisateur sélectionne une ligne valide

13. Au cas ou

15. : ($ItemSelectionne=1)

17. ALERTE("Ligne 1")

19. : ($ItemSelectionne=2)

21. ALERTE("Ligne 2")

23. : ($ItemSelectionne=3)

25. ALERTE("Ligne 3")

27. Fin de cas

29. Fin de si

31. ALERTE("Sur clic")

33. Fin de cas

36. `  --- Fin de Méthode objet ---