Information générale
Titre:
Popup - FPD vs. FPW
I have migrated a FP DOS application to FPW. I'm getting a strange error when using popups. The code, which worked fine in FPD, generates a "Bo bars defined for this popup error" when run under FPW. Here is a sample of the code I am using:
DEFINE POPUP srcpop ;
FROM 01,01 TO 12,55 ;
PROMPT FIELD srcid+' '+CHR(179)+;
' '+ srcdsc ;
SCROLL SHADOW MARGIN ;
TITLE 'Source List' ;
FOOTER 'Ctrl-N to Add'
ON SELECTION POPUP srcpop DEACTIVATE POPUP srcpop
mconfirm=SET("CONFIRM")
SET CONFIRM ON
IF g_privs >= 30
ON KEY LABEL CTRL+N DO addsrc
ELSE
ON KEY LABEL CTRL+N ;
WAIT WINDOW NOWAIT ;
'Not authorized to this function'
ENDIF
ACTIVATE POPUP srcpop REST
SET CONFIRM &mconfirm
ON KEY LABEL CTRL+N
IF LASTKEY() <> 27 && ESC key
p_src = src.srcid
ELSE
rtnval=.F.
ENDIF
RELEASE POPUP srcpop
Dennis Agosta
Duke Communications International
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement