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