Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Trouble getting picture into menu
Message
 
 
To
14/01/2003 18:46:18
General information
Forum:
Visual FoxPro
Category:
Menus & Menu designer
Miscellaneous
Thread ID:
00741668
Message ID:
00741709
Views:
21
Hi Rob,

You hit a big in GenMenu.prg. To work around it chage code in Skip For box to
1=2 picture "C:\testapp\test.bmp"
Or you can edit GenMenu.prg and replace addskipfor function with
FUNCTION addskipfor
PRIVATE m.skip
LOCAL lcWord1, lcWord2
m.skip = skipfor
IF NOT EMPTY(skipfor)
	lcWord1 = UPPER(GETWORDNUM(ALLTRIM(m.skip),1))
	lcWord2 = UPPER(GETWORDNUM(ALLTRIM(m.skip),2))
	IF lcWord1==".F." AND !EMPTY(lcWord2) AND !INLIST(lcWord2,"AND",".AND.","OR",".OR.")
       m.skip = ALLTRIM(STREXTRACT(m.skip,".F.","",1,1))
       IF !EMPTY(m.skip)
	   \\ ;
	   \	<<m.skip>>
	   ENDIF
   ELSE		
	   \\ ;
	   \	SKIP FOR <<m.skip>>
   ENDIF
ENDIF
If you've SKIP FOR expression already just add picture clause after space. For Example,
* SKIP FOR Before
TYPE("glVar")="L" And glVar  
* SKIP FOR After
TYPE("glVar")="L" And glVar picture "path\bmp"
Don't try to verify expression in the expression builder because it isn't valid expression, but it works anyway. :)

>Sergey,
>Thanks for the quick response. When I use the skip for and enter for example
>.F. picture "C:\testapp\test.bmp" I don't get any picture. Also if I 'verify' from the expression builder I get syntax error. And as a side note some of my menu items already use the skip for clause. Would I just add an AND clause then the .F. picture "path\bmp"
>
>Thanks
>Rob Vaught
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform