¿Hay alguna manera de usar HIDE () para obtener el "spinner get" para obtener un get normal?
en tiempo de ejecución
gracias...
lTrocaGet := .F.
@ 060,010 CHECKBOX lTrocaGet PROMPT "Troca Get" SIZE 45,9 PIXEL ON CLICK TrocaGet() OF oDlg
nGet := 30
@ 070,010 GET oGet VAR nGet SIZE 050,16 PIXEL SPINNER MIN 30 MAX 500 OF oDlg
FUNCTION TrocaGet()
oGet:End()
IF lTrocaGet
//Sem Spinner
oGet := TGet():New( 070, 100, { | u | If( PCount()==0, nGet, nGet:= u ) }, oDlgFun3, 050, 16,,,,,, .F.,, .T.,, .F.,, .F., .F.,, .F., .F., .F.,, .T.,,,,,,, "oGet", )
ELSE
//Com Spinner
oGet := TGet():New( 070, 100, { | u | If( PCount()==0, nGet, nGet:= u ) }, oDlgFun3, 050, 16,,,,,, .F.,, .T.,, .F.,, .F., .F.,, .F., .F., .F.,, .T.,,, {|| 30}, {|| 500},,, "oGet", )
ENDIF
oGet:Refresh()
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 40 guests