>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 >>