Whisper-Test

2026-02-04 12:23:55 +01:00
parent 0bb8dd2084
commit ef402b867a
8 changed files with 1709 additions and 0 deletions
@@ -0,0 +1,88 @@
+object Form1: TForm1
+  Left = 0
+  Top = 0
+  Caption = 'Form1'
+  ClientHeight = 757
+  ClientWidth = 771
+  FormFactor.Width = 320
+  FormFactor.Height = 480
+  FormFactor.Devices = [Desktop]
+  OnCreate = FormCreate
+  DesignerMasterStyle = 0
+  object RecordButton: TButton
+    Position.X = 56.000000000000000000
+    Position.Y = 24.000000000000000000
+    Size.Width = 113.000000000000000000
+    Size.Height = 22.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 0
+    Text = 'Record'
+    OnClick = RecordButtonClick
+  end
+  object LogMemo: TMemo
+    Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
+    DataDetectorTypes = []
+    Anchors = [akLeft, akTop, akRight]
+    Position.X = 8.000000000000000000
+    Position.Y = 84.000000000000000000
+    Size.Width = 755.000000000000000000
+    Size.Height = 77.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 1
+    Viewport.Width = 751.000000000000000000
+    Viewport.Height = 73.000000000000000000
+  end
+  object OutputMemo: TMemo
+    Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
+    DataDetectorTypes = []
+    TextSettings.WordWrap = True
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Position.X = 8.000000000000000000
+    Position.Y = 170.000000000000000000
+    Size.Width = 755.000000000000000000
+    Size.Height = 579.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 2
+    Viewport.Width = 751.000000000000000000
+    Viewport.Height = 575.000000000000000000
+  end
+  object DebugCheckBox: TCheckBox
+    IsChecked = True
+    Position.X = 176.000000000000000000
+    Position.Y = 57.000000000000000000
+    TabOrder = 3
+    Text = 'Debug-Ausgaben'
+  end
+  object InputMemo: TMemo
+    Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
+    DataDetectorTypes = []
+    Lines.Strings = (
+      
+        'Patient, m'#228'nnlich, 64 Jahre alt, Vorstellung mit akuten retroste' +
+        'rnalen Schmerzen, dauerhaft seit ca. 20 Minuten, Ausstrahlung in' +
+        ' den linken Arm, vegetative Symptomatik, Bl'#228'sse, Kaltschwei'#223'igke' +
+        'it, Verdacht auf akuten Myokardinfarkt, Sofortige not'#228'rztliche A' +
+        'larmierung und pr'#228'klinische Behandlung eingeleitet. Transport in' +
+        ' die n'#228'chste Klinik.')
+    TextSettings.WordWrap = True
+    Anchors = [akLeft, akTop, akRight]
+    Position.X = 304.000000000000000000
+    Position.Y = 8.000000000000000000
+    Size.Width = 459.000000000000000000
+    Size.Height = 68.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 4
+    Viewport.Width = 439.000000000000000000
+    Viewport.Height = 64.000000000000000000
+  end
+  object LLMButton: TButton
+    Position.X = 56.000000000000000000
+    Position.Y = 54.000000000000000000
+    Size.Width = 112.000000000000000000
+    Size.Height = 22.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 5
+    Text = 'LLM'
+    OnClick = LLMButtonClick
+  end
+end