HIGHLIGHTED MESSAGE ABOVE MENU BAR

[Guest_imported]

Dear Friends,

Please, I would like to know how I do a "message display
highlited bar" above the menu bar options, for example,
when the menu move it, also the highlighted message move it.

ex.


OPEN >>
SAVE
QUIT



Open, Save, or Print a file; Quit system

 

[HotEye]

I'm not sure if this is what you want, but it comes from Clipper's Norton guide:

This example displays a lightbar menu with the associated
messages displayed on the next line. When the user presses Return, the position of the item in the list of menu items is assigned to nChoice:


LOCAL nChoice := 1
SET WRAP ON
SET MESSAGE TO 2
@ 1, 3 PROMPT "File" MESSAGE "Access data files"
@ ROW(), COL() + 2 PROMPT "Edit" ;
MESSAGE "Edit current record"
MENU TO nChoice




This example shows how to pass the MESSAGE clause a code block which calls a user-defined function that displays a message in a different color:


SET COLOR TO gr+/b,r+/n
SET MESSAGE TO 23 // This is necessary.
CLEAR SCREEN

@ 3,4 PROMPT "one " MESSAGE {||UDF("Message One &quot}
@ 4,4 PROMPT "two " MESSAGE {||UDF("Message Two &quot}
@ 5,4 PROMPT "three" MESSAGE {||UDF("Message Three&quot}

MENU TO test

FUNCTION UDF(cParm)
cOldColor := SETCOLOR("w+/n&quot
@ 22,1 SAY cParm // Must be different row than the
// SET MESSAGE TO nRow
SETCOLOR(cOldColor)
RETURN "" // Character string must be returned