4D View v16
PV Color to index
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 | |||||
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_LONGINT($Red;$Green;$Blue) //Colores RGB al inicio y al terminar
C_LONGINT($Index) //Número en la paleta 4D</p><p>PV SET CELL STRING VALUE (Area;2;1;"Color") //Etiquetas
PV SET CELL STRING VALUE(Area;2;2;"Red")
PV SET CELL STRING VALUE(Area;2;3;"Green")
PV SET CELL STRING VALUE(Area;2;4;"Blue")
$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($Red;$Green;$Blue)
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;$Red;$Green;$Blue) //Descomponer
PV SET CELL NUM VALUE(Area;3;2;$Red) //Colores RGB luego de "indexar"
PV SET CELL NUM VALUE(Area;3;3;$Green)
PV SET CELL NUM VALUE(Area;3;4;$Blue)
Producto: 4D View
Tema: PV Utilitarios
Número
15861
Creado por: 4D View 6.8
4D View - Lenguaje ( 4D View v16)
