rmarra Posted October 26, 2005 Report Share Posted October 26, 2005 Olá pessoal, tentei conforme abaixo e não funciona. Como faço ??? if GetKeyState( VK_F12 ) if Teste = "S" oSayCaixa:SetColor(CLR_BLUE) Teste:= "N" else oSayCaixa:SetColor(rgb(255,0,0)) Teste := "S" endif oSayCaixa:Refresh() endif Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop Quote Link to comment Share on other sites More sharing options...
rmarra Posted October 26, 2005 Author Report Share Posted October 26, 2005 Olá pessoal, tentei conforme abaixo e não funciona. Como faço ??? if GetKeyState( VK_F12 ) if Teste = "S" oSayCaixa:SetColor(CLR_BLUE) Teste:= "N" else oSayCaixa:SetColor(rgb(255,0,0)) Teste := "S" endif oSayCaixa:Refresh() endif Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop Quote Link to comment Share on other sites More sharing options...
rmarra Posted October 26, 2005 Author Report Share Posted October 26, 2005 Olá pessoal, tentei conforme abaixo e não funciona. Como faço ??? if GetKeyState( VK_F12 ) if Teste = "S" oSayCaixa:SetColor(CLR_BLUE) Teste:= "N" else oSayCaixa:SetColor(rgb(255,0,0)) Teste := "S" endif oSayCaixa:Refresh() endif Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop Quote Link to comment Share on other sites More sharing options...
rmarra Posted October 26, 2005 Author Report Share Posted October 26, 2005 Help please!!! Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop Quote Link to comment Share on other sites More sharing options...
Kleyton Posted October 26, 2005 Report Share Posted October 26, 2005 Lembro-me de alguém questionar sobre isto. Procure na página inicial deste site a palavra "COR"... Kleyton Clipper5.2E+Clipper5.3b+Blink7+FW2.0d cleitonbala@bol.com.br Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted October 26, 2005 Report Share Posted October 26, 2005 Ola. Se for somente para mudar a cor do get use corget.prg e corget.ch ou veja aqui http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=4549 Espero ter ajudado Abraços LUIZ ARRUDA - Corumba-MS FW 2.4 - CLP 5.3 - WS iko67@ibest.com.br Não Percam - 3º ENCONTRO DE FIVEWINERS - NOVEMBRO DE 2005 Quote Link to comment Share on other sites More sharing options...
pasim Posted October 26, 2005 Report Share Posted October 26, 2005 Veja se ajuda... http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=4288 veja isso: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=3449 isso tmb: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=3249 Espero ter ajudado... "Volte atrás,sim, se for preciso. Com o erro não há compromisso." Quote Link to comment Share on other sites More sharing options...
rmarra Posted October 26, 2005 Author Report Share Posted October 26, 2005 Não entendo, no exemplo abaixo do Personal ele disse que funciona no meu não. Segue as diferenças. 1- Eu uso redefine Say. 2- Uso a seguinte fonte :Define Font oFntSayCab Size 08,11 Name "MS Sans Serif" Bold Por que ??? Desde já agradeço pois estou agarrado numa coisa que aparentemente era simples. ----- Funcao do Personal ----- @ l,c Say oDif VAR Transf(_Dif,"@E 999,999.99") OF oDlg Pixel Size 30,10 FONT fBold COLOR PRETO,bege UPDATE na minha função onde verifico o valor da diferença _dif:=ValorPago-ValorDevido If (_dif < 0.00) oDif:SetColor(VERMELHO,bege) Else oDif:SetColor((PRETO,bege) EndIf oDif:Refresh() Return ----- Minha função ------ if GetKeyState( VK_F12 ) if Teste = "S" oSayCaixa:SetColor(CLR_BLUE,oDlgVenda:nClrPane()) Teste:= "N" else oSayCaixa:SetColor(rgb(255,0,0),oDlgVenda:nClrPane()) Teste := "S" endif oSayCaixa:Refresh() endif Oliveira, Sérgio A. PERSONAL - LINS MSN - sergio@personal.com.br SKYPE - sergio-personal FWH 2.5 / xHarbour 0.99.3 / brMake / no WS Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop Editado por - rmarra on 26/10/2005 17:23:25 Editado por - rmarra on 26/10/2005 17:25:03 Quote Link to comment Share on other sites More sharing options...
marcelo Posted October 26, 2005 Report Share Posted October 26, 2005 Ola Tente o seguinte @ 1,1 say oSayCaixa var wSayCaixa of odlg update id=red> color CLR_BLACK,CLR_HBLUE valid mudacor(odlg) Function mudacor(odlg1) if Teste = "S" oSayCaixa:SetColor(CLR_BLACK,CLR_BLUE) Teste:= "N" else oSayCaixa:SetColor(CLR_BLACK,CLR_HRED) Teste := "S" endif odlg1:update()id=red> Return(.t.) Yrece Quote Link to comment Share on other sites More sharing options...
rmarra Posted October 27, 2005 Author Report Share Posted October 27, 2005 Prezado, não faz sentido eu usar o valid, segue abaixo como está meu programa. Por que não funcionar ??? Desde já agradeço. ----- Definicao da fonte ----- Define Font oFntSayCab Size 08,11 Name "MS Sans Serif" Bold ----- Redefine Say ----- Redefine Say oSayCaixa of oDlgVenda ID 311 Update Font oFntSayCab Color if ( Teste = "N", rgb(255,0,0), CLR_BLUE ) ----- Funcao para mudar cor ao teclar F12 ----- if GetKeyState( VK_F12 ) if PARAME->LACSIFPMS # "S" if Teste = "S" oSayCaixa:SetColor( CLR_BLUE, oDlgVenda:nClrPane() ) Teste := "N" elseif Teste = "N" oSayCaixa:SetColor( rgb(255,0,0), oDlgVenda:nClrPane() ) Teste := "S" endif oSayCaixa:Refresh() oDlgVenda:Update() endif endif Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop Quote Link to comment Share on other sites More sharing options...
rmarra Posted October 27, 2005 Author Report Share Posted October 27, 2005 Resolvido!!! Reescrevi o SetText("XXX") após mudar a cor e deu certo. Obrigado. Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop 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.