----------------------------------------------
#include "inkey.ch"
procedure main
LOCAL wTipo := "T2", aTipo := {}
AADD(aTipo,{"Tipo 1","T1"})
AADD(aTipo,{"Tipo 2","T2"})
AADD(aTipo,{"Tipo 3","T3"})
//
SET( _SET_EVENTMASK, INKEY_ALL )
MSETCURSOR( .T. )
CLS
@ 05,40,10,70 GET wTipo LISTBOX aTipo CAPTION '&Tipo :' DROPDOWN
SCROLLBAR COLOR "W/N,B/W+,W/N,W+/B,W/N,N/W*,G/W*,N/G"
READ
RETURN
----------------------------------------------
Output in Clipper:
Tipo : Tipo 2 ▼
Output in Harbour:
Tipo : Tipo 2
The list box's drop-down buttonn not appear
TIA
Best Regards
GVS
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
