-
Notifications
You must be signed in to change notification settings - Fork 66
/
Copy pathFMain.fmx
109 lines (109 loc) · 2.94 KB
/
FMain.fmx
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
object FormMain: TFormMain
Left = 0
Top = 0
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = Single
Caption = 'Text-to-Speech'
ClientHeight = 480
ClientWidth = 320
Padding.Left = 8.000000000000000000
Padding.Top = 8.000000000000000000
Padding.Right = 8.000000000000000000
Padding.Bottom = 8.000000000000000000
Position = ScreenCenter
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
OnCreate = FormCreate
DesignerMasterStyle = 2
object Memo: TMemo
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
DataDetectorTypes = []
Lines.Strings = (
'The Quick Brown Fox Jumps Over The Lazy Dog')
Align = Top
Position.X = 8.000000000000000000
Position.Y = 8.000000000000000000
Size.Width = 304.000000000000000000
Size.Height = 56.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
Viewport.Width = 296.000000000000000000
Viewport.Height = 48.000000000000000000
end
object MemoLog: TMemo
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
DataDetectorTypes = []
ReadOnly = True
Align = Client
Margins.Top = 8.000000000000000000
Size.Width = 304.000000000000000000
Size.Height = 348.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
Viewport.Width = 296.000000000000000000
Viewport.Height = 340.000000000000000000
end
object GridPanelLayout2: TGridPanelLayout
Align = Top
Margins.Top = 8.000000000000000000
Position.X = 8.000000000000000000
Position.Y = 72.000000000000000000
Size.Width = 304.000000000000000000
Size.Height = 44.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
ColumnCollection = <
item
Value = 50.000000000000010000
end
item
Value = 49.999999999999990000
end>
ControlCollection = <
item
Column = 0
Control = ButtonSpeak
Row = 0
end
item
Column = 1
Control = ButtonStop
Row = 0
end>
RowCollection = <
item
Value = 100.000000000000000000
end
item
SizeStyle = Auto
end>
object ButtonSpeak: TButton
Align = Top
Enabled = False
Margins.Top = 8.000000000000000000
Position.Y = 8.000000000000000000
Size.Width = 152.000000000000000000
Size.Height = 29.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'toolbuttonleft'
TabOrder = 2
Text = 'Speak'
OnClick = ButtonSpeakClick
end
object ButtonStop: TButton
Align = Top
Enabled = False
Margins.Top = 8.000000000000000000
Position.X = 152.000000000000000000
Position.Y = 8.000000000000000000
Size.Width = 152.000000000000000000
Size.Height = 29.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'toolbuttonright'
TabOrder = 1
Text = 'Stop'
OnClick = ButtonStopClick
end
end
end