FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Tira spinner del get
Posts: 88
Joined: Wed Apr 28, 2010 06:34 PM
Tira spinner del get
Posted: Tue Sep 25, 2012 05:21 PM

¿Hay alguna manera de usar HIDE () para obtener el "spinner get" para obtener un get normal?

en tiempo de ejecución

gracias...

Posts: 226
Joined: Sun May 13, 2012 07:52 AM
Re: Tira spinner del get
Posted: Tue Sep 25, 2012 11:51 PM

spinner ser um objeto, usando hide vc esconde o objeto spinner.
acho q vc deveria usar um get com 2 botoes do lado, ai vc teria o controle de ocultar ou nao os botoes.

FWH2008 | xHarbour | BCC74 | SQLRDD
Posts: 88
Joined: Wed Apr 28, 2010 06:34 PM
Re: Tira spinner del get
Posted: Wed Sep 26, 2012 10:54 AM

Entendi...vou ver como resolvo isso, muito obrigado.

Posts: 88
Joined: Wed Apr 28, 2010 06:34 PM
Re: Tira spinner del get
Posted: Fri Sep 28, 2012 11:27 AM
com RECURSOS não tem como vc eliminar o controle e não tem como mudar em tempo de execução, a não ser criando dois controles e usando hide(), agora com @ l,c consegui desta forma:

Code (fw): Select all Collapse
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()

Continue the discussion