fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2015-10-14 00:24 UTC+0200 Viktor Szakats (vszakats users.noreply.github.com)

Browse Source
This commit is contained in:
Alexey Myronenko
2015-10-27 15:40:32 +02:00
parent 2a743e15e1
commit f7cb8a441d
3 changed files with 26 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
tests/achoice5.prg Normal file
View File

@@ -0,0 +1,17 @@
#include "inkey.ch"
PROCEDURE Main()
LOCAL nb
// hb_keyPut( { K_END, K_END, K_UP, K_HOME } ) // Visual glitch
// hb_keyPut( { K_CTRL_END, K_CTRL_END, K_CTRL_HOME } ) // RTE
CLS
nb := 20
DispBox( 4, 9, nb + 1, 51,, "W+/B,N/BG" )
AChoice( 5, 10, nb, 50, ;
{ "menu 1", "menu 2", "menu 3", "menu 4", "menu 5", "menu 6", "menu 7", "menu 8", "menu 9", "menu 10" }, ;
{ .T., .T., .T., .T., .F., .F., .F., .T., .F., .F. } )
RETURN