4D View v16
PV Color to index
PV Color to index
| PV Color to index ( Farbe ) -> Funktionsergebnis | ||||||||
| Parameter | Typ | Beschreibung | ||||||
| Farbe | Lange Ganzzahl |
|
Farbnummer | |||||
| Funktionsergebnis | Ganzzahl |
|
Nummer indizierte Farbe | |||||
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_LONGINT($Red;$Green;$Blue) `RGB Farben bei Start und Ende
C_LONGINT($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)
Produkt: 4D View
Thema: PV Hilfsmittel
Nummer:
15861
Erstellt: 4D View 6.8
4D View Programmiersprache ( 4D View v16)
