More Choices

There is various alternatives to get an user's choice besides RadioGroup.
One of them is the ListBox Control

@ 10, 10 LISTBOX List_1 ITEMS {'Option 1','Option 2','Option 3'}

Using a Listbox, you can add, change or remove items at runtime.

#include "minigui.ch"

PROCEDURE Main

DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 200 ;
TITLE 'Tutor 06 - ListBox Test' ;
MAIN

DEFINE MAIN MENU

POPUP "First Popup"

ITEM 'Change ListBox Value' ACTION Win_1.List_1.Value := 2

ITEM 'Retrieve ListBox Value' ACTION MsgInfo ( Str(Win_1.List_1.Value))

SEPARATOR

ITEM 'Add List Item' ACTION Win_1.List_1.AddItem ('New List Item')

ITEM 'Remove List Item' ACTION Win_1.List_1.DeleteItem (2)

ITEM 'Change List Item' ACTION Win_1.List_1.Item (1) := 'New Item Text'

ITEM 'Get List Item Count' ACTION MsgInfo (Str(Win_1.List_1.ItemCount))

END POPUP

END MENU

@ 10, 10 LISTBOX List_1 ITEMS {'Option 1','Option 2','Option 3'}

END WINDOW

ACTIVATE WINDOW Win_1

RETURN

MiniGui - (c) 2003-2005 Roberto Lopez
Extended version - MiniGUI Team (c) 2005-2024
(Grigory Filatov,Jacek Kubica,Janusz Pora,Pierpaolo Martinello, Ivanil Marcelino)
Edited by Janusz Pora & Sylvain Larche