-
Notifications
You must be signed in to change notification settings - Fork 8
Expand file tree
/
Copy pathForms.Main.fmx
More file actions
198 lines (198 loc) · 5.92 KB
/
Forms.Main.fmx
File metadata and controls
198 lines (198 loc) · 5.92 KB
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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
object MainForm: TMainForm
Left = 0
Top = 0
Caption = 'Read What You See'
ClientHeight = 480
ClientWidth = 640
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
OnCreate = FormCreate
OnShow = FormShow
DesignerMasterStyle = 0
object Splitter1: TSplitter
Align = Right
Cursor = crHSplit
MinSize = 20.000000000000000000
Position.X = 428.000000000000000000
Position.Y = 40.000000000000000000
Size.Width = 4.000000000000000000
Size.Height = 440.000000000000000000
Size.PlatformDefault = False
end
object ToolBar1: TToolBar
Padding.Left = 8.000000000000000000
Padding.Top = 8.000000000000000000
Padding.Right = 8.000000000000000000
Padding.Bottom = 8.000000000000000000
Size.Width = 640.000000000000000000
Size.Height = 40.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
object BtnOpenFile: TSpeedButton
Action = ActOpenFile
Align = Left
Enabled = True
ImageIndex = -1
Position.X = 8.000000000000000000
Position.Y = 8.000000000000000000
Size.Width = 80.000000000000000000
Size.Height = 24.000000000000000000
Size.PlatformDefault = False
end
object TargetLanguageComboBox: TComboBox
Align = Right
Items.Strings = (
'ar-AE: Arabic (Gulf)'
'nl-BE: Dutch (Belgian)'
'da-DK: Danish'
'nl-NL: Dutch'
'en-AU: English (Australian)'
'en-GB: English (British)'
'en-IN: English (Indian)'
'en-IE: English (Ireland)'
'en-NZ: English (New Zealand)'
'en-ZA: English (South African)'
'en-US: English (US)'
'fi-FI: Finnish'
'fr-FR: French'
'fr-BE: French (Belgian)'
'fr-CA: French (Canadian)'
'de-DE: German'
'de-AT: German (Austrian)'
'is-IS: Icelandic'
'it-IT: Italian'
'ja-JP: Japanese'
'ko-KR: Korean'
'nb-NO: Norwegian'
'pl-PL: Polish'
'pt-BR: Portuguese (Brazil)'
'pt-PT: Portuguese (European)'
'ro-RO: Romanian'
'ru-RU: Russian'
'es-ES: Spanish (European)'
'es-MX: Spanish (Mexican)'
'es-US: Spanish (US)'
'sv-SE: Swedish'
'tr-TR: Turkish'
'cy-GB: Welsh')
ItemIndex = 5
Position.X = 432.000000000000000000
Position.Y = 8.000000000000000000
Size.Width = 200.000000000000000000
Size.Height = 24.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
OnChange = TargetLanguageComboBoxChange
end
end
object SubjectImage: TImage
MultiResBitmap = <
item
end>
Align = Client
Size.Width = 428.000000000000000000
Size.Height = 440.000000000000000000
Size.PlatformDefault = False
OnClick = SubjectImageClick
OnMouseMove = SubjectImageMouseMove
object StatusLabel: TLabel
Anchors = [akLeft, akRight, akBottom]
Position.X = 8.000000000000000000
Position.Y = 415.000000000000000000
Size.Width = 412.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
Text = 'Open a file...'
TabOrder = 0
end
end
object OpenImageDialog: TOpenDialog
Left = 312
Top = 192
end
object ContextLayout: TLayout
Align = Right
Padding.Left = 4.000000000000000000
Padding.Top = 4.000000000000000000
Padding.Right = 4.000000000000000000
Padding.Bottom = 4.000000000000000000
Position.X = 432.000000000000000000
Position.Y = 40.000000000000000000
Size.Width = 208.000000000000000000
Size.Height = 440.000000000000000000
Size.PlatformDefault = False
TabOrder = 6
object SelectedTextHeading: TLabel
Align = Top
AutoSize = True
StyledSettings = [Family, FontColor]
Margins.Bottom = 8.000000000000000000
Position.X = 4.000000000000000000
Position.Y = 4.000000000000000000
Size.Width = 200.000000000000000000
Size.Height = 27.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Size = 20.000000000000000000
TextSettings.Font.StyleExt = {00060000000000000004000000}
Text = 'Selected Text:'
TabOrder = 1
end
object SelectedTextLabel: TLabel
Align = Top
AutoSize = True
StyledSettings = [Family, Style, FontColor]
Margins.Bottom = 8.000000000000000000
Position.X = 4.000000000000000000
Position.Y = 39.000000000000000000
Size.Width = 200.000000000000000000
Size.Height = 21.500000000000000000
Size.PlatformDefault = False
TextSettings.Font.Size = 16.000000000000000000
Text = 'N/A'
TabOrder = 3
end
object TranslatedTextHeading: TLabel
Align = Top
AutoSize = True
StyledSettings = [Family, FontColor]
Margins.Bottom = 8.000000000000000000
Position.X = 4.000000000000000000
Position.Y = 68.500000000000000000
Size.Width = 200.000000000000000000
Size.Height = 27.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Size = 20.000000000000000000
TextSettings.Font.StyleExt = {00060000000000000004000000}
Text = 'Translated Text:'
TabOrder = 0
end
object TranslatedTextLabel: TLabel
Align = Top
AutoSize = True
StyledSettings = [Family, Style, FontColor]
Margins.Bottom = 8.000000000000000000
Position.X = 4.000000000000000000
Position.Y = 103.500000000000000000
Size.Width = 200.000000000000000000
Size.Height = 21.500000000000000000
Size.PlatformDefault = False
TextSettings.Font.Size = 16.000000000000000000
Text = 'N/A'
TabOrder = 2
end
end
object SpeechPlayer: TMediaPlayer
Left = 264
Top = 280
end
object MainActions: TActionList
Left = 216
Top = 192
object ActOpenFile: TAction
Text = 'Open file...'
Hint = 'Open an image file to inspect...'
OnExecute = ActOpenFileExecute
end
end
end