Mensaje
General information
Foro:
Visual FoxPro
Category:
FoxPro 2.x
Título:
Subject: set skip to bar problem FPD25
Miscellaneous
ID de la conversación:
00524164
ID del mensaje:
00524164
Views:
81
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
Responder
Mapa
Ver