4D Doc Center : PV Color to index

4D View v14

PV Color to index


PV Color to index ( color ) -> resultado

Parámetro	Tipo	Descripción
color	Entero largo	Número de color
resultado	Entero	Número de color indexado

Descripción

El comando PV Color to index devuelve el número del color RGB especificado en la paleta 4D por defecto. Los colores indexados 4D van de 0 a 255.

Consulte las descripciones de los siguientes comandos 4D para obtener información detallada sobre los colores RGB utilizados por 4D:

OBJECT SET RGB COLORS para el sistema de colores RGB utilizado por 4D.
OBJECT SET COLOR para la paleta 4D de colores indexados.

Nota: el código interno de colores de 4D View es del tipo RGB, que se reversa con respecto al código RGB de 4D; sin embargo, los principios de uso son idénticos.

Este método establece en la celda A1 el color de fondo definido por los valores RGB (0 a 255) introducido en las celdas A2, A3 y A4. La celda C1 muestra el número de color indexado más cercano en la paleta 4D, con el color de fondo ad hoc, mientras que las celdas C2, C3, C4 muestran los valores RGB correspondientes a este color indexado, permitiéndole visualizar la diferencia entre los valores iniciales.

 C_LONGINT($Color) `Color de fondo de la celda A1 (RGB) luego color después de indexación

 C_INTEGER($Rojo;$Verde;$Azul) `Colores RGB al inicio y al terminar

 C_INTEGER($Index) `Número en la paleta 4D

 

 PV SET CELL STRING VALUE(Area;2;1;"Color") `Etiquetas

 PV SET CELL STRING VALUE(Area;2;2;"Rojo")

 PV SET CELL STRING VALUE(Area;2;3;"Verde")

 PV SET CELL STRING VALUE(Area;2;4;"Azul")

 

 $Red:=PV Get cell num value(Area;1;2) `Colores RGB iniciales

 $Green:=PV Get cell num value(Area;1;3)

 $Blue:=PV Get cell num value(Area;1;4)

 

 $Color:=PV RGB to color($Rojo;$Verde;$Azul)

 PV SET CELL PROPERTY(Area;1;1;pv style color back odd;$Color) `Asignación del fondo A1

 

 $Index:=PV Color to index($Color) `"Indexación"

 PV SET CELL NUM VALUE(Area;3;1;$Index) `Número en la paleta 4D

 $Color:=PV Index to color($Index) `Nuevo color

 PV SET CELL PROPERTY(Area;3;1;pv style color back odd;$Color) `Asignación del fondo C1

 

 PV COLOR TO RGB($Color;$Rojo;$Verde;$Azul) `Descomponer

 PV SET CELL NUM VALUE(Area;3;2;$Rojo) `RGB colors after "indexación"

 PV SET CELL NUM VALUE(Area;3;3;$Verde)

 PV SET CELL NUM VALUE(Area;3;4;$Azul)

4D View v14

PV Color to index

PV Color to index

Descripción

Ejemplo