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.
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.
********************************************************************************
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}
nRGBRed( <nColor> )
nRGBGreen( <nColor> )
nRGBBlue( <nColor> )
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 28 guests