On 17/07/2014 14:51, [email protected] wrote:
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.
