DROP_DOWN N

L'utilisation de cette commande pour un 'main_menu_pop' le fait s'afficher en haut et à gauche de l'écran. Les commandes left/top ne fonctionnent pas encore. Serait il possible de remédier à cela ?

Code:

rem créer un MAIN_MENU_POP avec son SUB_MENU
main_menu_pop 1
sub_menu 2
parent 2,1
caption 2,"Sub_Menu"
caption 0,"right click to display MAIN_MENU_POP"
' left 1,100 : top 1,100 :' ne fonctionnent pas
drop_down 1

Ben.. j'ai l'impression que ce ménu popup s'affiche à l'endroit du clic droit, où qu'il soit. Ou aurais-je mal compris l'énoncé de ta demande ?

DROP_DOWN N est une toute nouvelle commande panoramic, dévoilé par jack il y a qq temps déjà. Elle permet de dérouler l'objet numéro N (COMBO ou MAIN_MENU_POP) depuis la version instantanée V 0.9.29i1.
J'ai essayé de détourner un MAIN_MENU_POP pour qu'il s'affiche au clic droit UNIQUEMENT sur un objet plutôt qu'un FORM, et j'y suis arrivé, mais le MAIN_MENU_POP s'affiche en haut à gauche de l'écran. Malheureusement les commandes left/top ne fonctionnent pas pour le placer correctement d'ou cette demande.
Voici un exemple qui montre bien le pb:

Code:

label test

rem créer un MAIN_MENU_POP caché avec son SUB_MENU
form 100
   left 100,800
   command_target_is 100
   main_menu_pop 1
   sub_menu 2
   parent 2,1
   caption 2,"Sub_Menu"
hide 100

command_target_is 0
caption 0,"right click to display MAIN_MENU_POP on panel"
memo 20
panel 21 : left 21,250
on_mouse_down 21,test


end
test:
   off_mouse_down 21
   drop_down 1
   ' left 1,100 : top 1,100 :' ne fonctionnent pas
   on_mouse_down 21,test
return

J'ai tenté de déplacer le menu PopUp une fois qu'il est apparu, mais c'est pratiquement impossible. Il est carrément impossible de lui affecter une location avant son affichage - on n'a tout simplement pas la main.

Alors, j'ai fait une fonction:

Code:

res% = dll_call3("PopupMenuLocation",object_internal(menu%),x%,y%)

Ceci remplace la commande DROPDOWN de Panoramic, jusqu'à ce que Jack lui ajoute ces deux paramètres. Et ça marche très bien:

Code:

label test
dim res%

rem créer un MAIN_MENU_POP caché avec son SUB_MENU
form 100
  left 100,800
  command_target_is 100
  main_menu_pop 1
  sub_menu 2
  parent 2,1
  caption 2,"Sub_Menu"
hide 100

command_target_is 0
caption 0,"right click to display MAIN_MENU_POP on panel"
memo 20
panel 21 : left 21,250
on_mouse_down 21,test

dll_on "KGF.dll"

end
test:
  off_mouse_down 21
'  drop_down 1
res% = dll_call3("PopupMenuLocation",object_internal(1),100,100)
  ' left 1,100 : top 1,100 :' ne fonctionnent pas
  on_mouse_down 21,test
return

Il suffit de télécharger la DLL par la signature de mon post.