Function Prueba()
Local GetList := {}, Lo_Get, Lc_Col := 'Gb/B,W+/B,B/Gb,W/B,B/W,W/B'
Cls
Lo_Get := CuaGet():New( 5, 10, Space(40), 'No&mbre :', Lc_Col, '@!' ):Display()
Aadd( GetList, Lo_Get )
Lo_Get := CuaGet():New( 7, 10, 0, 'Eda&d :', Lc_Col, '999999.99' ):Display()
Aadd( GetList, Lo_Get )
Lo_Get := Check():New( 9, 10, .T., '&Uno', Lc_Col ):Display()
Aadd( GetList, Lo_Get )
Lo_Get := Check():New( 9, 30, .F., 'Do&s', Lc_Col ):Display()
Aadd( GetList, Lo_Get )
Lo_Get := Radio():New( 11, 10, 3, '&Estudios',{'Pre-Escolar','Primaria','Secundaria','Superior','Profecional'}, Lc_Col ):Display()
Aadd( GetList, Lo_Get )
Lo_Get := ListBox():New( 12, 40, 'Pre-Escolar','&Estudios',{'Pre-Escolar','Primaria ','Secundaria ','Superior ','Profecional'}, Lc_Col, 4 , 15 ):Display()
Aadd( GetList, Lo_Get )
Lo_Get := Combo():New( 18, 10, 'Pre-Escolar','&Estudios',{'Pre-Escolar','Primaria ','Secundaria ','Superior ','Profecional'}, Lc_Col, '@!', 7 ):Display()
Aadd( GetList, Lo_Get )
Lo_Get := Button():New( 20, 10, ' &Guardar ', Lc_Col ):Display()
Aadd( GetList, Lo_Get )
Lo_Get := Button():New( 20, 30, ' &Salir ', Lc_Col ):Display()
Aadd( GetList, Lo_Get )
ReadModal( GetList )
Return( Nil )
ya que no esta completo lo demas.
alquien tiene un ejemplo funcional similar a este que pueda reproducir, usado GetList y adicionado a la lista GET, ListBox y Botones etc, para usarlo con Harbour