Selección de Color

[softruz]

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.

[Carlos Mora]

nColor:= >Tu valor origen de RGB, puede ser 0 que es negro >
nColor:= ChooseColor( nColor )

Saludos,

carlos.

[softruz]

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.

[Ale SB]

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:

Code: Select all  Expand view

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

[antolin]

Ya hay funciones que hacen eso:

Code: Select all  Expand view

nRGBRed( <nColor> )
nRGBGreen( <nColor> )
nRGBBlue( <nColor> )

Devuelven los componentes Rojo, Verde y Azul de <nColor> respectivamente.