Jump to content
Fivewin Brasil

Cor de Fundo em GET Desabilitado


aldreks

Recommended Posts

Pessoal, como estabelecer uma cor para o fundo de um GET q se encontra desabilitado?

Tentei assim mas não funcionou. Ele fica com o fundo branco. Só funciona qdo o GET está habilitado.

oDescricao:SetColor(chCinza , chCinza )

oDescricao:Refresh()

oDescricao:Disable()

oGaveta:SetColor(chCinza , chCinza )

oGaveta:Refresh()

oGaveta:Disable()

Tem solução?

No aguardo! Obrigado!

-------------------------

Email/msn: aldreksa@hotmail.com

xharbour 0.99.5 /BCC 5.5 / FWH/xMate 1.12 / Pelles C 4.5

(Recife-PE)

"O perdão ainda é a maior prova de amor!"

Link to comment
Share on other sites

Pessoal, como estabelecer uma cor para o fundo de um GET q se encontra desabilitado?

Tentei assim mas não funcionou. Ele fica com o fundo branco. Só funciona qdo o GET está habilitado.

oDescricao:SetColor(chCinza , chCinza )

oDescricao:Refresh()

oDescricao:Disable()

oGaveta:SetColor(chCinza , chCinza )

oGaveta:Refresh()

oGaveta:Disable()

Tem solução?

No aguardo! Obrigado!

-------------------------

Email/msn: aldreksa@hotmail.com

xharbour 0.99.5 /BCC 5.5 / FWH/xMate 1.12 / Pelles C 4.5

(Recife-PE)

"O perdão ainda é a maior prova de amor!"

Link to comment
Share on other sites

olá, tudo jóia?

vc teria que mudar a classe para obter estas cores, ou a vlib do Vagner. veja o exemplo da voget aí vc pode usar com inspiração.

http://www.fivewin.com.br/exibedicas.asp?id=230

Alessandroid=blue>

FW20d+CL53b+Blinker7+@Say+CDX

MSN: ferracini_silva@hotmail.com

Ribeirão Preto/SP

Na prosperidade nossos amigos nos conhecem; na adversidade conhecemos os nossos amigosid=red>

Link to comment
Share on other sites

Em FW é assim

getdisable.bmp

Redefine Get oget4 Var cTrans picture "999,999.99" id 104 of ofld:aDialogs[2] WHEN .F. FONT OFONT3 COLOR NRGB(178, 34, 34), NRGB(238, 223, 204)

Redefine Get oget5 Var cDebit picture "999,999.99" id 114 of ofld:aDialogs[2] WHEN .F. FONT OFONT3 COLOR NRGB(178, 34, 34), NRGB(238, 223, 204)

Redefine get oGet6 Var cCredit picture "999,999.99" id 115 of ofld:aDialogs[2] WHEN .F. FONT OFONT3 COLOR NRGB(178, 34, 34), NRGB(238, 223, 204)

Não sei se vai funcionar p/ voce...

LUIZ ARRUDA - Corumba-MS

FW 2.4 - CLP 5.3 - WS - Win XP

ico.corumba@gmail.com

iko67@ibest.com.br

Link to comment
Share on other sites

Prezado amigo, mas como eu poderia fazer em real time (tempo de excução), determinar certos GETS como apenas Só leitura??

Tipo assim:

oObjGet:ReadyOnly()

ou

oObjGet:When(.f.)

Tem como??

Só assim eu poderia manter uma cor de fundo num GET inabilitado.

No aguardo de ajuda!

citação:

Em FW é assim

getdisable.bmp

Redefine Get oget4 Var cTrans picture "999,999.99" id 104 of ofld:aDialogs[2] WHEN .F. FONT OFONT3 COLOR NRGB(178, 34, 34), NRGB(238, 223, 204)

Redefine Get oget5 Var cDebit picture "999,999.99" id 114 of ofld:aDialogs[2] WHEN .F. FONT OFONT3 COLOR NRGB(178, 34, 34), NRGB(238, 223, 204)

Redefine get oGet6 Var cCredit picture "999,999.99" id 115 of ofld:aDialogs[2] WHEN .F. FONT OFONT3 COLOR NRGB(178, 34, 34), NRGB(238, 223, 204)

Não sei se vai funcionar p/ voce...

LUIZ ARRUDA - Corumba-MS

FW 2.4 - CLP 5.3 - WS - Win XP

ico.corumba@gmail.com

iko67@ibest.com.br


id=quote>id=quote>

-------------------------

Email/msn: aldreksa@hotmail.com

xharbour 0.99.5 /BCC 5.5 / FWH/xMate 1.12 / Pelles C 4.5

(Recife-PE)

"O perdão ainda é a maior prova de amor!"

Link to comment
Share on other sites

citação:

Prezado amigo, mas como eu poderia fazer em real time (tempo de excução), determinar certos GETS como apenas Só leitura??

Tipo assim:

oObjGet:ReadyOnly()

ou

oObjGet:When(.f.)

Tem como??

Só assim eu poderia manter uma cor de fundo num GET inabilitado.

No aguardo de ajuda!

citação:

Em FW é assim

getdisable.bmp

Redefine Get oget4 Var cTrans picture "999,999.99" id 104 of ofld:aDialogs[2] WHEN .F. FONT OFONT3 COLOR NRGB(178, 34, 34), NRGB(238, 223, 204)

Redefine Get oget5 Var cDebit picture "999,999.99" id 114 of ofld:aDialogs[2] WHEN .F. FONT OFONT3 COLOR NRGB(178, 34, 34), NRGB(238, 223, 204)

Redefine get oGet6 Var cCredit picture "999,999.99" id 115 of ofld:aDialogs[2] WHEN .F. FONT OFONT3 COLOR NRGB(178, 34, 34), NRGB(238, 223, 204)

Não sei se vai funcionar p/ voce...

LUIZ ARRUDA - Corumba-MS

FW 2.4 - CLP 5.3 - WS - Win XP

ico.corumba@gmail.com

iko67@ibest.com.br


id=quote>id=quote>

-------------------------

Email/msn: aldreksa@hotmail.com

xharbour 0.99.5 /BCC 5.5 / FWH/xMate 1.12 / Pelles C 4.5

(Recife-PE)

"O perdão ainda é a maior prova de amor!"


id=quote>id=quote>

Tente com lCondicao;;

lCondicao6:=.f.

If algo = "SIM"

lCondicao6:=.t.

ElseIf algo = "NAO"

lCondicao6=.f.

endif

Pode usar uma valid p/ definir .t. ou .f.

REDEFINE GET OGET VAR cLivro ID 119 OF OFLD:ADIALOGS[1] when(lCondicao6) COLOR RGB(255, 160, 122), RGB(238, 233, 233)

REDEFINE GET OGET VAR cFolha ID 120 OF OFLD:ADIALOgS[1] WHEN(lCondicao6) valid(Orelha1(ofld)) COLOR RGB(255, 160, 122), RGB(238, 233, 233)

Espero que ajude...

LUIZ ARRUDA - Corumba-MS

FW 2.4 - CLP 5.3 - WS - Win XP

ico.corumba@gmail.com

iko67@ibest.com.br

Editado por - ico on 24/05/2007 16:07:24

Editado por - ico on 24/05/2007 16:14:22

Link to comment
Share on other sites

Doutor Vargner, como vai amigo? Espero q bem!

Cara, fiz a tentativa pela sua sugestão, mas não sei pq, a cor q estabeleço para o fundo do GET ao desabilitá-lo, ou inabililitá-lo, não funciona. Ele assume o padrão do FWH q é ficar texto cinza e fundo branco.

Veja com está a sintaxe:

//--- aqui eu seto como ele deve iniciar

REDEFINE GET oDescricao VAR WDescricao ID 301 OF oDlgBrw PICTURE[@!] COLOR chPreto,chBranco

//----aqui eu defino as cores que deve assumir qdo eu o desabiliar ou torná-lo inacessível.

oDescricao:SetColor(chPreto, chAmarelo)

oDescricao:Refresh()

oDescricao:bWhen:={||.F.} //oDescricao:Disable()

Tem como resolver? Estou errando em algo?

Amigo Dorneles, com sua sugestão, de cara, logo na entrada, eu nem consegui acessar o GET. Não seria essa a minha intensão. Mas mesmo assim, valeu a tua intensão em ajudar. Obrigado.

citação:

Olá,

Tente :


If lOk

oGet:bWhen := {||.F.}

Else

oGet:bWhen := {||.T.}

Endif

id=code>id=code>

Vagner Wirts

Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 icon_smile_big.gif


id=quote>id=quote>

-------------------------

Email/msn: aldreksa@hotmail.com

xharbour 0.99.5 /BCC 5.5 / FWH/xMate 1.12 / Pelles C 4.5

(Recife-PE)

"O perdão ainda é a maior prova de amor!"

Link to comment
Share on other sites

Ola.

REDEFINE GET oDescricao VAR WDescricao ID 301 OF oDlgBrw PICTURE[@!] COLOR chPreto,chBranco

Tente chamando duas vezes a cor texto/fundo, e nao somente chPreto, chBranco

COLOR nRGBid=red>(255, 160, 122), nRGBid=red>(238, 233, 233)

LUIZ ARRUDA - Corumba-MS

FW 2.4 - CLP 5.3 - WS - Win XP

ico.corumba@gmail.com

iko67@ibest.com.br

Editado por - ico on 25/05/2007 15:06:35

Link to comment
Share on other sites

Luiz, boa tarde!

Na verdade, entendo que a bronca está em não conseguir determinar a cor aqui:

oDescricao:SetColor(chPreto, chAmarelo)

oDescricao:Refresh()

oDescricao:bWhen:={||.F.} //oDescricao:Disable()

EU não sei se é o FWH ou xHarbour q não aceita. ELe seta com padrão preto/branco, ignorando minha instrução.

Agora, se o GET está habilitado ele aceita colocar qualquer cor.

Mas se desabilitar o GET ele estabelece suas próprias cores.

E aí? Dá pra ajudar??

citação:

Ola.

REDEFINE GET oDescricao VAR WDescricao ID 301 OF oDlgBrw PICTURE[@!] COLOR chPreto,chBranco

Tente chamando duas vezes a cor texto/fundo, e nao somente chPreto, chBranco

COLOR nRGBid=red>(255, 160, 122), nRGBid=red>(238, 233, 233)

LUIZ ARRUDA - Corumba-MS

FW 2.4 - CLP 5.3 - WS - Win XP

ico.corumba@gmail.com

iko67@ibest.com.br

Editado por - ico on 25/05/2007 15:06:35


id=quote>id=quote>

-------------------------

Email/msn: aldreksa@hotmail.com

xharbour 0.99.5 /BCC 5.5 / FWH/xMate 1.12 / Pelles C 4.5

(Recife-PE)

"O perdão ainda é a maior prova de amor!"

Link to comment
Share on other sites

citação:

Olá,

Teste a VGet q está em dicas+dicas, ela faz isso e muito mais icon_smile_big.gif

Vagner Wirts

Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 icon_smile_big.gif


id=quote>id=quote>

TAMBEM NAO FUNCINARA, SE NAO ALTERAR A CLASSE E USAR O CONTROLE CORRETO NO WORKSHOP.EXE

MULTIPLE LINE TEM QUE ESTA LIGADO... SE MESMO ASSIM NAO FUNCIONAR, TEM-SE ENTAO QUE ALTERAR A TGET.PRG E RECOMPILAR A FIVEHX.LIB COM HARB2LIB.EXE.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Skype: fw_kapiaba

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Editado por - kapiaba on 26/05/2007 13:50:09

Link to comment
Share on other sites

citação:

olá, tudo jóia?

vc teria que mudar a classe para obter estas cores, ou a vlib do Vagner. veja o exemplo da voget aí vc pode usar com inspiração.

http://www.fivewin.com.br/exibedicas.asp?id=230

Alessandroid=blue>

FW20d+CL53b+Blinker7+@Say+CDX

MSN: ferracini_silva@hotmail.com

Ribeirão Preto/SP

Na prosperidade nossos amigos nos conhecem; na adversidade conhecemos os nossos amigosid=red>


id=quote>id=quote>

na tget.prg no METHOD Initiate(), coloque estas linha no lugar.


if ::lReadOnly

::SetColor( nRgb(0,0,0) , nRgb(255,0,0,))

::Disable()

endif

id=code>id=code>

deve resolver

Alessandroid=blue>

FW20d+CL53b+Blinker7+@Say+CDX

MSN: ferracini_silva@hotmail.com

Ribeirão Preto/SP

Na prosperidade nossos amigos nos conhecem; na adversidade conhecemos os nossos amigosid=red>

Link to comment
Share on other sites

citação:

citação:

Olá,

Teste a VGet q está em dicas+dicas, ela faz isso e muito mais icon_smile_big.gif

Vagner Wirts

Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 icon_smile_big.gif


id=quote>id=quote>

TAMBEM NAO FUNCINARA, SE NAO ALTERAR A CLASSE E USAR O CONTROLE CORRETO NO WORKSHOP.EXE

MULTIPLE LINE TEM QUE ESTA LIGADO... SE MESMO ASSIM NAO FUNCIONAR, TEM-SE ENTAO QUE ALTERAR A TGET.PRG E RECOMPILAR A FIVEHX.LIB COM HARB2LIB.EXE.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Skype: fw_kapiaba

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Editado por - kapiaba on 26/05/2007 13:50:09


id=quote>id=quote>

Na VGet Funciona Sim, e não precisa colocar o mult-line

Vagner Wirts

Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 icon_smile_big.gif

Link to comment
Share on other sites

citação:

citação:

citação:

Olá,

Teste a VGet q está em dicas+dicas, ela faz isso e muito mais icon_smile_big.gif

Vagner Wirts

Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 icon_smile_big.gif


id=quote>id=quote>

TAMBEM NAO FUNCINARA, SE NAO ALTERAR A CLASSE E USAR O CONTROLE CORRETO NO WORKSHOP.EXE

MULTIPLE LINE TEM QUE ESTA LIGADO... SE MESMO ASSIM NAO FUNCIONAR, TEM-SE ENTAO QUE ALTERAR A TGET.PRG E RECOMPILAR A FIVEHX.LIB COM HARB2LIB.EXE.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Skype: fw_kapiaba

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Editado por - kapiaba on 26/05/2007 13:50:09


id=quote>id=quote>

Na VGet Funciona Sim, e não precisa colocar o mult-line

Vagner Wirts

Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 icon_smile_big.gif


id=quote>id=quote>

SÓ SE FOR AI CONTIGO... REI DOS TRUQUES.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Skype: fw_kapiaba

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Link to comment
Share on other sites

BEM, VOU MODIFICAR A RESPOSTA, PODE SER, QUE ESTA COMBINACAO DE CORES QUE TINHA AQUI, É QUE DE ESTE ASPECTO DE MORTO E RIDICULO... VAI SABER... RETIRADO. NAO USO MAIS.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Skype: fw_kapiaba

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

Link to comment
Share on other sites

citação:aEval( oDlg:aControls, {|o| If(o:ClassName() == "TGET", o:lDisColors:=.F., NIL) } )
id=quote>id=quote>

Não funciona

Vagner, sei que é pedir demais, mas no caso da sua vGet, voce fez alguma alteração para funcionar. Que tal mostrar o caminho das pedras.

Oliveira, Sérgio A.

PERSONAL Comp. e Sitemas.id=green>

FWH 2.5, xharbour 0.99.4, SqlLib, MySql, xMate.

TWBrowse(),C5Menu,vPrinter.

Link to comment
Share on other sites

citação:

citação:aEval( oDlg:aControls, {|o| If(o:ClassName() == "TGET", o:lDisColors:=.F., NIL) } )
id=quote>id=quote>

Não funciona

Vagner, sei que é pedir demais, mas no caso da sua vGet, voce fez alguma alteração para funcionar. Que tal mostrar o caminho das pedras.

Oliveira, Sérgio A.

PERSONAL Comp. e Sitemas.id=green>

FWH 2.5, xharbour 0.99.4, SqlLib, MySql, xMate.

TWBrowse(),C5Menu,vPrinter.


id=quote>id=quote>

Olá Personal,

A VGet que está em dicas+dicas, é free e vai com os fontes icon_smile_wink.gif

Agora essa outra minha, pertence a VLib icon_smile_wink.gif

p><p>

Vagner Wirts

Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 icon_smile_big.gif

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...