Muy buenas, necesitar铆a saber como puedo seleccionar un color en formato RGB, es decir, que me salga como una pantallita donde pueda selecionar el color y me lo devuelva.
Un SAludo.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Selecci贸n de Color
nColor:= >Tu valor origen de RGB, puede ser 0 que es negro >
nColor:= ChooseColor( nColor )
Saludos,
carlos.
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"
Muy buenas, antetodo gracias, pero tengo otra cuestion, 驴como puedo cambiar el n煤mero que me devuelve el color ChooseColor a los tres valores de RGB(n1,n2,n3)?
Un Saludo.
softruz wrote:Muy buenas, antetodo gracias, pero tengo otra cuestion, 驴como puedo cambiar el n煤mero que me devuelve el color ChooseColor a los tres valores de RGB(n1,n2,n3)?
Un Saludo.
Si ainda necesita la funci贸n inversa:
********************************************************************************
function Int2Rgb(nIntCor)
////////////////////////////////////////////////////////////////////////////////
// Autor : Ale SB //
// Descricao : Fun莽ao Inversa do nRGB. //
// Retorna o RGB a partir do Inteiro da Cor. //
// Parametros : //
// - nIntCor ==> Inteiro da Cor. //
// Retorno : RGB //
////////////////////////////////////////////////////////////////////////////////
********************************************************************************
local nR := nG := nB := 0
local nDiv1 := nDiv2 := 0
local nDecQuoc1 := nDecQuoc2 := 0
SET DECIMAL TO 10
nDiv1 := nIntCor / 256
nDecQuoc1 := Val(SubStr(Str(nDiv1), At(".",Str(nDiv1))))
nR := Int(nDecQuoc1*256)
nDiv2 := Int(nDiv1) / 256
nB := Int(nDiv2)
nDecQuoc2 := Val(SubStr(Str(nDiv2), At(".",Str(nDiv2))))
nG := Int(nDecQuoc2*256)
SET DECIMAL TO 2
return {nR,nG,nB}nColor := 10899511
aCor := Int2Rgb(nColor)
? aCor[1], aCor[2], aCor[3]
Saluds, Ale
aleseribeli@hotmail.com
FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, voc锚 n茫o subtrai quando divide; mas soma e multiplica."
**---M谩rio Persona---**
FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, voc锚 n茫o subtrai quando divide; mas soma e multiplica."
**---M谩rio Persona---**
Ya hay funciones que hacen eso:
Devuelven los componentes Rojo, Verde y Azul de <nColor> respectivamente.
nRGBRed( <nColor> )
nRGBGreen( <nColor> )
nRGBBlue( <nColor> )Devuelven los componentes Rojo, Verde y Azul de <nColor> respectivamente.
Peaaaaaso de foro...
FWH 2007 - xHarbour - BCC55
FWH 2007 - xHarbour - BCC55