Version: 1.1
Date: Le 6 août 1997
Rédaction: Jocelyn Houle
Direction: Jean Vaucher
BEGIN EXTERNAL CLASS windowtools; INSPECT NEW MainWindow("Popup") DO BEGIN REF(JPHPopupMenu) Popup; REF(Button) Quit; SetSize(200, 100); SetBackground("gray77"); Show; Popup :- JPHMakePopupMenu("/Avant/Pendant/Apres", "Pendant") .PlaceCentered; Quit :- MakeButton("Ok").PlaceDownRight; Quit.Wait; OutLine("Choice: " & Popup.CurrentChoice); END; END;
Après avoir défini la taille de la fenêtre, ainsi que le bouton Quit, nous avons intialisé le PopupMenu:
Popup :- JPHMakePopupMenu("/Avant/Pendant/Apres", "Pendant") .PlaceCentered;
où les éléments sont séparés par le caractère '/'. Le paramètre "Pendant" définit l'élément par défaut.
Popup.CurrentChoice nous donne la valeur de l'étiquette courante du PopupMenu (Avant, Pendant ou Apres dans l'exemple).
![]() |
|
On peut accéder au choix:
![]() |
|
Il existe une autre procédure qui pourrait être utile dans des cas particuliers:
![]() |
|
Le tout premier caractère du paramètre Choices sert de délimiteur. Dans notre exemple, il s'agit du caractère '/', mais on aurait pu le remplacer par n'importe quel caractère. Ainsi, on aurait pu écrire:
MakeMenu("#Avant#Pendant#Apres", "Pendant");Ceci permet entre autres de permettre tous d'afficher tous les caractères qu'on veut, en autant qu'il y en ait un qu'on puisse untiliser comme délimiteur.
On peut aussi scinder un texte sur plusieurs lignes pour permettre d'ajouter et de retirer des choix plus facilement:
MakePopupMenu("/Choix A" "/Choix B" "/Choix C" "/Choix D" "/Autre" , "Choix D");
Pour finir, le nombre d'étiquettes est limité à 25. Il est donc impossible d'avoir plus de 25 choix accessibles par un PopupMenu...