Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Subject: set skip to bar problem FPD25
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
FoxPro 2.x
Titre:
Subject: set skip to bar problem FPD25
Divers
Thread ID:
00524164
Message ID:
00524164
Vues:
79
Subject: set skip to bar problem FPD25

I am not able to set skip to the bar using the following, individually the
strings I pass to the function are right. The defined popup still stays the
same as if none were skip=.T.

Thus I passed a NOT expr to the same and I get results of the NOT being
grayed but as soon as I use the arrow key it is allowed to be used and
highlighted and the skip goes away.

My function does the following and accepts the following parameters (ignore
the ones that are not used here it is just for other functionality put in)

PARAMETERS m.zhlpdbf, m.zhlptag, m.zpromptstr, m.zhlpvar, m.zhlplen,
m.zfiltstr, m.znoshowcode, m.zsetskip

***
***

DEFINE POPUP helppopup ;
MARGIN ;
PROMPT FIELD &zpromptstr. ;
COLOR SCHEME 4

m.helpheight = 7
m.helpwidth = LEN(&zpromptstr.) + 4 - IIF(m.znoshowcode, m.zhlplen + 1,

DEFINE WINDOW helpwindow ;
FROM INT((SROW() - m.helpheight) / 2), MAX(0, INT((SCOL() -
m.helpwidth) / 2)) ;
TO INT((SROW() - m.helpheight) / 2) + m.helpheight - 1, ;
INT((SCOL() - m.helpwidth) / 2) + m.helpwidth - 1 ;
NONE ;
NOCLOSE ;
NOFLOAT ;
NOGROW ;
SHADOW ;
NOZOOM
ACTIVATE WINDOW helpwindow

@ 0, 0 GET m.zarrayno ;
POPUP helppopup ;
SIZE m.helpheight, m.helpwidth

IF m.zsetskip
FOR m.zi = 1 TO CNTBAR("helppopup")
m.zskip = &zfiltstr.

SET SKIP OF BAR m.zi OF helppopup m.zskip
ENDFOR
ENDIF

READ MODAL

RELEASE WINDOW helpwindow


Your Faithfully

Bhavbhuti Nathwani
Regards
Bhavbhuti
___________________________________________
Softwares for Indian Businesses at:
http://venussoftop.tripod.com
___________________________________________
venussoftop@gmail.com
___________________________________________
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform