Vega — Eigenschaften

Jedes Steuerelement erbt von TControl und damit denselben Satz Eigenschaften: Geometrie, Zustand, Ausrichtung, Schrift, Zeiger. Wer sie kennt, kennt 90 % jeder Vega-Komponente — der Rest sind die paar Felder, die eine Liste, ein Eingabefeld oder ein Fortschrittsbalken zusätzlich mitbringt.

→ Erste Anwendung · Ereignisse · Komponenten

Mehrere Zuweisungen hintereinander zieht man mit BeginUpdate() / EndUpdate() zusammen: dazwischen wird nicht neu gezeichnet.

Align verteilt Fläche, Anchors verteilt Zuwachs.

Die Reihenfolge der Kinder ist das Layout: Ränder zuerst anlegen, das AL_CLIENT-Kind zuletzt — jedes ausgerichtete Kind nimmt sich seinen Streifen vom verbleibenden Rest.

Anchors ist eine Bitmaske aus ANCHOR_LEFT (1), ANCHOR_TOP (2), ANCHOR_RIGHT (4) und ANCHOR_BOTTOM (8). Vorgabe ist ANCHOR_LEFT | ANCHOR_TOP — das Element bleibt oben links kleben. Mit ANCHOR_RIGHT | ANCHOR_BOTTOM wandert es beim Vergrößern mit.

Parent ist die zeichnerische Verschachtelung, Owner die logische Zugehörigkeit (meist die Form). Eingehängt wird über SetParent(eltern) oder eltern.AddChild(kind) — beides tut dasselbe, aus unterschiedlicher Richtung geschrieben.

Owner kommt seit dem Komponenten-Split von TComponent und ist darum vom Typ TComponent. sender.Owner as TForm schreibt sich unverändert; wer den Besitzer als Control braucht, nimmt sender.OwnerControl() und spart die Umwandlung (beides nachgemessen).

unit Main;

import std.io;
import Vega.Types;
import Vega.Events;
import Vega.Canvas;
import Vega.Theme;
import Vega.Control;
import Vega.Font;
import Vega.Strings;
import Vega.Lists;
import Vega.Style;
import Vega.StdCtrls;
import Vega.Backend;
import Vega.BackendAuto;
import Vega.Forms;

var g_app: TApplication;

fn OnBeenden(sender: TControl): void { g_app.Terminate(); }

fn main(): int64 {
  g_app := new TApplication(NewPlatformBackend());
  if (!g_app.Ready) { PrintLn("Kein Fenstersystem erreichbar."); return 1; }

  var f: TForm := new TForm(420, 260, "Eigenschaften");

  // Geometrie: einzeln oder in einem Zug
  var l: TLabel := new TLabel("Kopfzeile");
  l.BeginUpdate();                 // sammelt Aenderungen, ein Neuzeichnen
  l.Left := 12;
  l.Top := 10;
  l.Width := 200;
  l.Height := 18;
  l.EndUpdate();
  l.SetParent(f);

  // Zustand
  var b: TButton := new TButton("Gesperrt");
  b.SetBounds(12, 40, 120, 28);
  b.Enabled := false;
  b.Tag := 42;                     // freier Wert fuer die Anwendung
  b.Name := "btnGesperrt";         // Bezeichner, auch fuer LFM
  b.SetParent(f);

  // Groessengrenzen gelten auch beim Layout und beim Ziehen am Rand
  var seite: TPanel := new TPanel();
  seite.Align := AL_LEFT;
  seite.Width := 120;
  seite.MinWidth := 80;
  seite.MaxWidth := 200;
  seite.SetParent(f);

  // Anker: was beim Vergroessern mitwandert
  var unten: TButton := new TButton("Beenden");
  unten.SetBounds(280, 210, 120, 28);
  unten.Anchors := ANCHOR_RIGHT | ANCHOR_BOTTOM;
  unten.OnClick := OnBeenden;
  unten.SetParent(f);

  if (!g_app.ShowForm(f)) { return 2; }
  f.ApplyLayout();
  g_app.Run();
  g_app.Shutdown();
  return 0;
}

Nachgemessen mit lyxc 1.1.3I: übersetzt fehlerfrei (lyxc eigenschaften.lyx -I . -I platform/linux -o eigenschaften, rund 765 KB).

Vega zeichnet nicht von selbst neu. Die Setter (SetCaption, SetText, …) lösen es aus; wer ein Feld direkt beschreibt, ruft danach Invalidate(). Bei Layoutänderungen an verschachtelten Containern zusätzlich ApplyLayout() — es wirkt nur eine Ebene tief.

Letzte Aktualisierung: 2026-08-19 — Beispiel mit lyxc 1.1.3I übersetzt; Eigenschaften gegen Vega/Control.lyx abgeglichen.