Cabeçalho

ColorToRGB [AS]

Autor: Eurai Criado: 01/01/2016 Atualizado: 26/04/2025 Conversão

Postagem

Descrição

ColorToRGB [AS] - A partir do valor numérico que representa uma cor, retorna uma lista dos números que representam o RGB.

Sintaxe

ColorToRGB( <nColor>)

Parâmetros

Par	Nome	Tipo	Descrição	Default	Obg	Ref
01	nColor	Numérico	Cor representada por um único valor numérico, por exemplo CLR_HRED definida no arquivo colors.ch.		X

Retorno

Retorno	Tipo	Descrição
aRet	Array	Vetor com quatro posições indicando o vermelho, o verde, o azul e a transparência, sendo cada uma delas representadas por um valor numérico na escala de 0 a 255

Exemplo

#INCLUDE "TOTVS.CH"
 
User Function UAColorToRGB()
Local aColors := ColorToRGB(CLR_HRED)
 
MsgInfo( 'Red: ' + cValtoChar( aColors[01] ) ; 
 + CRLF + 'Green: ' + cValtoChar( aColors[02] ) ; 
 + CRLF + 'Blue: ' + cValtoChar( aColors[03] ) ;
 + CRLF + 'Alpha: ' + cValtoChar( aColors[04] ) , 'UniversoADVPL' )

Resultado
colortorgb_-_resultado_01