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
Miscellaneous
Thread ID:
00524164
Message ID:
00524467
Views:
11
>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

It's hard to help you w/o knowing what actual values you are passing into this routine. Can you provide an example of a code that calls this routine.
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform