Vega.Extras — Die kleinen Steuerelemente

Neun Elemente, die nichts grundsätzlich Neues können: sie setzen zusammen, was Vega.StdCtrls und Vega.ListCtrls schon können. Ihr Nutzen liegt darin, dass man sie nicht jedes Mal von Hand zusammenbaut — Trennlinien, Formen, flache Knöpfe, eine Auswahlgruppe, eine Liste mit Kästchen, ein Pfeilpaar, eine Fläche zum Selberzeichnen.

Quelldatei: Vega/Extras.lyx

→ Alle Units · Alle Steuerelemente · Vega VCL

Klassen

Klasse Basis Zweck
TBevel TControl Trennlinie oder Rahmen, rein zierend — nimmt keine Eingaben an
TBitBtn TButton Knopf mit Bild und Standardrolle (BK_OK, BK_CANCEL …)
TCheckListBox TListBox Liste, in der jeder Eintrag ein Kästchen trägt
TPaintBox TControl Leere Fläche für OnPaint — der Weg zu eigener Darstellung ohne eigene Klasse
TRadioGroup TGroupBox Beschrifteter Rahmen mit eigenen Auswahlknöpfen, ein- oder mehrspaltig
TShape TControl Rechteck, Ellipse, Kreis, Quadrat, wahlweise gefüllt
TSpeedButton TCustomButton Flacher Knopf mit Bild, gruppierbar über GroupIndex
TStaticText TControl Text mit Rahmen, wahlweise mit Fokusweitergabe an ein anderes Control
TUpDown TControl Pfeilpaar ohne Eingabefeld, wahlweise an ein TEdit gebunden

Aufzählungen

Enum Werte Zweck
TBevelShape BVS_BOX (0), BVS_FRAME (1), BVS_TOP_LINE (2), BVS_BOTTOM_LINE (3), BVS_LEFT_LINE (4), BVS_RIGHT_LINE (5), BVS_SPACER (6) Form einer TBevel
TBitBtnKind BK_CUSTOM (0), BK_OK (1), BK_CANCEL (2), BK_YES (3), BK_NO (4), BK_HELP (5), BK_CLOSE (6) Standardrolle eines TBitBtn — bestimmt Beschriftung und ModalResult
TBorderStyle BS_NONE (0), BS_SINGLE (1), BS_LOWERED (2), BS_RAISED (3) Rahmenart, auch von anderen Units benutzt
TColumnLayout CL_TOP_TO_BOTTOM (0), CL_LEFT_TO_RIGHT (1) Füllrichtung einer mehrspaltigen TRadioGroup
TShapeKind SHP_RECTANGLE (0), SHP_ROUND_RECT (1), SHP_ELLIPSE (2), SHP_CIRCLE (3), SHP_SQUARE (4), SHP_ROUND_SQUARE (5) Form einer TShape

Konstanten

Name Typ Wert Bedeutung
VEGA_CLB_MAX int64 256 Höchstzahl der Einträge einer TCheckListBox

Freie Funktionen

Signatur Zweck
NewStaticText(caption: pchar): TStaticText Erzeugt ein TStaticText mit dieser Beschriftung
DrawBorder(canvas: TCanvas, r: TRect, style: int64, th: TTheme): void Zeichnet einen Rahmen der angegebenen Art — von mehreren Controls gemeinsam benutzt
NewBevel(shape: int64): TBevel Erzeugt eine TBevel dieser Form
NewShape(kind: int64): TShape Erzeugt eine TShape dieser Art
NewSpeedButton(caption: pchar): TSpeedButton Erzeugt ein TSpeedButton mit dieser Beschriftung
NewBitBtn(kind: int64): TBitBtn Erzeugt ein TBitBtn in dieser Standardrolle
NewGlyphButton(caption: pchar, glyphPath: pchar): TBitBtn Erzeugt ein TBitBtn mit Beschriftung und Bild aus einer Datei
NewRadioGroup(caption: pchar): TRadioGroup Erzeugt eine TRadioGroup mit dieser Beschriftung
NewCheckListBox(): TCheckListBox Erzeugt eine leere TCheckListBox
NewUpDown(): TUpDown Erzeugt ein TUpDown
NewPaintBox(): TPaintBox Erzeugt eine TPaintBox

Zu beachten

  • TSpeedButton und TBitBtn hängen beide an TCustomButton in Vega.StdCtrls. Alles zum Bild auf dem Knopf — Glyph, NumGlyphs, Layout, Spacing, Margin — steht dort und nicht hier.
  • Der Rahmen-Enum heißt BS_LOWERED, nicht BS_SUNKEN. TPanel benutzt ihn übrigens nicht — dort heißt die Eigenschaft Border und nimmt PB_*-Werte.
  • TBevel und TShape nehmen keine Eingaben an: sie liegen unter der Maus, ohne sie abzufangen.
  • TUpDown schreibt in ein verbundenes Feld nur, wenn SetAssociate gerufen wurde; ohne Verbindung bleibt es ein reines Pfeilpaar mit Position.
  • Eine TRadioGroup verwaltet ihre Auswahlknöpfe selbst — Einträge kommen über Items, nicht als Kinder von Hand.

Abhängigkeiten

Importiert: Vega.Types, Vega.Events, Vega.Canvas, Vega.Theme, Vega.Control, Vega.Font, Vega.Strings, Vega.Lists, Vega.Style, Vega.StdCtrls, Vega.ListCtrls, Vega.Picture

Wird importiert von: Vega.ColorDlg, Vega.FontDlg, Vega.Images, Vega.Layout, Vega.LfmClasses, Vega.LfmLoad, Vega.LfmSave, Vega.ListView, Vega.Trees

Letzte Aktualisierung: 2026-08-20 — Klassen, Aufzählungen, Konstanten und freie Funktionen maschinell aus Vega/Extras.lyx erhoben.