TTextDevice — scrollbarer Textpuffer für Log-Ausgaben und Statusmeldungen. Im Gegensatz zu TTerminal interpretiert TTextDevice keine ANSI-Escape-Sequenzen, sondern zeigt Plain-Text zeilenweise mit automatischem Scrolling an. Neue Zeilen werden am Ende angehängt; der Puffer wird nach oben gescrollt.
→ lyxvision · lyxvision.terminal · lyxvision.view
import lyxvision.textdevice;
// Textgerät in Fenster einbetten
var td: TTextDevice := TTextDeviceNew(win, 1, 1, 78, 20);
TGroupInsert(win, td);
// Zeilen anhängen (scrollen automatisch)
TTextDeviceAppend(td, "Server gestartet auf Port 8080");
TTextDeviceAppend(td, "Verbindung von 192.168.1.1");
TTextDeviceAppend(td, "Anfrage: GET /index.html");
// Farbe für neue Zeilen setzen
TTextDeviceSetColor(td, clLightRed, clBlack);
TTextDeviceAppend(td, "FEHLER: Timeout nach 30s");
TTextDeviceSetColor(td, clLightGray, clBlack);
// Puffer leeren
TTextDeviceClear(td);
| Signatur | Sichtbarkeit | Beschreibung |
|---|---|---|
TTextDeviceNew(parent: TGroup, x: int64, y: int64, w: int64, h: int64): TTextDevice | pub | Erzeugt Textpuffer-Widget |
TTextDeviceAppend(td: TTextDevice, line: pchar): void | pub | Hängt Zeile an und scrollt bei Bedarf |
TTextDeviceClear(td: TTextDevice): void | pub | Leert den Textpuffer |
TTextDeviceSetColor(td: TTextDevice, fg: int64, bg: int64): void | pub | Setzt Farbe für nachfolgende Zeilen |
TTextDeviceSetMaxLines(td: TTextDevice, n: int64): void | pub | Setzt maximale Puffer-Zeilenzahl (älteste werden entfernt) |
TTextDeviceGetLineCount(td: TTextDevice): int64 | pub | Gibt Anzahl der gespeicherten Zeilen zurück |
Letzte Aktualisierung: 2026-05-22