FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Panoramic et ses curiosités
par Jack Aujourd'hui à 8:15

» Synedit Parameters
par Klaus Aujourd'hui à 1:33

» Utilitaire de suppression de fichiers
par Yannick Hier à 23:03

» Code à vérifier SVP (Oups ! résolu)
par Jean Claude Jeu 22 Juin 2017 - 21:16

» Compilateur FBPano
par jean_debord Jeu 22 Juin 2017 - 9:56

» Bienvenue à Virtualalan !
par UltraVox Jeu 22 Juin 2017 - 9:18

» Concours de Morpions
par jjn4 Jeu 22 Juin 2017 - 0:04

» ShortName$(F) [Cloturé]
par papydall Mer 21 Juin 2017 - 16:19

» Remplacer espace par tiret dans noms des dossiers / fichiers
par papydall Mer 21 Juin 2017 - 15:27

» Menu personalisé avec icones et menu contextuel
par Laurent (Minibug) Mer 21 Juin 2017 - 12:44

» La liste des choses à faire ...
par Jack Mar 20 Juin 2017 - 22:49

» Quoi de neuf à propos de Goric 3D ? (@Jack)
par UltraVox Mar 20 Juin 2017 - 21:06

» Nom court et anti fenetre dos
par silverman Mar 20 Juin 2017 - 18:31

» Ludothèque Panoramic
par jjn4 Mar 20 Juin 2017 - 18:09

» Proposition à la communauté
par Yannick Mar 20 Juin 2017 - 15:02

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
CalendrierCalendrier

Partagez | 
 

 Menu Contextuel - Click de droite

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Laurent (Minibug)

avatar

Nombre de messages : 2344
Age : 50
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Menu Contextuel - Click de droite   Dim 11 Oct 2015 - 11:44

Bonjour a tous !

Je suis toujours dans la recherche et le développement de GPP.
je cherche régulièrement des possibilités pour améliorer mon outil.

Je vous en livre un, Il s'agit d'un clic droit a partir d'un LIST et un TIMER.
C'est simple mais ça fonctionne plutôt bien. Si vous avez des améliorations a m'apporter je suis preneur... Wink

Le fonctionnement :
Vous choisissez une option dans le LIST de départ
Ensuite vous faites un clic droit et vous choisissez
Si vous ne cliquez pas au bout de quelques secondes, le menu disparaît

Code:
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


Dernière édition par Minibug le Dim 11 Oct 2015 - 13:05, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2344
Age : 50
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Menu Contextuel - Click de droite   Dim 11 Oct 2015 - 12:59

Je viens de mettre a jour le programme

On peut ajouter une petite bande d'icones. C'est en fait une image.

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pascal10000

avatar

Nombre de messages : 494
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: Menu Contextuel - Click de droite   Dim 11 Oct 2015 - 14:56

minibug
j'ai déjà développé de menu contextuel je vais voir ça
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pascal10000

avatar

Nombre de messages : 494
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: Menu Contextuel - Click de droite   Dim 11 Oct 2015 - 16:09

essaye ça
mais au click suivant le message s'allume autant de fois
et je n'sais pas pourquoi j'ai pas trouver c comme si la commande
etait lu plusieur fois mais c mieu que rien

Code:
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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2344
Age : 50
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Menu Contextuel - Click de droite   Dim 11 Oct 2015 - 16:30

Merci Pascal !

Sauf que toi tu ne gére que le clic gauche.
Avec ma méthode, je gére la sélection au clic gauche et l'affichage du menu au clic droit !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
silverman

avatar

Nombre de messages : 444
Age : 45
Localisation : Picardie
Date d'inscription : 19/03/2015

MessageSujet: Re: Menu Contextuel - Click de droite   Dim 11 Oct 2015 - 17:03

pascal10000 a écrit:
mais au click suivant le message s'allume autant de fois
et je n'sais pas pourquoi j'ai pas trouver
c'est parceque quand l'objet a été cliqué, clicked(n)=1 et reste à 1. Il faudrait essayer avec la fonction 'number_click'
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Marc37



Nombre de messages : 441
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: Menu Contextuel - Click de droite   Dim 11 Oct 2015 - 20:31

Cool Minibug !
Merci et Bravo !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pascal10000

avatar

Nombre de messages : 494
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: Menu Contextuel - Click de droite   Lun 12 Oct 2015 - 8:09

essaye ça si ça te convient

Code:
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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2344
Age : 50
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Menu Contextuel - Click de droite   Lun 12 Oct 2015 - 15:16

Salut Pascal !

L'idée d'utiliser les SUB_MENU et MAIN_MENU est intéressante. C'est une idée a creuser effectivement. je vais tacher de m'en souvenir. Wink

Pour l'instant je suis parti sur une autre version avec icones que je vais intégrer a GPP.
Dans tous les cas je vous tiens au courant.

Encore merci pour tes idées Pascal. cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pascal10000

avatar

Nombre de messages : 494
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: Menu Contextuel - Click de droite   Lun 12 Oct 2015 - 18:40

minibug
le groupe de commande while te sera
certainement très utile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Menu Contextuel - Click de droite   

Revenir en haut Aller en bas
 
Menu Contextuel - Click de droite
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Outils au menu contextuel par Olive et PhoeniX_IDF
» Effet au passage de la souris, s'effectuant au click
» Personnaliser le menu démarrer avec NextStart
» probleme avec outlook express ou internet exploreur ?
» Optimisation Menu Contextuel Clic Droit

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: