4D Doc Center : PV Color to index

Home

4D View v14

PV Color to index


PV Color to index ( Farbe ) -> Funktionsergebnis

Parameter	Typ	Beschreibung
Farbe	Lange Ganzzahl	Farbnummer
Funktionsergebnis	Ganzzahl	Nummer indizierte Farbe

Beschreibung

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 4D Programmiersprache:

Befehl OBJECT SET RGB COLORS für das RGB Farbsystem
OBJECT SET COLOR für die Farbpalette

Hinweis: Die interne Codierung der Farben in 4D View ist vom Typ BGR; das ist umgekehrt zur RGB Codierung in 4D. Beide werden aber auf dieselbe Weise verwendet.

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)

4D View v14

PV Color to index

PV Color to index

Beschreibung

Beispiel