aldreks Posted May 24, 2007 Report Share Posted May 24, 2007 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!" Quote Link to comment Share on other sites More sharing options...
aldreks Posted May 24, 2007 Author Report Share Posted May 24, 2007 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!" Quote Link to comment Share on other sites More sharing options...
aferra Posted May 24, 2007 Report Share Posted May 24, 2007 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> Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted May 24, 2007 Report Share Posted May 24, 2007 Em FW é assim 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 Quote Link to comment Share on other sites More sharing options...
aldreks Posted May 24, 2007 Author Report Share Posted May 24, 2007 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 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!" Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted May 24, 2007 Report Share Posted May 24, 2007 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 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 Quote Link to comment Share on other sites More sharing options...
vagner Posted May 24, 2007 Report Share Posted May 24, 2007 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 Quote Link to comment Share on other sites More sharing options...
dorneles Posted May 25, 2007 Report Share Posted May 25, 2007 Olá amigo, tenta assim. id=code>id=code>FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio Quote Link to comment Share on other sites More sharing options...
aldreks Posted May 25, 2007 Author Report Share Posted May 25, 2007 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 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!" Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted May 25, 2007 Report Share Posted May 25, 2007 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 Quote Link to comment Share on other sites More sharing options...
aldreks Posted May 25, 2007 Author Report Share Posted May 25, 2007 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!" Quote Link to comment Share on other sites More sharing options...
vagner Posted May 25, 2007 Report Share Posted May 25, 2007 Olá, Teste a VGet q está em dicas+dicas, ela faz isso e muito mais 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 26, 2007 Report Share Posted May 26, 2007 citação:Olá, Teste a VGet q está em dicas+dicas, ela faz isso e muito mais 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 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 Quote Link to comment Share on other sites More sharing options...
aferra Posted May 28, 2007 Report Share Posted May 28, 2007 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> Quote Link to comment Share on other sites More sharing options...
vagner Posted May 28, 2007 Report Share Posted May 28, 2007 citação: citação:Olá, Teste a VGet q está em dicas+dicas, ela faz isso e muito mais 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 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 Quote Link to comment Share on other sites More sharing options...
ronaldo Posted May 28, 2007 Report Share Posted May 28, 2007 adicione esta informação antes do ACTIVATE DIALOG aEval( oDlg:aControls, {|o| If(o:ClassName() == "TGET", o:lDisColors:=.F., NIL) } ) Ronaldo Minacapelli (11) 6950 3069 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 28, 2007 Report Share Posted May 28, 2007 citação: citação: citação:Olá, Teste a VGet q está em dicas+dicas, ela faz isso e muito mais 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 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 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 28, 2007 Report Share Posted May 28, 2007 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 Quote Link to comment Share on other sites More sharing options...
personal Posted May 28, 2007 Report Share Posted May 28, 2007 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. Quote Link to comment Share on other sites More sharing options...
vagner Posted May 28, 2007 Report Share Posted May 28, 2007 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 Agora essa outra minha, pertence a VLib 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 Quote Link to comment Share on other sites More sharing options...
personal Posted May 28, 2007 Report Share Posted May 28, 2007 Rapais que ligeresa. Oliveira, Sérgio A. PERSONAL Comp. e Sitemas.id=green> FWH 2.5, xharbour 0.99.4, SqlLib, MySql, xMate. TWBrowse(),C5Menu,vPrinter. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.