TOTVSTEC

Árvore de páginas

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

Nome

Tipo

Descrição

Obrigatório

Referência

nColor

numérico

Cor representada por um único valor numérico, por exemplo CLR_HRED definida no arquivo colors.ch.

X

 

Retorno

Nome

Tipo

Descrição

aRet

vetor

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.

Observações

  • Essa função está disponível em builds superiores à 7.00.121227P.

Exemplos

Exemplo 1
#include "TOTVS.ch"
#include "colors.ch"
User Function color2RGB()
 aRGBA := ColorToRGB(CLR_HBLUE)
 cMsg := "Red: " + STR(aRGBA[1]) + CRLF
 cMsg += "Green: " + STR(aRGBA[2]) + CRLF
 cMsg += "Blue: " + STR(aRGBA[3]) + CRLF
 cMsg += "Alpha: " + STR(aRGBA[4]) 
 MessageBox( cMsg, "RBGA", 64 )
Return

Resultado do Exemplo

Abrangência

TOTVS Application Server 10 , TOTVS Application Server 11

  • Sem rótulos