Vega.ColorDlg — Farbauswahl
TColorDialog, selbst gezeichnet: links das Feld für Sättigung und Helligkeit, daneben die Farbtonleiste, rechts die Grundfarben und die Vorschau. Gerechnet wird in HSV, weil sich darin auswählen lässt, was in RGB nur mühsam zu treffen ist.
Quelldatei: Vega/ColorDlg.lyx
→ Alle Units · Alle Steuerelemente · Vega VCL
Klassen
| Klasse | Basis | Zweck |
|---|---|---|
TColorDialog | — | Der Dialog samt Feld, Leiste, Grundfarben und Vorschau |
Typaliase
| Name | Ist | Zweck |
|---|---|---|
THsv | struct { H: int64; S: int64; V: int64 } | Farbton, Sättigung, Helligkeit |
Konstanten
| Name | Typ | Wert | Bedeutung |
|---|---|---|---|
VEGA_CD_COLS | int64 | 8 | Spalten im Grundfarbenfeld |
VEGA_CD_ROWS | int64 | 6 | Zeilen im Grundfarbenfeld |
VEGA_CD_W | int64 | 452 | Fensterbreite |
VEGA_CD_H | int64 | 330 | Fensterhöhe |
VEGA_CD_PAD | int64 | 12 | Innenabstand |
VEGA_CD_SV | int64 | 200 | Kantenlänge des Sättigungs-/Helligkeitsfelds |
VEGA_CD_HUE_W | int64 | 24 | Breite der Farbtonleiste |
VEGA_CD_CELL | int64 | 22 | Kantenlänge einer Grundfarbenzelle |
Freie Funktionen
| Signatur | Zweck |
|---|---|
Hsv(h: int64, s: int64, v: int64): THsv | HSV-Wert bauen |
NormalizeHue(h: int64): int64 | Farbton auf 0..359 bringen |
HsvToColor(hsv: THsv): TColor | HSV in eine TColor umrechnen |
ColorToHsv(c: TColor): THsv | Farbe in HSV umrechnen |
BasicColorCount(): int64 | Anzahl der Grundfarben |
BasicColorAt(index: int64): TColor | Grundfarbe an dieser Stelle |
NewColorDialog(): TColorDialog | Erzeugt den Dialog |
ChooseColor(app: TApplication, start: TColor): TColor | Zeigt den Dialog und liefert die gewählte Farbe |
Zu beachten
ChooseColorist der kurze Weg; das Objekt braucht man nur, wenn der Dialog eingebettet oder vorbelegt werden soll.- Der Farbton läuft von 0 bis 359 —
NormalizeHuefängt das Überlaufen beim Ziehen ab.
Abhängigkeiten
Importiert: Vega.Types, Vega.Events, Vega.Canvas, Vega.Theme, Vega.Control, Vega.Font, Vega.Strings, Vega.Lists, Vega.Style, Vega.StdCtrls, Vega.Edits, Vega.Extras, Vega.ExtCtrls, Vega.Forms, Vega.Dialogs
Wird importiert von: Vega.EditBtn
Letzte Aktualisierung: 2026-08-20 — Klassen, Aufzählungen, Konstanten und freie Funktionen maschinell aus Vega/ColorDlg.lyx erhoben.