ColorToRGB [AS]

ColorToRGB [AS]
Author: Eurai
Inclusão: 01/01/2016
Alteração: 01/01/2016

Descrição

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  

 

 

Informações adicionais

Exemplo de Uso: tColorTriangle

 

 

 

 

 

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

 

 

 

 

 

 

 

Esse conteúdo te ajudou? Ajude o canal com doação
Compartilhar
Comentários