Nope. Checking it out now. I see you recommended it to Kurt last year
too! http://leafe.com/archives/msg/482995
Thanks!
--Mike
On 2014-07-17 09:53, Richard Kaye wrote:
Have you looked into using Andrew Ross MacNeil's GenmenuX?
--
rk
-----Original Message-----
From: ProfoxTech [mailto:[email protected]] On Behalf Of
[email protected]
Sent: Thursday, July 17, 2014 9:52 AM
To: [email protected]
Subject: Re: Trying to dynamically add menu item and contents at
runtime
On 2014-07-17 04:22, Laurie Alvey wrote:
I think you have to do it like this:
DEFINE PAD mypad OF _MSYSMENU......
ON PAD mypad OF _MSYSMENU ACTIVATE POPUP mypopup DEFINE POPUP mypopup
MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF mypopup PROMPT
"\<Do Something"
ON SELECTION BAR 1 OF mypopup do form dosomething.scx
Laurie
Hi Laurie,
I've got it working now with the code below, but rather than have it
appended to the far right (last) column, I need to learn now how to
reposition it so it's the FIRST menu item. Having it to the right of
my Exit menu item (from the regularly IDE-built menu) just looks
wrong.
*** mjb 07/15/2014 - create menu dynamically (thanks ProFox for
help!)
DEFINE PAD _4461bpo4m OF _MSYSMENU PROMPT "\<Location" COLOR
SCHEME
3 KEY ALT+L, ""
ON PAD _4461bpo4m OF _MSYSMENU ACTIVATE POPUP location
DEFINE POPUP location MARGIN RELATIVE SHADOW COLOR SCHEME 4
loBiz.GetNailerLocations("curNailerLocations")
SELECT curNailerLocations
SCAN
liCnt = CNTBAR("Location")
lcCmd = [DEFINE BAR ] + ALLTRIM(STR(liCnt+1)) + [ OF
Location
PROMPT "] + ALLTRIM(curNailerLocations.cDescription) + ["]
&lcCmd
lcCmd = [ON SELECTION BAR ] + ALLTRIM(STR(liCnt+1)) + [
OF Location
oUtils.SetLocation("] + ALLTRIM(curNailerLocations.cLocID) + [")]
&lcCmd
lcCmd = [SET MARK OF BAR ] + ALLTRIM(STR(liCnt+1)) + [
OF Location
TO (oUtils.cLocationID = "] + ALLTRIM(curNailerLocations.cLocID) +
[")]
&lcCmd
ENDSCAN
ON PAD _4461bpo4m OF _MSYSMENU ACTIVATE POPUP location
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
