Jump to content
Fivewin Brasil

Varios Gets Invisiveis


fabin01

Recommended Posts

Bom dia Pessoal...

é o seguinte tenho 12 gets e 3 botoes queria saber se para deixa-los invisiveis vou terque colocar no on init cada um como hide.. exemplo: ...on init oGet[1]Hide():,oGet[2]:hide()...obtn1:hide() ou tem como pelo menos os gets eu colocar todos eles de uma vez invisiveis vamo supor oGet[Geral]:hide()..obtn1:hide()...

entenderam minha duvida

valews

Obrigado pela ATENÇÃO e AJUDA!

"O homem deve criar as oportunidades e não somente encontrá-las."

Fábio Igor (BH-MG)

fabio.igor@hotmail.com

Iniciante

FWH 2.8

[x]Harbour 9.61

xdev 0.70

Pelles C

Link to comment
Share on other sites

Bom dia Pessoal...

é o seguinte tenho 12 gets e 3 botoes queria saber se para deixa-los invisiveis vou terque colocar no on init cada um como hide.. exemplo: ...on init oGet[1]Hide():,oGet[2]:hide()...obtn1:hide() ou tem como pelo menos os gets eu colocar todos eles de uma vez invisiveis vamo supor oGet[Geral]:hide()..obtn1:hide()...

entenderam minha duvida

valews

Obrigado pela ATENÇÃO e AJUDA!

"O homem deve criar as oportunidades e não somente encontrá-las."

Fábio Igor (BH-MG)

fabio.igor@hotmail.com

Iniciante

FWH 2.8

[x]Harbour 9.61

xdev 0.70

Pelles C

Link to comment
Share on other sites

Mas se vc. não quiser tudo no On init desvie para uma function


Activate Dialog odlg...

On init SomeGet(oget)

Function SomeGet(oget)

oget[1]:hide()

oget[2]:hide()

OGET[3]:HIDE()

etc...

return .t.

id=code>id=code>

Que tb. funciona..

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

ico.corumba@gmail.com

--

Não Abandone Seu Tópicoid=red>

Link to comment
Share on other sites

citação:

Vc. deve estar usando uma dialog que já usa em outro lugar né ???

é exactamente como vc. disse, fazer um a um, se tem outro jeito desconheço..

Luiz Arruda - Corumba(MS)

FiveWin 9.04

[x]Harbour

xDev

WS

--

ico.corumba@gmail.com

--

Não Abandone Seu Tópicoid=red>


id=quote>id=quote>

quase isso é pq vou fazer o seguinte...

tenho umas radiobuttons na tela ai fiz um grupo de editbox para cada uma ai de inicio quero que todas estejam invisiveis ai quando a radiobutton estiver selecionada aperce o grupo de editbox correspondente entendeu...

posso fazer um if na dialog que consigo sem problemas??

exemplo if cradio1 == 1 oGet[x]:show()

poderia fazer assim?

valews

Obrigado pela ATENÇÃO e AJUDA!

"O homem deve criar as oportunidades e não somente encontrá-las."

Fábio Igor (BH-MG)

fabio.igor@hotmail.com

Iniciante

FWH 2.8

[x]Harbour 9.61

xdev 0.70

Pelles C

Link to comment
Share on other sites

Ve se ajuda ai:

Eh soh vc trocar o Enable por Show() e o Disable por Hide().


DEFINE DIALOG oDlg RESOURCE "FIL_NFE"

*****--- RADIO ---**************************************************************

REDEFINE RADIO oRadMenu VAR nOpcao ID 501, 502, 503, 504, 505, 506 OF oDlg UpDate

oRadMenu:bChange := {|| ValidaPict( nOpcao, oGet ) }

REDEFINE Get oGet[1] VAR cGet[1] ID 21 OF oDlg UpDate

REDEFINE Get oGet[2] VAR cGet[2] ID 22 OF oDlg UpDate

ACTIVATE DIALOG oDlg CENTERED VALID lSair ;

ON INIT( Aeval( oGet, { |x| x:Disable() } ) )

id=code>id=code>

.


********************************************************************************

STATIC FUNCTION ValidaPict( _nOpcao, _oGet )

********************************************************************************

LOCAL lFoc := .F.

IF _nOpcao == 5

Aeval( _oGet, { |x| x:Enable(), ;

x:oGet:Varput( CtoD(' / / ') ), ;

x:oGet:Picture:="99/99/9999", ;

x:Refresh() } )

lFoc:= .T.

ELSEIF _nOpcao == 6

Aeval( _oGet, { |x| x:Enable(), ;

x:oGet:Varput(Space(09)), ;

x:oGet:Picture:="999999999", ;

x:Refresh() } )

lFoc:= .T.

ELSE

Aeval( _oGet, { |x| x:Disable(), ;

x:oGet:Varput(""), ;

x:Refresh() } )

ENDIF

//--//--//

IF lFoc

RETURN _oGet[1]:SetFocus()

ENDIF

//--//--//

RETURN nil

id=code>id=code>

@braços Ale

aleseribeli@hotmail.com

Andradina/SP

bannerbandidaiw0.jpg

"Se estiver dirigindo, não beba.Você pode derramar a bebida." id=red>

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...