J'ai oublié comment faire un menu popup dans Panoramic

J'ai comme un souvenir que Panoramis sait maintenant faire les menus popup. Et j'ai oublié comment on fait. Pourriez-vous aider ma mémoire défaillante ?

Avec grand plaisir Klaus :

Code:: LABEL menu

DIM no% , p% , clic% , menu%(3)

no%=1
MAIN_MENU_POP no% : PARENT no%,0 : p%=no% : no%=no%+1
SUB_MENU no% : PARENT no%,p% : CAPTION no%,"fichier" : ON_CLICK no%,menu : menu%(1)=no% : no%=no%+1
SUB_MENU no% : PARENT no%,p% : CAPTION no%,"-" : no%=no%+1
SUB_MENU no% : PARENT no%,p% : CAPTION no%,"edition" : ON_CLICK no%,menu : menu%(2)=no% : no%=no%+1
SUB_MENU no% : PARENT no%,p% : CAPTION no%,"-" : no%=no%+1
SUB_MENU no% : PARENT no%,p% : CAPTION no%,"quitter" : ON_CLICK no%,menu : menu%(3)=no% : no%=no%+1
END

menu:
clic%=NUMBER_CLICK
IF clic%=menu%(1) THEN MESSAGE "Fichier"
IF clic%=menu%(2) THEN MESSAGE "Edition"
IF clic%=menu%(3) THEN TERMINATE
RETURN

Merci beaucoup, Minibug ! Smile

De rien. pour une fois que je peux te venir en aide !!

drunken

Ce jour devra être classé comme une date historique de ce forum. Very Happy

Klaus appelle à l'aide, on aura tout vu !

Bien sur, je plaisante, sans arrières pensés, et j'ai trouvé qu'il fallait souligner la chose. Very Happy

Simplement pour faire un peu d'humour et rien d'autre.

A+

» Sub-menu is not menu avec Panoramic.exe
» Comment faire pour télécharger le Compilateur ?
» Comment faire fonctionner \qj en RTF ?
» comment faire avec "WBSurvey"...
» Comment faire: if label(r3$)=1 then resultat=r3$ ?