[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
FUNCTION RAT_MENU2() *changed*
Short:
------
RAT_MENU2() Mouseable MENU TO emulation
Returns:
--------
<nSelected> => selected menu option, 0 for none
Syntax:
-------
RAT_MENU2(aOptions,[nStart],[lImmediate],[bMouse])
Description:
------------
You must pass an array of arrays, with each element
being an array in the form {nRow,nColumn,cPrompt} which
correspond to [ @nRow,nCol PROMPT cPrompt. ]
[nStart] is an optional starting prompt, with the
default being 1
[lImmediate] refers to the action taken when a first
letter or a mouse click changes options. The default is to have
immediate action - select and return. By passing False, it
becomes a 2 step process, requiring click-click or
firstletter-firstletter to select and return.
[bMouse] is an optional codeblock for mouse clicks. If the
mouse click does not satisfy RAT_MENU2(), and there is a
[bMouse] codeblock, it will be evaluated as follows:
eval(bMouse,mouserow, mousecol)
Examples:
---------
local aOptions := { ;
{23,2 , 'Add'},;
{23,9 , 'Open'},;
{23,17 , 'Delete'},;
{23,27 , 'Change Date'},;
{23,42 , 'Output list'},;
{23,57 , 'Purge '},;
{23,74 , 'Quit'}}
nSelected := RAT_MENU2(aOptions,4,.f.,{|r,c| checkmouse(r,c) })
Source:
-------
S_RMENU2.PRG
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson