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