Forms-Zustand und Darstellung korrigieren und Change archivieren

tests/compat/listenauswahl.frm

@@ -0,0 +1,43 @@
+VERSION 1.00
+Begin Form Form1
+   Begin ListBox List1
+      Sorted = -1
+   End
+   Begin ComboBox Combo0
+      Style = 0
+      Text = "frei0"
+   End
+   Begin ComboBox Combo1
+      Style = 1
+      Text = "frei1"
+   End
+   Begin ComboBox Combo2
+      Style = 2
+   End
+End
+
+' tb-screen: 80x25
+' Vertragsnachweis: Auswahlverschiebung und unabhängiger Combo-Eingabetext.
+Form1.Hide
+CLS
+List1.ListIndex = -1
+PRINT "leer="; LTRIM$(STR$(List1.ListIndex))
+List1.Sorted = 0
+List1.ADDITEM "b"
+List1.ListIndex = 0
+List1.ADDITEM "a"
+List1.Sorted = -1
+PRINT "auswahl="; LTRIM$(STR$(List1.ListIndex)); ":"; List1.Text
+List1.REMOVEITEM 1
+PRINT "entfernt="; LTRIM$(STR$(List1.ListIndex)); ":"; List1.Text
+Combo0.ADDITEM "wahl"
+Combo1.ADDITEM "wahl"
+Combo2.ADDITEM "wahl"
+Combo0.ListIndex = 0
+Combo1.ListIndex = 0
+Combo2.ListIndex = 0
+Combo0.ListIndex = -1
+Combo1.ListIndex = -1
+Combo2.ListIndex = -1
+PRINT "combo="; Combo0.Text; "/"; Combo1.Text; "/"; Combo2.Text
+END

tests/compat/listenauswahl.out

@@ -0,0 +1,4 @@
+leer=-1
+auswahl=1:b
+entfernt=-1:
+combo=frei0/frei1/

tests/compat/timer-aktivierung.frm

@@ -0,0 +1,26 @@
+VERSION 1.00
+Begin Form Form1
+   Begin Timer Timer1
+      Interval = 0
+   End
+End
+
+' tb-screen: 80x25
+' tb-events: time:0ms
+' Hostfristen: Aktivierung 1000, erstes Ereignis beendet SLEEP bei 1100 ms.
+DIM SHARED n%
+SLEEP 1
+Timer1.Interval = 100
+vor% = n%
+SLEEP 1
+nach% = n%
+Timer1.Interval = 0
+Form1.Hide
+CLS
+PRINT "vor="; LTRIM$(STR$(vor%))
+PRINT "nach="; LTRIM$(STR$(nach%))
+END
+SUB Timer1_Timer()
+SHARED n%
+n% = n% + 1
+END SUB

tests/compat/timer-aktivierung.out

@@ -0,0 +1,2 @@
+vor=0
+nach=1