Bueno pues sigo investigando con esta librería de FWH.
Me encuentro con un problema y no se como resolverlo, vereis quiero crear un array con 10 checkbox y no se como se hace.
Code: Select all
#include "fivewin.ch"
function main()
local oDlg
local cId := space( 10 )
local cPass := space( 10 )
local oBtn
local fila:=5
local oCheck,valor,a
define dialog oDlg pixel size 400,400
@ 01,01 Get oGetn var cId pixel of oDlg
@ 20,01 Get oGetP var cPass Password pixel of oDlg ;
on change( if( empty( oGetP:oGet:Buffer ), oBtn:Disable(), oBtn:Enable() ) )
@ 40,01 button oBtn prompt "OK" of oDlg pixel ACTION MsgInfo( "click" )
oBtn:Disable()
for a=1 to 10
@ fila+a, 2 checkbox oCheck var valor prompt "este es el elemento "+alltrim(str(a))
next
for a=1 to 1
valor:=.t.
oCheck:refresh()
next
activate dialog oDlg
return nil
Me podeis ayudar, no se como seguir
Gracias de antemano.