Re: how to find out which menu option is currently highlighted

Iwan AB <[email protected]> Sun, 4 Jun 2023 18:17:40 +0700
Newsgroups gmane.comp.lang.4gl.aubit.general
Message-ID <CAHJCSm+7HXg=uzf8LsSbE4Gu=64sT1qxLjuzsuKY8O=HO2ujew@mail.gmail.com>
--===============5704615359905694153==
Content-Type: multipart/alternative; boundary="000000000000dcc62405fd4bef88"

--000000000000dcc62405fd4bef88
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

Thanks for the solution. I will try it.

Regards,

Iwan

On Sun, Jun 4, 2023 at 6:06=E2=80=AFPM Mike Aubury <[email protected]> wrote:

> How would you trigger finding the value ?
> You can't just use arrows - they might press "Z" .
>
> I think for this particular use case - you're probably going to have to
> hand hack a sort of menu in 4gl (displays with REVERSE etc) without doing
> it all in a "MENU"..
>
>
> Something like :
>
> DEFINE lv_opt             INTEGER
> DEFINE lv_txt             ARRAY[26] OF CHAR(10)
>
>
>
> MAIN
>
>     LET lv_opt=3D1
>     LET lv_txt[1]=3D"A"
>     LET lv_txt[2]=3D"B"
>     LET lv_txt[3]=3D"C"
>     LET lv_txt[4]=3D"D"
>     LET lv_txt[5]=3D"E"
>     LET lv_txt[6]=3D"F"
>     LET lv_txt[7]=3D"G"
>     LET lv_txt[8]=3D"H"
>     LET lv_txt[9]=3D"I"
>     LET lv_txt[10]=3D"J"
>     LET lv_txt[11]=3D"K"
>     LET lv_txt[12]=3D"L"
>     LET lv_txt[13]=3D"M"
>     LET lv_txt[14]=3D"N"
>     LET lv_txt[15]=3D"O"
>     LET lv_txt[16]=3D"P"
>     LET lv_txt[17]=3D"Q"
>     LET lv_txt[18]=3D"R"
>     LET lv_txt[19]=3D"S"
>     LET lv_txt[20]=3D"T"
>     LET lv_txt[21]=3D"U"
>     LET lv_txt[22]=3D"V"
>     LET lv_txt[23]=3D"W"
>     LET lv_txt[24]=3D"X"
>     LET lv_txt[25]=3D"Y"
>     LET lv_txt[26]=3D"Exit"
>
>     OPTIONS MENU LINE FIRST
>
>     MENU ""
>
>         BEFORE MENU
>             CALL display_menu()
>
>         COMMAND KEY ("RIGHT")
>
>             IF lv_opt<26 THEN
>                 LET lv_opt=3Dlv_opt+1
>             ELSE
>                 LET lv_opt=3D1
>             END IF
>
>             CALL display_menu()
>
>             CONTINUE MENU
>
>         COMMAND KEY ("LEFT")
>
>             IF lv_opt>1 THEN
>                 LET lv_opt=3Dlv_opt-1
>             ELSE
>                 LET lv_opt=3D26
>             END IF
>
>             CALL display_menu()
>
>             CONTINUE MENU
>
>         COMMAND KEY ("enter")
>             DISPLAY "You clicked ",lv_txt[lv_opt]
>
>             SLEEP 1
>
>             IF lv_opt=3D26 THEN
>                 EXIT MENU
>             ELSE
>                 CONTINUE MENU
>             END IF
>
>          ON ACTION fgl_exit_menu
>             EXIT MENU
>
>     END MENU
>
> END MAIN
>
>
>
> FUNCTION display_menu ()
> DEFINE a                  INTEGER
> DEFINE x                  INTEGER
>
>     LET x=3D10
>
>     FOR a=3D1 TO 26
>
>         IF lv_opt=3Da THEN
>
>             # Must be on a different line because the menu
>             # blanks the width of the window
>             # could try putting the menu in a window
>             # or a prompt or something
>             # but - for a quick demo...
>             DISPLAY lv_txt[a] CLIPPED AT 2,x ATTRIBUTES(REVERSE)
>         ELSE
>             DISPLAY lv_txt[a] CLIPPED AT 2,x
>         END IF
>
>         IF lv_opt<=3D13 THEN
>             DISPLAY "DISPLAY FORM 1" AT 10,10
>         ELSE
>             DISPLAY "DISPLAY FORM 2" AT 10,10
>         END IF
>
>         LET x=3Dx+length(lv_txt[a])+1
>     END FOR
>
> END FUNCTION
>
>
> On Sun, 4 Jun 2023 at 11:22, Iwan AB <[email protected]> wrote:
>
>> Thanks for the quick response.
>> Here the use case. I would like to split a list of options that don't fi=
t
>> into one form into two forms, as follows:
>>
>> Form form1 with the following list of options
>>     A. OPTION A
>>     B. OPTION B
>>     C. OPTION C
>>     D. OPTION D
>>     E. OPTION E
>>     F. OPTION F
>>     G. OPTION G
>>     H. OPTION H
>>     I. OPTION I
>>     J. OPTION J
>>     K. OPTION K
>>     L. OPTION L
>>     M. OPTION M
>>
>> Form form2 with the following list of options
>>     N. OPTION N
>>     O. OPTION O
>>     P. OPTION P
>>     Q. OPTION Q
>>     R. OPTION R
>>     S. OPTION S
>>     T. OPTION T
>>     U. OPTION U
>>     V. OPTION V
>>     W. OPTION W
>>     X. OPTION X
>>     Y. OPTION Y
>>     Z. OPTION Z
>>
>> here is the code:
>>
>> OPEN FORM form2 WITH FORM "form2"
>> OPEN FORM form1 WITH FORM "form1"
>> DISPLAY FORM form1
>>
>> MENU "MENU"
>>    COMMAND "A" "OPTION A"
>>    COMMAND "B" "OPTION B"
>>    COMMAND "C" "OPTION C"
>>    COMMAND "D" "OPTION D"
>>    COMMAND "E" "OPTION E"
>>    COMMAND "F" "OPTION F"
>>    COMMAND "G" "OPTION G"
>>    COMMAND "H" "OPTION H"
>>    COMMAND "I" "OPTION I"
>>    COMMAND "J" "OPTION J"
>>    COMMAND "K" "OPTION K"
>>    COMMAND "L" "OPTION L"
>>    COMMAND "M" "OPTION M"
>>    COMMAND "N" "OPTION N"
>>    COMMAND "O" "OPTION O"
>>    COMMAND "P" "OPTION P"
>>    COMMAND "Q" "OPTION Q"
>>    COMMAND "R" "OPTION R"
>>    COMMAND "S" "OPTION S"
>>    COMMAND "T" "OPTION T"
>>    COMMAND "U" "OPTION U"
>>    COMMAND "V" "OPTION V"
>>    COMMAND "W" "OPTION W"
>>    COMMAND "X" "OPTION X"
>>    COMMAND "Y" "OPTION Y"
>>    COMMAND "Z" "OPTION Z"
>> END MENU
>>
>> when option N is highlighted, I want to display form2, and when option A
>> or option M is highlighted,
>> I want to display form1 again.
>>
>> Best regards,
>>
>> Iwan
>>
>> On Sun, Jun 4, 2023 at 2:21=E2=80=AFPM Mike Aubury <[email protected]> wrot=
e:
>>
>>> I don't think so, what's the use case?
>>>
>>> On Sun, 4 Jun 2023, 08:17 Iwan AB, <[email protected]> wrote:
>>>
>>>> Dear Mike,
>>>>
>>>> Is there a way to find out which menu option is currently highlighted?
>>>>
>>>> Best regards,
>>>>
>>>> Iwan
>>>> _______________________________________________
>>>> Aubit4gl-discuss mailing list
>>>> [email protected]
>>>> https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss
>>>>
>>> _______________________________________________
>> Aubit4gl-discuss mailing list
>> [email protected]
>> https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss
>>
>

--000000000000dcc62405fd4bef88
Content-Type: text/html; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

<div dir=3D"ltr">Thanks for the solution. I will try it.<div><br></div><div=
>Regards,</div><div><br></div><div>Iwan</div></div><br><div class=3D"gmail_=
quote"><div dir=3D"ltr" class=3D"gmail_attr">On Sun, Jun 4, 2023 at 6:06=E2=
=80=AFPM Mike Aubury &lt;<a href=3D"mailto:[email protected]">[email protected]</=
a>&gt; wrote:<br></div><blockquote class=3D"gmail_quote" style=3D"margin:0p=
x 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><d=
iv dir=3D"ltr">How would you trigger finding the value ?=C2=A0<div>You can&=
#39;t=C2=A0just use arrows - they might press &quot;Z&quot; .</div><div><br=
></div><div>I think for this particular use case - you&#39;re probably goin=
g to have to hand hack a sort of menu in 4gl (displays with REVERSE etc) wi=
thout doing it all in a &quot;MENU&quot;..<br><br><br>Something like :=C2=
=A0<br><br>DEFINE lv_opt =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 INTEGER<=
br>DEFINE lv_txt =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ARRAY[26] OF CHA=
R(10)<br><br><br><br>MAIN<br><br>=C2=A0 =C2=A0 LET lv_opt=3D1<br>=C2=A0 =C2=
=A0 LET lv_txt[1]=3D&quot;A&quot;<br>=C2=A0 =C2=A0 LET lv_txt[2]=3D&quot;B&=
quot;<br>=C2=A0 =C2=A0 LET lv_txt[3]=3D&quot;C&quot;<br>=C2=A0 =C2=A0 LET l=
v_txt[4]=3D&quot;D&quot;<br>=C2=A0 =C2=A0 LET lv_txt[5]=3D&quot;E&quot;<br>=
=C2=A0 =C2=A0 LET lv_txt[6]=3D&quot;F&quot;<br>=C2=A0 =C2=A0 LET lv_txt[7]=
=3D&quot;G&quot;<br>=C2=A0 =C2=A0 LET lv_txt[8]=3D&quot;H&quot;<br>=C2=A0 =
=C2=A0 LET lv_txt[9]=3D&quot;I&quot;<br>=C2=A0 =C2=A0 LET lv_txt[10]=3D&quo=
t;J&quot;<br>=C2=A0 =C2=A0 LET lv_txt[11]=3D&quot;K&quot;<br>=C2=A0 =C2=A0 =
LET lv_txt[12]=3D&quot;L&quot;<br>=C2=A0 =C2=A0 LET lv_txt[13]=3D&quot;M&qu=
ot;<br>=C2=A0 =C2=A0 LET lv_txt[14]=3D&quot;N&quot;<br>=C2=A0 =C2=A0 LET lv=
_txt[15]=3D&quot;O&quot;<br>=C2=A0 =C2=A0 LET lv_txt[16]=3D&quot;P&quot;<br=
>=C2=A0 =C2=A0 LET lv_txt[17]=3D&quot;Q&quot;<br>=C2=A0 =C2=A0 LET lv_txt[1=
8]=3D&quot;R&quot;<br>=C2=A0 =C2=A0 LET lv_txt[19]=3D&quot;S&quot;<br>=C2=
=A0 =C2=A0 LET lv_txt[20]=3D&quot;T&quot;<br>=C2=A0 =C2=A0 LET lv_txt[21]=
=3D&quot;U&quot;<br>=C2=A0 =C2=A0 LET lv_txt[22]=3D&quot;V&quot;<br>=C2=A0 =
=C2=A0 LET lv_txt[23]=3D&quot;W&quot;<br>=C2=A0 =C2=A0 LET lv_txt[24]=3D&qu=
ot;X&quot;<br>=C2=A0 =C2=A0 LET lv_txt[25]=3D&quot;Y&quot;<br>=C2=A0 =C2=A0=
 LET lv_txt[26]=3D&quot;Exit&quot;<br><br>=C2=A0 =C2=A0 OPTIONS MENU LINE F=
IRST<br><br>=C2=A0 =C2=A0 MENU &quot;&quot;<br><br>=C2=A0 =C2=A0 =C2=A0 =C2=
=A0 BEFORE MENU<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 CALL display_m=
enu()<br><br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 COMMAND KEY (&quot;RIGHT&quot;)<br=
><br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 IF lv_opt&lt;26 THEN<br>=C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 LET lv_opt=3Dlv_opt+1<=
br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ELSE<br>=C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 LET lv_opt=3D1<br>=C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0 =C2=A0 END IF<br><br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=
=A0 CALL display_menu()<br><br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 CO=
NTINUE MENU<br><br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 COMMAND KEY (&quot;LEFT&quot=
;)<br><br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 IF lv_opt&gt;1 THEN<br>=
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 LET lv_opt=3Dlv_opt=
-1<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ELSE<br>=C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 LET lv_opt=3D26<br>=C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 END IF<br><br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 CALL display_menu()<br><br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0=
 CONTINUE MENU<br><br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 COMMAND KEY (&quot;enter&=
quot;)<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 DISPLAY &quot;You click=
ed &quot;,lv_txt[lv_opt]<br><br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 S=
LEEP 1<br><br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 IF lv_opt=3D26 THEN=
<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 EXIT MENU<br>=
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 ELSE<br>=C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 CONTINUE MENU<br>=C2=A0 =C2=A0 =C2=A0 =C2=
=A0 =C2=A0 =C2=A0 END IF<br><br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0ON ACTION=
 fgl_exit_menu<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 EXIT MENU<br><b=
r>=C2=A0 =C2=A0 END MENU<br><br>END MAIN<br><br><br><br>FUNCTION display_me=
nu ()<br>DEFINE a =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0INTEGER<br>DEFINE x =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 =C2=A0INTEGER<br><br>=C2=A0 =C2=A0 LET x=3D10<br><br>=C2=A0 =C2=A0 F=
OR a=3D1 TO 26<br><br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 IF lv_opt=3Da THEN<br><br=
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 # Must be on a different line be=
cause the menu<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 # blanks the wi=
dth of the window<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 # could try =
putting the menu in a window<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 #=
 or a prompt or something<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 # bu=
t - for a quick demo...<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 DISPLA=
Y lv_txt[a] CLIPPED AT 2,x ATTRIBUTES(REVERSE)<br>=C2=A0 =C2=A0 =C2=A0 =C2=
=A0 ELSE<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 DISPLAY lv_txt[a] CLI=
PPED AT 2,x<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 END IF<br><br>=C2=A0 =C2=A0 =C2=
=A0 =C2=A0 IF lv_opt&lt;=3D13 THEN<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =
=C2=A0 DISPLAY &quot;DISPLAY FORM 1&quot; AT 10,10<br>=C2=A0 =C2=A0 =C2=A0 =
=C2=A0 ELSE<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 DISPLAY &quot;DISP=
LAY FORM 2&quot; AT 10,10<br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 END IF<br><br>=C2=
=A0 =C2=A0 =C2=A0 =C2=A0 LET x=3Dx+length(lv_txt[a])+1<br>=C2=A0 =C2=A0 END=
 FOR<br><br>END FUNCTION<br><br></div></div><br><div class=3D"gmail_quote">=
<div dir=3D"ltr" class=3D"gmail_attr">On Sun, 4 Jun 2023 at 11:22, Iwan AB =
&lt;<a href=3D"mailto:[email protected]" target=3D"_blank">[email protected]<=
/a>&gt; wrote:<br></div><blockquote class=3D"gmail_quote" style=3D"margin:0=
px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><=
div dir=3D"ltr"><div>Thanks for the quick response.</div>Here the use case.=
 I would like to split a list of options that don&#39;t fit into one form i=
nto two forms, as follows:<br><br>Form form1 with the following list of opt=
ions<br>=C2=A0 =C2=A0 A. OPTION A<br>=C2=A0 =C2=A0 B. OPTION B<br>=C2=A0 =
=C2=A0 C. OPTION C<br>=C2=A0 =C2=A0 D. OPTION D <br>=C2=A0 =C2=A0 E. OPTION=
 E<br>=C2=A0 =C2=A0 F. OPTION F<br>=C2=A0 =C2=A0 G. OPTION G<br>=C2=A0 =C2=
=A0 H. OPTION H<br>=C2=A0 =C2=A0 I. OPTION I<br>=C2=A0 =C2=A0 J. OPTION J<b=
r>=C2=A0 =C2=A0 K. OPTION K<br>=C2=A0 =C2=A0 L. OPTION L<br>=C2=A0 =C2=A0 M=
. OPTION M<br>=C2=A0 =C2=A0 <br>Form form2 with the following list of optio=
ns<br>=C2=A0 =C2=A0 N. OPTION N<br>=C2=A0 =C2=A0 O. OPTION O<br>=C2=A0 =C2=
=A0 P. OPTION P<br>=C2=A0 =C2=A0 Q. OPTION Q <br>=C2=A0 =C2=A0 R. OPTION R<=
br>=C2=A0 =C2=A0 S. OPTION S<br>=C2=A0 =C2=A0 T. OPTION T<br>=C2=A0 =C2=A0 =
U. OPTION U<br>=C2=A0 =C2=A0 V. OPTION V<br>=C2=A0 =C2=A0 W. OPTION W<br>=
=C2=A0 =C2=A0 X. OPTION X<br>=C2=A0 =C2=A0 Y. OPTION Y<br>=C2=A0 =C2=A0 Z. =
OPTION Z<br><br>here is the code:<br><br>OPEN FORM form2 WITH FORM &quot;fo=
rm2&quot;=C2=A0 =C2=A0=C2=A0<br>OPEN FORM form1 WITH FORM &quot;form1&quot;=
 =C2=A0 =C2=A0 <br>DISPLAY FORM form1<br><br>MENU &quot;MENU&quot;<br>=C2=
=A0 =C2=A0COMMAND &quot;A&quot; &quot;OPTION A&quot;<br>=C2=A0 =C2=A0COMMAN=
D &quot;B&quot; &quot;OPTION B&quot;<br>=C2=A0 =C2=A0COMMAND &quot;C&quot; =
&quot;OPTION C&quot;<br>=C2=A0 =C2=A0COMMAND &quot;D&quot; &quot;OPTION D&q=
uot;<br>=C2=A0 =C2=A0COMMAND &quot;E&quot; &quot;OPTION E&quot; =C2=A0 <br>=
=C2=A0 =C2=A0COMMAND &quot;F&quot; &quot;OPTION F&quot;<br>=C2=A0 =C2=A0COM=
MAND &quot;G&quot; &quot;OPTION G&quot;<br>=C2=A0 =C2=A0COMMAND &quot;H&quo=
t; &quot;OPTION H&quot;<br>=C2=A0 =C2=A0COMMAND &quot;I&quot; &quot;OPTION =
I&quot;<br>=C2=A0 =C2=A0COMMAND &quot;J&quot; &quot;OPTION J&quot;<br>=C2=
=A0 =C2=A0COMMAND &quot;K&quot; &quot;OPTION K&quot;<br>=C2=A0 =C2=A0COMMAN=
D &quot;L&quot; &quot;OPTION L&quot;<br>=C2=A0 =C2=A0COMMAND &quot;M&quot; =
&quot;OPTION M&quot; =C2=A0 <br>=C2=A0 =C2=A0COMMAND &quot;N&quot; &quot;OP=
TION N&quot;<br>=C2=A0 =C2=A0COMMAND &quot;O&quot; &quot;OPTION O&quot;<br>=
=C2=A0 =C2=A0COMMAND &quot;P&quot; &quot;OPTION P&quot;<br>=C2=A0 =C2=A0COM=
MAND &quot;Q&quot; &quot;OPTION Q&quot;<br>=C2=A0 =C2=A0COMMAND &quot;R&quo=
t; &quot;OPTION R&quot;<br>=C2=A0 =C2=A0COMMAND &quot;S&quot; &quot;OPTION =
S&quot;<br>=C2=A0 =C2=A0COMMAND &quot;T&quot; &quot;OPTION T&quot;<br>=C2=
=A0 =C2=A0COMMAND &quot;U&quot; &quot;OPTION U&quot; =C2=A0 <br>=C2=A0 =C2=
=A0COMMAND &quot;V&quot; &quot;OPTION V&quot;<br>=C2=A0 =C2=A0COMMAND &quot=
;W&quot; &quot;OPTION W&quot;<br>=C2=A0 =C2=A0COMMAND &quot;X&quot; &quot;O=
PTION X&quot; =C2=A0 <br>=C2=A0 =C2=A0COMMAND &quot;Y&quot; &quot;OPTION Y&=
quot;<br>=C2=A0 =C2=A0COMMAND &quot;Z&quot; &quot;OPTION Z&quot; =C2=A0 =C2=
=A0<br>END MENU<br><br>when option N is highlighted, I want to display form=
2, and when option A or option M is highlighted, <br>I want to display form=
1 again.<br><div><br></div><div>Best regards,</div><div><br></div><div>Iwan=
</div></div><br><div class=3D"gmail_quote"><div dir=3D"ltr" class=3D"gmail_=
attr">On Sun, Jun 4, 2023 at 2:21=E2=80=AFPM Mike Aubury &lt;<a href=3D"mai=
lto:[email protected]" target=3D"_blank">[email protected]</a>&gt; wrote:<br></di=
v><blockquote class=3D"gmail_quote" style=3D"margin:0px 0px 0px 0.8ex;borde=
r-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir=3D"auto">I don=
&#39;t think so, what&#39;s the use case?=C2=A0</div><br><div class=3D"gmai=
l_quote"><div dir=3D"ltr" class=3D"gmail_attr">On Sun, 4 Jun 2023, 08:17 Iw=
an AB, &lt;<a href=3D"mailto:[email protected]" target=3D"_blank">iw87cs@gma=
il.com</a>&gt; wrote:<br></div><blockquote class=3D"gmail_quote" style=3D"m=
argin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left=
:1ex"><div dir=3D"ltr">Dear Mike,<div><br></div><div>Is there a way to find=
 out which menu option is currently highlighted?<br></div><div><br></div><d=
iv>Best regards,</div><div><br></div><div>Iwan</div></div>
_______________________________________________<br>
Aubit4gl-discuss mailing list<br>
<a href=3D"mailto:[email protected]" rel=3D"noreferrer=
" target=3D"_blank">[email protected]</a><br>
<a href=3D"https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss" r=
el=3D"noreferrer noreferrer" target=3D"_blank">https://lists.sourceforge.ne=
t/lists/listinfo/aubit4gl-discuss</a><br>
</blockquote></div>
</blockquote></div>
_______________________________________________<br>
Aubit4gl-discuss mailing list<br>
<a href=3D"mailto:[email protected]" target=3D"_blank"=
>[email protected]</a><br>
<a href=3D"https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss" r=
el=3D"noreferrer" target=3D"_blank">https://lists.sourceforge.net/lists/lis=
tinfo/aubit4gl-discuss</a><br>
</blockquote></div>
</blockquote></div>

--000000000000dcc62405fd4bef88--


--===============5704615359905694153==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline


--===============5704615359905694153==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
Aubit4gl-discuss mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss

--===============5704615359905694153==--