hugo/TerminalBasic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Phase 4: Steuerelemente implementieren

Browse Source
This commit is contained in:
Chili Palmer
2026-09-05 12:49:46 +02:00
parent 1cb6ae8fd9
commit 19804e0e2d
36 changed files with 6472 additions and 689 deletions
Download Patch File Download Diff File Expand all files Collapse all files

97
tests/compat/formular.frm Normal file
View File

@@ -0,0 +1,97 @@
VERSION 1.00
Begin Form Formular
Caption = "Steuerelemente"
Height = 16
Left = 0
Top = 0
Width = 46
Begin Menu mnuDatei
Caption = "&Datei"
Begin Menu mnuOpen
Caption = "&Open"
End
End
Begin TextBox Text1
Height = 3
Left = 2
TabIndex = 0
Text = "Eingabe"
Top = 2
Width = 18
End
Begin CommandButton Command1
Caption = "&OK"
Default = -1
Height = 1
Left = 23
TabIndex = 1
Top = 3
Width = 10
End
Begin ListBox List1
Height = 5
Left = 2
Sorted = -1
TabIndex = 2
Top = 6
Width = 18
End
Begin Label Status
Caption = "bereit"
Height = 1
Left = 23
Top = 7
Width = 18
End
Begin Label TimerStatus
Caption = "Timer 0"
Height = 1
Left = 23
Top = 9
Width = 18
End
Begin Timer Timer1
Enabled = -1
Interval = 100
End
End
' tb-screen: 80x25
' tb-events: key:<TAB> | mouse:down,1,0,4,25 | mouse:up,1,0,4,25 | time:0ms | key:<ENTER> | key:%d | key:o | time:250ms
DIM SHARED Klicks%, Ticks%
Formular.Show
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
DOEVENTS
END
SUB Form_Load()
List1.ADDITEM "zwei"
List1.ADDITEM "eins"
END SUB
SUB Command1_Click()
SHARED Klicks%
Klicks% = Klicks% + 1
r% = MSGBOX("Weiter?", 0, "Klick")
Status.Caption = "Dialog " + STR$(r%)
END SUB
SUB mnuOpen_Click()
Status.Caption = "Menü"
END SUB
SUB Timer1_Timer()
SHARED Ticks%
Ticks% = Ticks% + 1
TimerStatus.Caption = "Timer " + STR$(Ticks%)
END SUB

33
tests/compat/formular.out Normal file
View File

@@ -0,0 +1,33 @@
┌ Steuerelemente ────────────────────────────┐
│ Datei │
│ ┌────────────────┐ │
│ │Eingabe │ <OK> │
│ └────────────────┘ │
│ │
│ ┌────────────────┐ │
│ │ eins │ Menü │
│ │ zwei │ │
│ │ │ Timer 2 │
│ └────────────────┘ │
│ │
│ │
│ │
│ │
└────────────────────────────────────────────┘
--- Attribute (Vordergrund/Hintergrund je Zelle, hex) ---
70707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070
70707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070
70700707070707070707070707070707070707077070707070707070707070707070707070707070707070707070
70700707070707070707070707070707070707077070700707070707070707070770707070707070707070707070
70700707070707070707070707070707070707077070707070707070707070707070707070707070707070707070
70707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070
70700707070707070707070707070707070707077070707070707070707070707070707070707070707070707070
70700707070707070707070707070707070707077070700707070707070707070707070707070707077070707070
70700707070707070707070707070707070707077070707070707070707070707070707070707070707070707070
70700707070707070707070707070707070707077070700707070707070707070707070707070707077070707070
70700707070707070707070707070707070707077070707070707070707070707070707070707070707070707070
70707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070
70707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070
70707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070
70707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070
70707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070