Forum AtoutFox : DEFINE POPUP : petit détail grosse galère   

mer. 30 décembre 2015, 22h25
Jean à Grenoble
atoutfox.public.association

DEFINE POPUP : petit détail grosse galère

Bonjour à tous,

dans un écran de mon appli de gestion d'école, j'ai une zone textbox qui me
permet de sélectionner une famille. dans le clic-droit de cette zone, je créai
un menu POPUP qui contenait les 30 dernières familles traitées (cela permettait
de reprendre une famille facilement). Je voudrai mettre plus de fonctions dans
ce clic-droit et donc je voulai créer un premier menu POPUP avec une liste
d'opérations dont la premières serait "dernières familles traitées" et à
l'activation de cette BAR, je voulai créer un deuxième POPUP 'en cascade' : tout
fonctionne sauf que ce deuxième menu ne s'affiche pas au bon endroit (alors que
le premier si) : il s'affiche à l'extrème gauche de l'écran de l'ordinateur hors
de la fenêtre principale de VFP et sous la barre des taches (que j'ai positionné
à gauche). J'ai tout essayé durant toute cette journée !

Si quelqu'un à une idée !

voici le code du right-clic :

LOCAL lnbarre, lnaccu, lnselection, lctitre, lcmoe, lcmof, lcaccu, loaccu, ;
  lnnbderfam, lnmaxlong, lnbarre2 AS Number, lnselectderfam AS Number, ;
  lnposousmen AS Number

DODEFAULT()
WAIT CLEAR
* ce menu s'affiche coorectement au bon endroit :
DEFINE POPUP raccourci SHORTCUT SHADOW FROM MROW(0),MCOL(0) ;
   TITLE "menu complémentaire" ;
   FONT "Courier New", 12 STYLE "B" ;
   MESSAGE "sélectionnez l'option qui vous convient !"
STORE 0 TO lnselection, lnselectderfam, lnbarre2
lnnbderfam = m.go_dernieres_familles.coll.count && jme 28/03/2011
DEFINE BAR 1 OF raccourci PROMPT "dernières familles traitées" ;
  SKIP FOR m.lnnbderfam = 0
DEFINE BAR 2 OF raccourci PROMPT thisForm.libelles(83) SKIP FOR .T.
   &&liste de tous les parents
DEFINE BAR 3 OF raccourci PROMPT thisForm.libelles(84) SKIP FOR .T.
   && "Aide à la saisie"
DEFINE BAR 4 OF raccourci PROMPT thisForm.libelles(85)
   &&"recherche sur une partie du nom, du téléphone, ..."
DEFINE BAR 5 OF raccourci PROMPT thisForm.libelles(87) && "Retour"

DEFINE POPUP derfam MARGIN SHORTCUT FONT "Courier New", 12  STYLE "B" ;
  FROM 2, 40 ; && ce FROM n'a aucune influence !!!!!!
  TITLE "dernières familles traitées"
IF m.lnnbderfam > 0
   m.go_dernieres_familles.coll.keysort = 2  && clef ascendante
   lnbarre2 = 1
   FOR EACH m.loaccu IN m.go_dernieres_familles.coll FOXOBJECT
     DEFINE BAR m.lnbarre2 OF derfam PROMPT LEFT(m.loaccu.texte, 20)
     lnbarre2 = m.lnbarre2 + 1
   NEXT && EACH m.loaccu IN m.go_dernieres_familles.coll FOXOBJECT
ENDIF && m.go_dernieres_familles.coll.count > 0

ON SELECTION POPUP raccourci lnselection = BAR()
ON BAR 1 OF raccourci ACTIVATE POPUP derfam && AT MROW(0), m.lnposousmen
ON SELECTION POPUP derfam lnselectderfam = BAR()
ACTIVATE POPUP raccourci
lcaccu = ""
DO CASE
CASE m.lnselection = 0
   ...

ENDCASE
RELEASE POPUP derfam
RELEASE POPUP raccourci

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017039