Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problems with Popups?
Message
De
29/07/2002 16:00:55
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00683169
Message ID:
00683679
Vues:
29
>>Hi all,
>>I have some popups created with DEFINE POPUP PROMPT FIELD.
>>I'm having hard time with them in VFP7, they run fine in VF5 but in VFP7 it is like the froze.
>>Is this a known problem?
>
>Hi Maria,
>
>Can you post some code that illustrates the problem?

It was something simple like this:
PROCEDURE GetGender
   PARAMETERS lcGender
   PRIVATE lnActualWA,lnBar
   lnActualWA = SELECT()
   
   CREATE CURSOR cGenderPopup (todisp c(15), ccode c(1))
   INSERT INTO cGenderPopup (todisp,ccode) VALUES ("Unknown"," ")
   INSERT INTO cGenderPopup (todisp,ccode) VALUES ("Male","M")
   INSERT INTO cGenderPopup (todisp,ccode) VALUES ("Female","G")

   LOCATE FOR cGenderPopup.ccode = lcGender
   IF FOUND()
      lnBar = RECNO()
   ELSE
      lnBar = 1
   ENDIF

   DEFINE POPUP popGender PROMPT FIELD todisp ;
      TITLE 'SELECT Gender'
   ON SELECTION POPUP popGender DEACTIVATE POPUP popGender
   ACTIVATE POPUP popGender BAR lnBar REST AT ROW(),COL()

   RELEASE POPUP popGender EXTENDED
   lcGender = cGenderPopup.ccode
   USE
   SELECT(lnActualWA)

   RETURN lcGender
It is working fine now but it was freezing in VFP7.
I did some changes though, the original code named "desc" the description field.
"Desc" is a reserved word, so perhaps that was causing VFP7 to get confused.
However, I have seen the same behavior with popups in the VFP UI (i.e. the "field order" popup when modifying structure).
Thanks anyway.
Maria E. Zambrano
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform