Choose Funktion in an Choose Funktion

[Heino]

Hello all,

How can i create an choose function i a choose function?

[Spybot]

Hello Heino!

Did you mean something like this?



EXPORT Prog()
BEGIN
LOCAL VARIABLE_01,VARIABLE_02;
CHOOSE(VARIABLE_01,"TITLE",{"OPTION_01","OPTION_02","OPTION_03"});
CASE
IF VARIABLE_01==1 THEN MSGBOX("COMANDS_01") END;
IF VARIABLE_01==2 THEN MSGBOX("COMANDS_02") END;
IF VARIABLE_01==3 THEN CHOOSE(VARIABLE_02,"TITLE",{"OPTION_04","OPTION_05","OPTION_06"});
CASE
IF VARIABLE_02==1 THEN MSGBOX("COMANDS_04") END;
IF VARIABLE_02==2 THEN MSGBOX("COMANDS_05") END;
IF VARIABLE_02==3 THEN MSGBOX("COMANDS_06") END;
DEFAULT
END;
END;
DEFAULT
END;
END;

[Heino]

Hello Spybot,

thanks for your answer. That´s a good solution, but I search for another one.
See Screen1.

[petaks01]

Where did you get the screenshot from?
I guess the code behind it has some hints...

[kharpster]

(05-17-2015 07:10 PM)petaks01 Wrote:  Where did you get the screenshot from?
I guess the code behind it has some hints...

That looks like a system menu/sub menu and not a choose command. In so far I can tell we do not yet have the ability to create submenus in our programs.

[Heino]

Okay, you are right. But I have made my solution with Spybot's program.

Thank's all.

Heino

[John Colvin]

(05-17-2015 07:26 PM)kharpster Wrote:  

(05-17-2015 07:10 PM)petaks01 Wrote:  Where did you get the screenshot from?
I guess the code behind it has some hints...

That looks like a system menu/sub menu and not a choose command. In so far I can tell we do not yet have the ability to create submenus in our programs.

Sub menus can be created, but not in the cascaded style in the screenshot. I created a custom choose box popup menu with sub menus where the sub menu replaces the parent menu on the screen. I use it to consolidate some of my most used programs.
That isn't the cascaded style but probably the next best thing.

------------------------------------------------------------
lastunit:={0,0};

KEY K_Space()
BEGIN
local list1:={"Electrical Eng",
"Geometry","Deg2Rad",
"Rad2Deg",
"atan2","DTAG",
"Slope"};
local list2:={{"Parallel_Resistance",
"Coulomb","in"},
{"Area_circle",
"Vol_sphere",
"Area_cyl"}};
local c1,c2;
if lastunit(1) OR lastunit(2) then
c1:=lastunit(1); c2:=lastunit(2);
choose(c2,list1(c1),list2(c1));
else
c1:=0; c2:=0;
end;

if c2==0 then
repeat
choose(c1,"User Functions",list1);
if c1<3 then
choose(c2,list1(c1),list2(c1));
else

RETURN list1(c1);
end;
until c1==0 OR c2;
lastunit:={c1,c2};
end;

if c2 then
return(list2(c1,c2));
end;
END;
----------------------------------------------------------
This program is based on example that I believe Han posted a while back to a similar question that I had about nested popup menus.