Files
Misc/Whisper/WhisperMain.fmx
Michael Schimmel ef402b867a Whisper-Test
2026-02-04 12:23:55 +01:00

89 lines
2.9 KiB
Plaintext

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