Menu Contextuel - Click de droite

DIM n% , espace%
LABEL appel_timer , click

LIST 1 : LEFT 1,10 : TOP 1,10 : WIDTH 1,200 : HEIGHT 1,200 : FOR n%=1 TO 7 : ITEM_ADD 1,"Choix "+STR$(n%) : NEXT n%
TIMER 2 : TIMER_INTERVAL 2,500 : ON_TIMER 2,appel_timer : TIMER_ON 2

PANEL 3 : WIDTH 3,162 : HEIGHT 3,86 : HIDE 3 : FONT_SIZE 3,11
PICTURE 4 : PARENT 4,3 : COLOR 4,240,240,240 : FULL_SPACE 4 : WIDTH 4,17 : STRETCH_ON 4 : FILE_LOAD 4,"D:\BASIC\GPP\systeme\icones\menu.bmp"
LIST 5 : PARENT 5,3 : COLOR 5,240,240,240 : FULL_SPACE 5 : LEFT 5,18 : WIDTH 5,WIDTH(5)-17 : ON_CLICK 5,click
ITEM_ADD 5,"Afficher le choix" : ITEM_ADD 5,"Menu fictif 1" : ITEM_ADD 5,"Menu fictif 2" : ITEM_ADD 5,"Menu fictif 3" : ITEM_ADD 5,"Quitter"

END

appel_timer:
  IF MOUSE_RIGHT_DOWN(1)=1 AND ITEM_INDEX(1)<>0 THEN LEFT 3,MOUSE_X_POSITION(1)+10 : TOP 3,MOUSE_Y_POSITION(1)+10 : SHOW 3 : espace%=0

  IF SHOW(3)=1 : espace%=espace%+1 : END_IF : IF espace%>6 : HIDE 3 : espace%=0 : END_IF
RETURN

click:
  IF ITEM_INDEX(5)=1 THEN HIDE 3 : MESSAGE "Vous avez sélectionnez le choix "+STR$(ITEM_INDEX(1))
  IF ITEM_INDEX(5)=2 THEN HIDE 3
  IF ITEM_INDEX(5)=3 THEN HIDE 3
  IF ITEM_INDEX(5)=4 THEN HIDE 3
  IF ITEM_INDEX(5)=5 THEN HIDE 3 : TERMINATE
RETURN

DIM n% , x%, my, mx
label show10
label survol
label click
form 10
border_hide 10
width 10,120 :height 10,80

LIST 1
LEFT 1,10 : TOP 1,10
WIDTH 1,200 : HEIGHT 1,200
FOR n%=1 TO 7 : ITEM_ADD 1,"Choix "+STR$(n%) : NEXT n%
on_click 1,show10
command_target_is 10
main_menu 20

sub_menu 30: parent 30,20: caption 30,"Afficher le choix" : on_click 30,click
sub_menu 31:parent 31,20: caption 31,"Menu fictif 2    " : on_click 31,click
sub_menu 32:parent 32,20: caption 32,"Menu fictif 3    " : on_click 32,click
sub_menu 33:parent 33,20: caption 33,"Menu fictif 4    " : on_click 33,click
hide 10

timer 100:timer_interval 100,1:on_timer 100,survol
end

click:
 timer_off 100
hide 10
if clicked(30)=1 then MESSAGE "Vous avez sélectionnez le choix "+STR$(ITEM_INDEX(1))
if clicked(31)=1 then MESSAGE "Vous avez sélectionnez le choix "+STR$(ITEM_INDEX(1))
if clicked(32)=1 then MESSAGE "Vous avez sélectionnez le choix "+STR$(ITEM_INDEX(1))
if clicked(33)=1 then terminate
 timer_on 100
return

show10:

show 10
border_small 10
border_hide 10
top 10,my+40:left 10,mx+30
return

survol:
 timer_off 100
my=mouse_y_position(1):mx=mouse_x_position(1)
caption 0,str$(my)+"  /  "+str$(mx)
 timer_on 100
return

DIM n% , x%, my, mx, key
label show10
label survol
label click
form 10
border_hide 10
width 10,120 :height 10,80
key=0

LIST 1
LEFT 1,10 : TOP 1,10
WIDTH 1,200 : HEIGHT 1,200
FOR n%=1 TO 7 : ITEM_ADD 1,"Choix "+STR$(n%) : NEXT n%
 on_click 1,show10
command_target_is 10
main_menu 20

sub_menu 30: parent 30,20: caption 30,"Afficher le choix" : on_click 30,click
sub_menu 31:parent 31,20: caption 31,"Menu fictif 2    " : on_click 31,click
sub_menu 32:parent 32,20: caption 32,"Menu fictif 3    " : on_click 32,click
sub_menu 33:parent 33,20: caption 33,"Menu fictif 4    " : on_click 33,click
hide 10

timer 100:timer_interval 100,1:on_timer 100,survol
end

click:
 timer_off 100
if clicked(30)=1 then MESSAGE "Vous avez sélectionnez le choix "+STR$(ITEM_INDEX(1))
if clicked(31)=1 then MESSAGE "Vous avez sélectionnez le choix "+STR$(ITEM_INDEX(1))
if clicked(32)=1 then MESSAGE "Vous avez sélectionnez le choix "+STR$(ITEM_INDEX(1))
if clicked(33)=1 then terminate
hide 10
 timer_on 100
return

show10:
 timer_off 100
while key><2
key=0
while key=0
key=scancode
end_while
if key=2 then show 10

border_small 10
border_hide 10
top 10,my+40:left 10,mx+30
end_while
key=0
 timer_on 100
return

survol:
 timer_off 100
my=mouse_y_position(1):mx=mouse_x_position(1)
caption 0,str$(my)+"  /  "+str$(mx)
 timer_on 100
return