Zum Inhalt

AdjustFontsPage (IPage)

Eigenschaft Wert
Modul Mcdu/Pages
Klasse AdjustFontsPage
Typ IPage Implementation
Sichtbarkeit Public
Datei Mcdu/Pages/DisplayAdjustPages.vb

Beschreibung

ADJUST FONTS Seite — Groessen der grossen und kleinen MCDU-Schriftarten anpassen. Zeigt links Beispielzeilen (TITLE/LINE) als Vorschau und rechts die aktuellen Faktoren fuer BIG FONT SIZE (R1) und SMALL FONT SIZE (R2). Scratchpad-Eingabe setzt den Faktor, CLR setzt auf Standardwert 10 zurueck. R1 sendet Register 2235 (CPT) bzw. 2348 (FO), R2 sendet Register 2236 (CPT) bzw. 2349 (FO). R6 kehrt zu McduMenuVisual zurueck. Portiert aus VB6 CreateADJUSTFONTS / ProcessADJUSTFONTS.

Implementierte Methoden

Render

Public Sub Render(ctx As McduContext, buffer As Inet.Arinc429ScreenBuffer) Implements IPage.Render
Name Typ Beschreibung Standard
ctx McduContext MCDU-Kontextdaten —
buffer Inet.Arinc429ScreenBuffer Zielpuffer fuer die gerenderten ARINC-429-Bildschirmdaten —

HandleLsk

Public Function HandleLsk(key As McduLskKey, ctx As McduContext) As McduCommand Implements IPage.HandleLsk
Name Typ Beschreibung Standard
key McduLskKey Gedrueckte LSK-Taste —
ctx McduContext MCDU-Kontextdaten —

Rückgabewert (HandleLsk)

Typ Beschreibung
McduCommand SendDisplayRegister(2235/2236) bei R1/R2, NavigateTo(McduMenuVisual) bei R6, NoOp sonst

Ablaufdiagramm

flowchart TD
    A[Start Render] --> B[LISTCLEAR senden]
    B --> C[Titel ADJUST FONTS]
    C --> D[L1-L3: Beispielzeilen TITLE/LINE]
    D --> E[R1: BIG FONT SIZE Faktor gelb]
    E --> F[R2: SMALL FONT SIZE Faktor gelb]
    F --> G[R6: RETURN]
    G --> H[ParseAndRender]
    H --> I[Ende]

Aufgerufen von

Modul Sub/Function Kontext
McduActor RenderActivePage Seitenrendering bei aktivem PageType.AdjustFonts

Ruft auf

Modul Sub/Function Kontext
McduCommandParser ParseAndRender Kommandoliste in Bildschirmpuffer rendern
SendDisplayRegister (McduCommand) Register 2235/2236 mit Faktorwert senden

Beispiel

Dim page As New AdjustFontsPage()
page.Render(ctx, buffer)

' Scratchpad "12" eingeben, R1 druecken → Big Font Faktor auf 12 setzen
Dim cmd = page.HandleLsk(McduLskKey.R1, ctx)
' cmd ist SendDisplayRegister(2235, "12")

Änderungshistorie

Version Datum Änderung
1.0 2026-04-16 Erstdokumentation