refresh on get
Posted: Sat Apr 09, 2011 9:18 am
I not found the error for this simply test
I want refresh the oget[1]
but it make error
I want refresh the oget[1]
but it make error
Code: Select all
Function Test()
LOCAL oDlg
Local cPassw:=space(20)
Local nLunghezza :=6
Local aGet[2]
DEFINE DIALOG oDlg ;
TITLE " GENERATE RANDOM PASSWORD"
@ 2,1 SAY " Password :" OF oDlg
@ 2,7 GET aGet[1] VAR cPassw OF oDlg SIZE 40,10 UPDATE
@ 4,1 SAY " Lunghezza:" OF oDlg
@ 4,7 GET aGet[2] VAR nLunghezza SIZE 16,10 SPINNER MIN 1 MAX 20 OF oDlg PICTURE "99"
@ 2,17 BUTTON "..." SIZE 10,10 OF oDlg ACTION Genera_Password(nLunghezza,cPassw,aGet[1])
ACTIVATE DIALOG oDlg ;
on INIT aGet[2]:nHeight:=21.4
RETURN NIL
Function Genera_Password(nLarghezza,cPassw,aGet)
LOCAL cPass := ""
LOCAL aPwd := {}
LOCAL n, c, i, lRet := .T.
cPass:="eee"
aGet[1]:cText :=alltrim( cPass)
aGet[1]:refresh()
RETURN NIL