I want to place on the form menu, which should look and work like old ACHOICE function.
I've tried to use grid or listbox::
Code: Select all
aMenuMain := {;
{"Opcja 1"} , ;
{"Opcja 2"} , ;
{"Opcja 3"} ,;
{"Opcja 4"} ,;
{"Opcja 5"} }
aMenuList := {"Opcja1","Opcja 2", "Opcja 3", "Opcja4", "Opcja 5", "Opcja 6", "Opcja 7", "Opcja 8", "Opcja 9", "Opcja 10", "Opcja 11" }
@ 10,10 GRID Grid_1 ;
WIDTH 400 ;
HEIGHT 20*(len(aMenuMain)+1) ;
HEADERS {'MENU MAIN'};
ITEMS aMenuMain ;
WIDTHS {400};
COLUMNCONTROLS { aCtrl_1 } ;
On DblClick WyborOpcji()
@ 10,500 LISTBOX L_1 ;
WIDTH 200 ;
HEIGHT 20*(len(aMenuList)) ;
ITEMS aMenuList;
FONT "ARIAL CE" SIZE 11;
On DblClick WyborZListy()
But - at right side scrollbar always appears - I don't want it.
Has anybody any idea (or working code) how to realise it?
Best regards, Marek