Phase 6: Plattformprüfungen und absolute RGB-Farben, Change 05 archivieren

tests/platform/input.frm

@@ -0,0 +1,103 @@
+VERSION 1.00
+Begin Form Probe
+   Caption = "Plattformprobe: Ereignisse genau einmal"
+   Width = 70
+   Height = 18
+   Begin Menu mnuDatei
+      Caption = "&Datei"
+      Begin Menu mnuEnde
+         Caption = "&Ende"
+      End
+   End
+   Begin Label Hint
+      Caption = "Textfeld: F1-F12 / Modifier. Datei > Ende beendet."
+      Left = 2
+      Top = 2
+      Width = 65
+      Height = 1
+   End
+   Begin TextBox Text1
+      Left = 2
+      Top = 4
+      Width = 50
+      Height = 1
+      TabIndex = 0
+   End
+   Begin Label Counts
+      Caption = "Down/Up/Press/Click/Move: 0/0/0/0/0"
+      Left = 2
+      Top = 6
+      Width = 65
+      Height = 1
+   End
+   Begin Label Unicode
+      Caption = "Unicode: ÄÖÜ äöü ß – 中界 ┌─┐"
+      Left = 2
+      Top = 8
+      Width = 60
+      Height = 1
+   End
+   Begin CommandButton Count
+      Caption = "&Zählen"
+      Left = 2
+      Top = 10
+      Width = 14
+      Height = 1
+      TabIndex = 1
+   End
+   Begin CommandButton Done
+      Caption = "&Ende"
+      Default = -1
+      Left = 20
+      Top = 10
+      Width = 14
+      Height = 1
+      TabIndex = 2
+   End
+End
+DIM SHARED downs&, ups&, presses&, clicks&, moves&
+OPEN "platform-events.log" FOR OUTPUT AS #1
+CLOSE #1
+Probe.Show
+Text1.SetFocus
+
+SUB RecordEvent(kind$, code%, modifiers%)
+OPEN "platform-events.log" FOR APPEND AS #1
+PRINT #1, kind$; ":"; code%; ":"; modifiers%
+CLOSE #1
+Counts.Caption = "Down/Up/Press/Click/Move:" + STR$(downs&) + "/" + STR$(ups&) + "/" + STR$(presses&) + "/" + STR$(clicks&) + "/" + STR$(moves&)
+END SUB
+SUB Text1_KeyDown(KeyCode AS INTEGER, Shift AS INTEGER)
+downs& = downs& + 1
+CALL RecordEvent("Down", KeyCode, Shift)
+END SUB
+SUB Text1_KeyUp(KeyCode AS INTEGER, Shift AS INTEGER)
+ups& = ups& + 1
+CALL RecordEvent("Up", KeyCode, Shift)
+END SUB
+SUB Text1_KeyPress(KeyAscii AS INTEGER)
+presses& = presses& + 1
+CALL RecordEvent("Press", KeyAscii, 0)
+END SUB
+SUB Probe_MouseDown(Button AS INTEGER, Shift AS INTEGER, X AS SINGLE, Y AS SINGLE)
+CALL RecordEvent("MouseDown", Button, Shift)
+END SUB
+SUB Probe_MouseUp(Button AS INTEGER, Shift AS INTEGER, X AS SINGLE, Y AS SINGLE)
+CALL RecordEvent("MouseUp", Button, Shift)
+END SUB
+SUB Probe_MouseMove(Button AS INTEGER, Shift AS INTEGER, X AS SINGLE, Y AS SINGLE)
+moves& = moves& + 1
+CALL RecordEvent("MouseMove", Button, Shift)
+END SUB
+SUB Count_Click()
+clicks& = clicks& + 1
+CALL RecordEvent("Click", 0, 0)
+END SUB
+SUB Done_Click()
+CALL RecordEvent("End", 0, 0)
+END
+END SUB
+SUB mnuEnde_Click()
+CALL RecordEvent("End", 0, 0)
+END
+END SUB