FiveTech Support Forums

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