PV Color to index

Version 6.8

PV Color to index (Farbe) Ganzzahl

Die Funktion PV Color to index gibt die Nummer der in Farbe angegebenen RGB Farbe in der standardmäßigen 4D Farbpalette.

Die 4D Palette für indizierte Farben reicht von 0 bis 255.

Ausführliche Informationen zu den von 4D verwendeten indizierten Farben finden Sie im Handbuch 4th Dimension Programmiersprache:

• Befehl SET RGB COLORS für das RGB Farbsystem

• SET COLOR für die Farbpalette.

Diese Methode setzt in Zelle A1 die Hintergrundfarbe, bestimmt durch die RGB Werte (0 bis 255) in den Zellen A2, A3 und A4. Die Zelle C1 zeigt die in der 4D Palette am nächsten liegende Nummer der indizierten Farbe – mit der ad hoc Hintergrundfarbe – während die Zellen C2, C3 und C4 die dazugehörigen RGB Werte zeigen, die dann den Unterschied zwischen den Startwerten zeigen.

   C_LONGINT($Color)  `Hintergrundfarbe für A1 (RGB) dann Farbe nach Indizierung
   C_INTEGER($Red;$Green;$Blue)  `RGB Farben bei Start und Ende
   C_INTEGER($Index)  `Nummer in der 4D Palette

   PV SET CELL STRING VALUE (Bereich;2;1;"Farbe")  `Bezeichnungen
   PV SET CELL STRING VALUE (Bereich;2;2;"Rot")
   PV SET CELL STRING VALUE (Bereich;2;3;"Grün")
   PV SET CELL STRING VALUE (Bereich;2;4;"Blau")

   $Red:=PV Get cell num value (Bereich;1;2)  `Starte RGB Farben
   $Green:=PV Get cell num value (Bereich;1;3)
   $Blue:=PV Get cell num value (Bereich;1;4)

   $Color:=PV RGB to color ($Red;$Green;$Blue)
   PV SET CELL PROPERTY (Bereich;1;1;pv style color back odd ;$Color) 
                              `Weise A1 Hintergrund zu
   $Index:=PV Color to index ($Color)  `"Indizieren"
   PV SET CELL NUM VALUE (Bereich;3;1;$Index)  `Nummer in der 4D Palette
   $Color:=PV Index to color ($Index)  `Neue Farbe
   PV SET CELL PROPERTY (Bereich;3;1;pv style color back odd ;$Color) 
                                 `Weise C1 Hintergrund zu
   PV COLOR TO RGB ($Color;$Red;$Green;$Blue)  `Aufteilen
   PV SET CELL NUM VALUE (Bereich;3;2;$Red)  `RGB Farben nach "Indizierung"
   PV SET CELL NUM VALUE (Bereich;3;3;$Green)
   PV SET CELL NUM VALUE (Bereich;3;4;$Blue)

PV Index to color.