OBJECT SET RGB COLORS

4D v15.4


OBJECT SET RGB COLORS ( {* ;} objeto ; corPrimeiroPlano ; corFundo {; corFundoAlternativo} )

Parâmetro	Tipo	Descrição
*	Operador	se especificado, objeto é um nome de objeto (string), se omitido, objeto é um campo ou uma variável
objeto	Objeto de formulário	Nome de objeto (se* é especificado) ou Campo ou Variável (se * é omitido)
corPrimeiroPlano	Inteiro longo	Valor de cor RGB para a cor de Primeiro Plano
corFundo	Inteiro longo	Valor RGB da cor de Fundo
corFundoAlternativo	Inteiro longo	Valor RGB da cor de fundo alternativa

Descrição

O comando OBJECT SET RGB COLORS modifica as cores de fundo e primeiro plano dos objetos especificados por objeto e o parâmetro opcional *. Quando o comando é aplicado a um objeto list box, um parâmetro adicional lhe permite modificar a cor alternativa das filas.

Se passa o parâmetro opcional *, indica que o parâmetro objeto é um nome de objeto (string). Se não passa este parâmetro, indica que o parâmetro objeto é um campo ou uma variável. Neste caso, não passe uma referência de campo ou de variável ao invés de uma string. Para maior informação sobre nomes de objetos, consulte a seção Propriedades dos objetos

O parâmetro opcional corFundoAlt lhe permite definir uma cor alternativa para o fundo das linhas pares. Este parâmetro só é utilizado quando o objeto é especificado como List box ou coluna de List box. Quando é utilizado este parâmetro, o parâmetro corFundo é utilizado para as linhas ímpares unicamente. A utilização de cores alternativos faz com que as listas sejam mais fáceis de ler.

Se objeto especifica um objeto List box, as cores alternativas são utilizadas em todo o List box. Se objeto especifica uma coluna da List box, só a coluna utilizará as cores definidas.

Os valores das cores são indicadas em RGB em corPrimeiroPlano, corFundo e corFundoAlt. Um valor RGB é um inteiro longo de 4 bytes cujo formato (0x00RRGGBB) é descrito na seguinte tabela (os bytes são numerados de 0 a 3, de direita a esquerda):

Byte	Descrição
3	Deve ser zero para um cor RGB absoluto
2	Componente vermelho da cor (0..255)
1	Componente verde da cor (0..255)
0	Componente azul da cor (0..255)

A seguinte tabela mostra alguns exemplos de valores de cor RGB:

Valor	Descrição
0x00000000	Negro
0x00FF0000	Vermelho vivo
0x0000FF00	Verde vivo
0x000000FF	Azul vivo
0x007F7F7F	Cinza
0x00FFFF00	Amarelo vivo
0x00FF7F7F	Vermelho pastel
0x00FFFFFF	Branco

De maneira alterna, pode especificar uma das cores “sistema” utilizado por 4D para desenhar os objetos cujas cores são definidas automaticamente. As seguintes constantes pré-definidas são propostas por 4D:

Constante	Tipo	Valor	Comentário
Background color	Inteiro longo	-2
Background color none	Inteiro longo	-16	Esta constante pode ser utilizada unicamente com os parâmetros corFundo e corFundoAlt.
Dark shadow color	Inteiro longo	-3
Disable highlight item color	Inteiro longo	-11
Foreground color	Inteiro longo	-1
Highlight menu background color	Inteiro longo	-9
Highlight menu text color	Inteiro longo	-10
Highlight text background color	Inteiro longo	-7
Highlight text color	Inteiro longo	-8
Light shadow color	Inteiro longo	-4

Estas cores (em um sistema padrão) são as seguintes:

Advertência: estas cores automáticos são dependentes do sistema. Se modifica suas cores sistema, 4D ajustará automaticamente as cores. Utilize os valores de cores automáticos para atribuir aos objetos as cores sistema e não para atribuir as mesmas cores que as definidas no exemplo anterior.

Exemplo 1

Este formulário contém duas variáveis editáveis, vsCorValor e vsCor assim como três barras termômetros: thVermelho, thVerde, e thAzul.

Estes são os métodos destes objetos:

  ` Método de objeto da variável não editável vsCorValor

 Case of

    :(Form event=On Load)

       vsCorValor:="0x00000000"

 End case

 

  ` Método de objeto da variável não editável vsCor

 Case of

    :(Form event=On Load)

       vsColor:=""

       OBJECT SET RGB COLORS(vsCor;0x00FFFFFF;0x0000)

 End case

 

  ` Método de objeto do termômetro thVermelho

 CLIQUE no TERMÔMETRO DE COR

  ` Método de objeto do termômetro thVerde

 CLIQUE EM TERMOMETRO DE COR

 

  ` Método de objeto do termômetro thAzul

 CLIQUE EM TERMOMETRO DE COR

O método de projeto chamado pelos três termômetros é:

  ` Método de projeto CLIQUE EM TERMOMETRO DE COR

 OBJECT SET RGB COLORS(vsCor;0x00FFFFFF;(thVermelho<<&NBSP;16)+(thVerde&NBSP;<<&NBSP;8)+thAzul)

 vsCorValor:=String((thVermelho<<&nbsp;16)+(thVerde&nbsp;<<&nbsp;8)+thAzul;"&x")

 If(thVermelho=0)

    vsCorValor:=Substring(vsCorValor;1;2)+"0000"+Substring(vsCorValor;3)

 End if

Note a utilização dos Bitwise operators para o cálculo dos valores das cores a partir dos valores dos termômetros.

Em execução, o formulário se vê assim:

Exemplo 2

Muda o fundo transparente com uma cor de fonte clara:

OBJECT SET RGB COLORS(*;"myVar";Light shadow color;Background color none)

Ver também

OBJECT GET RGB COLORS
OBJECT SET COLOR
Operadores de bit
Select RGB Color