====== TGridPanel — Kinder in einem Raster ======

Ein [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]], das seine Kinder in **Zeilen und Spalten** setzt. Die Bänder — ''ColumnCollection'' und ''RowCollection'' — legen fest, wie breit bzw. hoch jede Spur ist: fest in Pixeln oder anteilig am verbleibenden Platz.

Unit: ''vega.extctrls'' · Basis: [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]]

→ [[lyx_-_programmiersprache:vega:controls|Alle Steuerelemente]] · [[lyx_-_programmiersprache:vega:klassenbaum|Klassenbaum]] · [[lyx_-_programmiersprache:vega:guides:komponenten|Guide: Komponenten]]

----

===== Vererbung =====

**Kette:** [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] → [[lyx_-_programmiersprache:vega:controls:tcontrol|TControl]] → [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] → **TGridPanel**

**Direkte Nachfahren:** keine — diese Klasse wird nicht weiter abgeleitet.

**Quelle:** ''vega/extctrls.lyx''

----

===== Verwendung =====

<code lyx>
var gp: TGridPanel := new TGridPanel();
gp.SetBounds(8, 8, 400, 160);
gp.SetCellSpacing(4);
gp.SetParent(f);

// zwei Spalten: erste fest, zweite nimmt den Rest
gp.ColumnCollection.AddBand(BAND_ABSOLUTE, 120);
gp.ColumnCollection.AddBand(BAND_PERCENT, 100);
gp.RowCollection.AddBand(BAND_ABSOLUTE, 28);
gp.RowCollection.AddBand(BAND_ABSOLUTE, 28);

var l: TLabel := new TLabel("Name");
l.SetParent(gp as TControl);
gp.ControlCollection.SetPosition(l as TControl, 0, 0);   // Spalte, Zeile
</code>

Wie beim [[lyx_-_programmiersprache:vega:controls:tflowpanel|TFlowPanel]] gilt: die Position der Kinder bestimmt das Panel, nicht das Kind.

----

===== Besonderheiten =====

  * **Drei Sammlungen, drei Aufgaben:** ''ColumnCollection'' und ''RowCollection'' beschreiben die Spuren, ''ControlCollection'' merkt sich, welches Kind in welcher Zelle sitzt.
  * **''CellSpacing'' ist der Abstand zwischen den Zellen** — der Rahmen des Panels selbst wird über die geerbten ''Bevel''-Eigenschaften eingestellt.
  * **Anteilige Spuren teilen sich, was übrig bleibt**, nachdem die festen Spuren ihren Platz bekommen haben. Ein Raster ganz aus anteiligen Spuren verteilt gleichmäßig.

----

===== Eigenschaften =====

Alle Eigenschaften, auch die geerbten.

^ Name ^ Typ ^ Bedeutung ^ Herkunft ^
| ''ComponentState'' | [[lyx_-_programmiersprache:sprache:datentypen#1_ganzzahl-typen_signiert|int64]] | Zustand als Bitmaske (''csLoading'', ''csDestroying'' …) | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''ComponentStyle'' | [[lyx_-_programmiersprache:sprache:datentypen#1_ganzzahl-typen_signiert|int64]] | Stil als Bitmaske; Vorgabe ''csInheritable'' | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''Name'' | [[lyx_-_programmiersprache:sprache:datentypen#8_zeiger|pchar]] | Name der Komponente — für ''FindComponent'' und beim Laden aus LFM | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''OwnedComponents'' | [[lyx_-_programmiersprache:vega:controls:tobjectlist|TObjectList]] | Die Komponenten, die DIESER gehoeren. Delphis Components[]. Zeigerliste, keine Kopien: TObjectList hält int64-Adressen | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''Owner'' | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] | Wer diese Komponente wegraeumt. Nicht der Elternteil im Zeichenbaum — das ist bei TControl `Parent` | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''Tag'' | [[lyx_-_programmiersprache:sprache:datentypen#1_ganzzahl-typen_signiert|int64]] | Freier Wert für eigene Zwecke; die Bibliothek fasst ihn nicht an | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''Alignment'' | [[lyx_-_programmiersprache:sprache:datentypen#1_ganzzahl-typen_signiert|int64]] | Beschriftung mittig auf der Flaeche, wie in Delphi | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''BevelColor'' | ''TColor'' | Eigene Kantenfarbe. Durchsichtig heißt "Farben des Themes nehmen" — hell oben links, dunkel unten rechts | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''BevelInner'' | [[lyx_-_programmiersprache:sprache:datentypen#1_ganzzahl-typen_signiert|int64]] | Innere Kante: erhaben, vertieft oder keine | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''BevelOuter'' | [[lyx_-_programmiersprache:sprache:datentypen#1_ganzzahl-typen_signiert|int64]] | Delphis Kanten: aussen, innen, Breite jeder Kante, Abstand dazwischen | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''BevelWidth'' | [[lyx_-_programmiersprache:sprache:datentypen#1_ganzzahl-typen_signiert|int64]] | Breite der Kanten in Pixeln | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''Border'' | [[lyx_-_programmiersprache:sprache:datentypen#1_ganzzahl-typen_signiert|int64]] | Der aeltere Vega-Rahmen. Er bleibt, weil bestehende Formulare ihn setzen; PB_RAISED/PB_SUNKEN sind dasselbe wie BevelOuter, PB_SINGLE ist eine Linie, die Delphi so nicht kennt | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''ParentBackground'' | [[lyx_-_programmiersprache:sprache:datentypen#5_wahrheitswerte_bool|bool]] | Hintergrund nicht selbst fuellen, sondern den des Elternteils nehmen | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''ShowAccelChar'' | [[lyx_-_programmiersprache:sprache:datentypen#5_wahrheitswerte_bool|bool]] | ''&'' im Text als Tastenkürzel deuten statt anzuzeigen | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''TextLayout'' | [[lyx_-_programmiersprache:sprache:datentypen#1_ganzzahl-typen_signiert|int64]] | Senkrechte Ausrichtung der Beschriftung | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''CellSpacing'' | [[lyx_-_programmiersprache:sprache:datentypen#1_ganzzahl-typen_signiert|int64]] | Abstand zwischen den Zellen | eigen |
| ''ColumnCollection'' | ''TGridPanelBands'' | Die Spalten des Rasters | eigen |
| ''ControlCollection'' | ''TGridPanelControls'' | Zuordnung Kind → Zelle | eigen |
| ''RowCollection'' | ''TGridPanelBands'' | Die Zeilen des Rasters | eigen |

----

===== Methoden =====

Alle Methoden, auch die geerbten.

^ Signatur ^ Zweck ^ Herkunft ^
| ''ClearState(bits: int64): void'' | Zustandsbits löschen | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''ComponentCount(): int64'' | Anzahl der eigenen Komponenten | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''ComponentIndex(): int64'' | Delphis ComponentIndex: der eigene Platz in der Liste des Besitzers | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''Components(index: int64): TComponent'' | Eigene Komponente an dieser Stelle | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''Destroy(): void'' | Raeumt die eigene Liste ab, aber NICHT die Einträge — welche Komponenten ihre Besitztuemer mitnehmen, entscheidet die Ableitung über DestroyComponents() | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''DestroyComponents(): void'' | Baut die Besitztuemer ab. Von hinten, weil jedes Destroy() sich selbst aus der Liste austraegt | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''FindComponent(name: pchar): TComponent'' | Sucht unter den EIGENEN Komponenten, eine Ebene tief — wie in Delphi | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''GetName(): pchar'' | Namen lesen | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''GetNamePath(): pchar'' | Der eigene Name. Delphi hängt bei Unterkomponenten den des Besitzers davor; Vega hat keine, also ist es der Name selbst | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''GetTag(): int64'' | ''Tag'' lesen | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''HasState(bits: int64): bool'' | Sind diese Zustandsbits gesetzt | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''InitComponent(): void'' | Kein Konstruktor: lyxc vererbt Konstruktoren nicht, jede Ableitung ruft InitComponent() im eigenen Create() | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''InsertComponent(c: TComponent): void'' | Komponente in Besitz nehmen; ein bisheriger Besitzer gibt sie ab | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''RemoveComponent(c: TComponent): void'' | Komponente aus dem Besitz nehmen | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''SetName(v: pchar): void'' | Setzt ''Name'' | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''SetState(bits: int64): void'' | Zustand setzen | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''SetTag(v: int64): void'' | Setzt ''Tag'' | [[lyx_-_programmiersprache:vega:controls:tcomponent|TComponent]] |
| ''BorderStyle(): int64'' | Delphis BorderStyle kennt genau zwei Werte: kein Rahmen oder eine Linie. Das ist ein Ausschnitt aus Border (PB_*), und beide zeigen hier auf dasselbe Feld | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''ContentRect(): TRect'' | Die Flaeche innerhalb aller Kanten und Raender. Dahin gehört die Beschriftung — und wer Kinder von Hand setzt, rechnet damit. BorderWidth ist das geerbte Feld von TControl; die … | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''Create(): void'' | Anlegen; ''new TGridPanel()'' | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''SetAlignment(v: int64): void'' | Setzt ''Alignment'' | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''SetBevelColor(v: TColor): void'' | Setzt ''BevelColor'' | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''SetBevelInner(v: int64): void'' | Setzt ''BevelInner'' | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''SetBevelOuter(v: int64): void'' | Setzt ''BevelOuter'' | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''SetBevelWidth(v: int64): void'' | Setzt ''BevelWidth'' | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''SetBorderStyle(v: int64): void'' | Fensterrahmen setzen | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''SetCaptionText(s: pchar): void'' | Text setzen und neu zeichnen | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''SetTextLayout(v: int64): void'' | Setzt ''TextLayout'' | [[lyx_-_programmiersprache:vega:controls:tpanel|TPanel]] |
| ''AddCellChild(c: TControl, col: int64, row: int64): TGridPanelControl'' | Ein Kind aufnehmen und in eine Zelle setzen | eigen |
| ''ArrangeGrid(): void'' | Jedes eingetragene Kind auf seine Zelle setzen. Kinder ohne Eintrag oder mit einer Zelle außerhalb des Rasters bleiben, wo sie sind — siehe Kopf, Abschnitt ExpandStyle | eigen |
| ''CellRect(col: int64, row: int64): TRect'' | Das Rechteck einer Zelle, in Koordinaten der Flaeche | eigen |
| ''ColumnCount(): int64'' | Zahl der Spalten | eigen |
| ''ColumnWidth(i: int64): int64'' | Breite einer Spalte. Bei einer Spalte ist das die ganze Flaeche | eigen |
| ''Create(): void'' | Anlegen; ''new TGridPanel()'' | eigen |
| ''Destroy(): void'' | Gibt eigene Ressourcen frei | eigen |
| ''RowCount(): int64'' | Zahl der Zeilen | eigen |
| ''RowHeight(i: int64): int64'' | Höhe einer Zeile | eigen |
| ''SetGridSize(cols: int64, rows: int64): void'' | Ein gleichmaessiges Raster aufspannen — der haeufigste Fall, und ohne ihn muesste jeder Aufrufer zwei Schleifen schreiben | eigen |

----

Letzte Aktualisierung: 2026-09-05 — Seite neu angelegt; erhoben aus ''vega/extctrls.lyx'' im Repo ''lyx-vcl''.