jfaguiar Posted December 18, 2009 Report Share Posted December 18, 2009 Olá pessoal. Tenho um configuradorzinho de cores do usuário, mas é fraquinho, fraquinho! Utilizando a função SelColor(), a medida que se seleciona uma cor,os números das cores red, green e blue que aparecem na parte inferior-direita são alterados. Gostaria de saber como faço para capturar esses numeros. É possÃvel? Grato João Programador Editado por - jfaguiar on 26/12/2009 19:48:18 Quote Link to comment Share on other sites More sharing options...
jfaguiar Posted December 18, 2009 Author Report Share Posted December 18, 2009 Olá pessoal. Tenho um configuradorzinho de cores do usuário, mas é fraquinho, fraquinho! Utilizando a função SelColor(), a medida que se seleciona uma cor,os números das cores red, green e blue que aparecem na parte inferior-direita são alterados. Gostaria de saber como faço para capturar esses numeros. É possÃvel? Grato João Programador Editado por - jfaguiar on 26/12/2009 19:48:18 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted December 18, 2009 Report Share Posted December 18, 2009 Não entendi, mas veja se é isso.. nCor:=ChooseColor(0)id=code>id=code>Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS ico.corumba@gmail.com - Somos Hexaid=red> Quote Link to comment Share on other sites More sharing options...
jaguiar Posted December 22, 2009 Report Share Posted December 22, 2009 Olá Ico. É Mais ou menos isso: No exemplo abaixo, quando clico em moda cor o sistema me mostra o objeto de seleção de cores. Notes que nesse objeto, na parte inferior direita tem as cores: red, green e blue representada por números. É extamente esse três números que preciso capcurar para minhas variáveis de cores e definir as cores mais ou menos assim: #Define CLR_FUNGET nRGB( nCOREDIT1,nCOREDIT2,nCOREDIT3) #Define CLR_FONGET nRGB( nCOREDIT4,nCOREDIT5,nCOREDIT6) LOCAL oDLG nGET := 0 DEFINE DIALOG oDlg FROM 02,01 TO 15,45 TITLE 'Seleção de cores' @ 02.5,01 SAY "Cor Gets" @ 02.7,04 GET oGET VAR nGET PICT "9999999999" // @ 0012,05 Button oBtnCancel Prompt "&Muda Cor Get"; Size 40,15 Pixel Action oGET:SelColor() Of oDlg @ oDlg:nHeight()/2-19,oDlg:nWidth()/2-35 Button oBtnCancel Prompt "&Cancelar"; Size 30,15 Pixel Action oDlg:End() Of oDlg ACTIVATE DIALOG oDlg CENTERED Quote Link to comment Share on other sites More sharing options...
Luisão Posted December 23, 2009 Report Share Posted December 23, 2009 cHEX:= PadL(DecToHex(nCor),6,"0") ? cHEX // Código Hexadecimal de comprimento 6 já Normalizado // Códigos de cada tom de cor em Hexadecimal cHAzul:= LEFT(cHEX,2) cHVerde:= SUBSTR(cHEX,3,2) cHVermelho:= RIGHT(cHEX,2) // Conversão para Decimal, obtendo os valores originais nAzul:= HexToDec(cHAzul) nVerde:= HexToDec(cHVerde) nVermelho:= HexToDec(cHVermelho) ? cHAzul, nAzul ? cHVerde, nVerde ? cHVermelho, nVermelhoid=code>id=code>Tópico Original: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14265 Luis Fernando Jr. (Luisão) "The important thing in life is to believe that while you are alive, it's never to late" FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY Quote Link to comment Share on other sites More sharing options...
jfaguiar Posted December 23, 2009 Author Report Share Posted December 23, 2009 Muito obrigado Luisão. Vou tentar. Quote Link to comment Share on other sites More sharing options...
Luisão Posted December 24, 2009 Report Share Posted December 24, 2009 Funcionou ? Luis Fernando Jr. (Luisão) "The important thing in life is to believe that while you are alive, it's never to late" FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY Quote Link to comment Share on other sites More sharing options...
jaguiar Posted December 26, 2009 Report Share Posted December 26, 2009 Olá Luisão. Fucionou perfeitamente. Muito obrigado carÃssimo. Fleliz ano novo pra vc e para todos o companheiros do forum. Fui... 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.