Tira spinner del get

Tira spinner del get

Postby aferra » Tue Sep 25, 2012 5:21 pm

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

en tiempo de ejecución

gracias...
aferra
 
Posts: 88
Joined: Wed Apr 28, 2010 6:34 pm

Re: Tira spinner del get

Postby Sistem » 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
User avatar
Sistem
 
Posts: 226
Joined: Sun May 13, 2012 7:52 am

Re: Tira spinner del get

Postby aferra » Wed Sep 26, 2012 10:54 am

Entendi...vou ver como resolvo isso, muito obrigado.
aferra
 
Posts: 88
Joined: Wed Apr 28, 2010 6:34 pm

Re: Tira spinner del get

Postby aferra » 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: Select all  Expand view  RUN

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()
 
aferra
 
Posts: 88
Joined: Wed Apr 28, 2010 6:34 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 86 guests