Das Herz der VCL: Baum, Geometrie, Zeichnen, Ereignisse, Fokus, Anker. Vega arbeitet im Retained Mode — der Baum bleibt bestehen und wird neu gezeichnet, wenn sich etwas ändert; die Anwendung beschreibt nicht jedes Bild neu. Hier stehen außerdem die Handler-Typen, die jedes Control benutzt.
Quelldatei: Vega/Control.lyx
→ Alle Units · Alle Steuerelemente · Vega VCL
| Klasse | Basis | Zweck |
|---|---|---|
| TControl | TComponent | Basisklasse und zugleich roher Container |
| Name | Zweck |
|---|---|
IControlProps | Kleiner Vertrag über Lage, Größe und Elternteil — damit Layoutcode nicht die ganze Klasse kennen muss |
| Name | Ist | Zweck |
|---|---|---|
TNotifyEvent | fn(sender: TControl): void | Handler ohne Zusatzangaben: fn(sender: TControl): void |
TMouseEvent | fn(sender: TControl, x: int64, y: int64, button: int64): void | Maus: Position, Taste, Zusatztasten |
TKeyEvent | fn(sender: TControl, key: int64, modifiers: int64): void | Taste gedrückt oder losgelassen |
TCharEvent | fn(sender: TControl, cp: int64): void | Eingegebenes Zeichen |
TWheelEvent | fn(sender: TControl, delta: int64): void | Mausrad mit Drehrichtung |
TPaintEvent | fn(sender: TControl, canvas: TCanvas): void | Zeichnen auf einem übergebenen TCanvas |
TDragOverEvent | fn(sender: TControl, source: TControl,
x: int64, y: int64): bool | Über einem möglichen Ziel; Rückgabe true nimmt an |
TDragDropEvent | fn(sender: TControl, source: TControl,
x: int64, y: int64): void | Etwas wurde abgelegt |
TDragEndEvent | fn(sender: TControl, target: TControl,
x: int64, y: int64): void | Ziehgeste beendet; target ist 0 bei Abbruch |
TFocusFn | fn(c: TControl): bool | Haken, über den Vega.Dispatch das Fokussetzen einträgt |
| Name | Typ | Wert | Bedeutung |
|---|---|---|---|
VEGA_MAX_CHILDREN | int64 | 64 | Höchstzahl der Kinder eines Controls |
| Signatur | Zweck |
|---|---|
SetFocusSetter(f: TFocusFn): void | Trägt die Funktion ein, die den Fokus setzen kann — gerufen von Vega.Dispatch beim Start |
NewControl(): TControl | Erzeugt ein rohes TControl als Container |
c.Left := 20 verschiebt still, c.SetLeft(20) zeichnet neu. Für Berechnungen ist der direkte Feldzugriff richtig.b.OnClick := AufKlick — ohne Klammern. Ein nicht gesetzter Handler ist 0.SetFocusSetter. Derselbe Haken-Mechanismus trägt auch Kontextmenüs ein.TFocusFn steht im Quelltext vor seiner ersten Verwendung — sonst macht lyxc still zwei Variablen daraus (#1665).[64]TControl würde Kopien statt Referenzen ablegen (#1646).
Importiert: Vega.Types, Vega.Component, Vega.Events, Vega.Canvas, Vega.Theme, Vega.Strings, Vega.Lists, Vega.Style, Vega.Font · Standardbibliothek: std.time
Wird importiert von: Vega.Actions, Vega.Calendar, Vega.Chrome, Vega.ColorCtrls, Vega.ColorDlg, Vega.DateTimePicker, Vega.Dialogs, Vega.Dispatch, Vega.EditBtn, Vega.Edits, Vega.ExtCtrls, Vega.Extras, Vega.FileDlg, Vega.FontDlg, Vega.Forms, Vega.Grids, Vega.Hints, Vega.Images, Vega.Layout, Vega.LfmClasses, Vega.LfmLoad, Vega.LfmSave, Vega.ListCtrls, Vega.ListView, Vega.MaskEdit, Vega.Menus, Vega.StdCtrls, Vega.Trees, Vega.ValueList
Letzte Aktualisierung: 2026-08-20 — Klassen, Aufzählungen, Konstanten und freie Funktionen maschinell aus Vega/Control.lyx erhoben.