4D v13
PV Color to index
PV Color to index
| PV Color to index ( cor ) -> Resultado | ||||||||
| Parâmetro | Tipo | Descrição | ||||||
| cor | Inteiro longo |
|
Número da cor | |||||
| Resultado | Inteiro |
|
Número de cor indexado | |||||
O comando PV Color to index devolve o número da cor RGB especificado na paleta 4D por padrão. As cores indexadas 4D vão de 0 a 255.
Consulte as descrições dos seguintes comandos 4D para obter informação detalhada sobre as cores RGB utilizadas por 4D:
- SET RGB COLORS para o sistema de cores RGB utilizado por 4D.
- SET COLOR para a paleta 4D de cores indexadas.
Este método estabelece na célula A1 a cor de fundo definido pelos valores RGB (0 a 255) introduzido nas células A2, A3 e A4. A célula C1 mostra o número de cor indexado mais perto na paleta 4D, com a cor de fundo ad hoc, enquanto as células C2, C3, C4 mostram os valores RGB correspondentes a esta cor indexada, permitindo visualizar a diferença entre os valores iniciais.
C_LONGINT($Color) `Cor de fundo da célula A1 (RGB) logo cor depois de indexação
C_INTEGER($Rojo;$Verde;$Azul) `Cores RGB ao início e ao terminar
C_INTEGER($Index) `Número na paleta 4D
PV SET CELL STRING VALUE(Area;2;1;"Cor") `Etiquetas
PV SET CELL STRING VALUE(Area;2;2;"Vermelho")
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) `Cores RGB iniciais
$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) `Atribuição do fundo A1
$Index:=PV Color to index($Color) `"Indexação"
PV SET CELL NUM VALUE(Area;3;1;$Index) `Número na paleta 4D
$Color:=PV Index to color($Index) `Nova cor
PV SET CELL PROPERTY(Area;3;1;pv style color back odd;$Color) `Atribuição do fundo C1
PV COLOR TO RGB($Color;$Rojo;$Verde;$Azul) `Decompor
PV SET CELL NUM VALUE(Area;3;2;$ o) `RGB colors after "indexação"
PV SET CELL NUM VALUE(Area;3;3;$Verde)
PV SET CELL NUM VALUE(Area;3;4;$Azul)
Produto: 4D
Tema: PV Utilitários
Número
15861
Criado por: 4D View 6.8
