Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Subject: set skip to bar problem FPD25
Message
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Title:
Subject: set skip to bar problem FPD25
Miscellaneous
Thread ID:
00524164
Message ID:
00524164
Views:
78
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
___________________________________________
Next
Reply
Map
View

Click here to load this message in the networking platform