-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathufrmWordnikMain.fmx
280 lines (280 loc) · 11 KB
/
ufrmWordnikMain.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
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
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
object frmWordnikMain: TfrmWordnikMain
Left = 0
Top = 0
Caption = 'Header Footer Form'
ClientHeight = 604
ClientWidth = 440
FormFactor.Width = 1440
FormFactor.Height = 900
FormFactor.Devices = [Desktop]
DesignerMasterStyle = 0
object Header: TToolBar
Size.Width = 440.000000000000000000
Size.Height = 48.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object HeaderLabel: TLabel
Align = Contents
Size.Width = 440.000000000000000000
Size.Height = 48.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'toollabel'
TextSettings.HorzAlign = Center
Text = 'Wordnik 4 Delphi'
end
end
object Footer: TToolBar
Align = Bottom
Position.Y = 568.000000000000000000
Size.Width = 440.000000000000000000
Size.Height = 36.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'bottomtoolbar'
TabOrder = 1
object imgBotLogo: TImage
MultiResBitmap.Height = 18
MultiResBitmap.Width = 132
MultiResBitmap = <
item
Width = 132
Height = 18
PNG = {
89504E470D0A1A0A0000000D49484452000000840000001208060000009A7B76
F9000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
06FF494441546843ED993B531B5714C777850C74D9C6B5954F603CE3D6467C02
8B4F80D4F85119BA7498321550D9A61124650A449934087B5C5BDF20A24F6229
C6BC8CB4F9FD0FF7EEECAE16309ECCC48EF59F3973EF3D7BEEEBBCEEBD5230C6
18638C7121265C39C65780D9D9D97AA552A9EDEFEFB71DEB4AD027A2CF0F5087
7EC7B49F51AF50EF38910C4AAE1CE32BC070385CA0583E6F7D321621F551292C
BB710A317688FF3F5AD08A2BAF44E8CA31FE4390C6AB2AF7F6F692A3005E8542
2474F9D6BD77EFDE6EA954AA521FB11BF2331411D4E37BE1712020179321DAAF
5FBF9E73AC0C92815FBE7CF9CC550D74DA7CF2E449D735BF486C6C6CD4553E7C
F870D3180EEC65F7D1A347851BBE0ACE10BF1729CD19640785AF3996E4658477
676767DD376FDE7C1F6FDCAC1F0FE2D5E9A9201A0EE2B5525CDA3A0B87DBE589
B0328C8376A9F4713E6CF47BDEB8CCD3A194318579A81DC7F16A1886B6370F78
6B5055B27208E69513EDC26B4195D418B21DF394E691EB7939688E763BEF10B4
354F5375D0481F19C9D94487DB146FCF5B5F2EA408916BA66111F73940695DC6
DC94B15056A264D5C5C3F04F1DCBC3CEE672B9BC12AFDE9C098E86CDE9D3380A
DEC741E930583C3E1AEE960F8974B50FE2EAF0EF9257BE4186643E39D81273B7
D0FDAE9C410E064FA97E490684B79836BA07FCDAE9E9A97420D979C66A699D94
AB267009D893D6DE3C3E3EEE51CA8136CBF6C581A84AB20451163F7FFEBC4A96
68AB64E2054806D8999A9AB28864218BB93E35DAC959A5ACA3EFCD663342560E
A7CD7759F03A51DD71E36A93B729F725ABA81F0C060FD47F626262271DFDF975
387621F2B28F1F3F5E83A748AAE7D78CC27BDAA76349C95B1475FAC9F80DF154
872FC35750644DC6131FC32D40BDE9E9E95670309CC91FC2D3E7693C8D7C7BE5
D5AB57B61E17AD337200E6B108171FACDDBF7FBFC9FC99ACE1C1DC8A7E3B2618
A38D81ABF4BF3428341E455DCE90EE9FB9544A89A2172F5E98D72368464389F2
DA7D58EB940F1864B7D16868B10BFA2E59576E535AC4BA743E2B67903C9BAC40
2B1A0783EFF2DD228EB6D2E33ED49203A1F8653982487578E6E9321CC5B66429
6D1D8C978FD6048CDD84F6A8AE33CE027B6ABA233059B3C018998815504E5B11
CA1C75141C4115D55DD4AA8FCD2B03CA41142066BC039864824BA9AF9E19248E
C83A2D1058B7B2857706034ED370919C016B697B630AEA373939D9D1BA1C6B04
4EEF75FA76B0F1F7E9FE19874070592465D39C97D1D566A14B8A2A453F34072F
92C191539A32E5505F6002C99B17637445D4D6C9C9495DF2B0D6C5D70628DA5E
A95A94C656C6108FB9D6E9DB15B9F1CD39F92647C9AF6344411EC8CF29BB4856
11C0B83539ABC6D79E24A33D50EFA4B383070AD5DC82F6637B128F71753EDB71
42DD9E6FACD3F616FEF8671B93F582F7342EA0F030CC67B6E49EC6DA2C7BA40D
94860CEDAA09588B9CFEB340DF11C7CB3884949C229FFAA5C4FC42B6E0556EDC
B82119CB2A28A58EC1E664544533934532087CDB246D733647117C5B08F56441
8EFFC0CB318714DE76D9640627C91B4EA9BD10E90BB1736CEDC1A29935CEC839
BCD39E4B8DA0A588242B3CA514E9F6AEBB85390A632803E9AC6EC14FE69A3AE6
2C57A628A0B37ED00D0F06990B70BAAF873292AB66C09C1746FD75E0330DE5B6
1CDB980E9FF23B8422357F99D1D9DC758AD606B751CCA6A2DC295E69DE140D5F
9377D3CE2623B0B9C23B00FC8697232274EBDE73D9A383C365CE457896628B20
2772D540C716B26A67D64C694E6B42392872E43C4ABD649808B22C005FD92D79
19B017E37B94B6FE5A1BBE8F5B45C745F974301F6EF533119906639A4ED0D9C8
8510C32D5E760C5C072ED334B42FCAB73AFAEC03B8D221D8FC0A0B5CD6F9AEC8
27B2B6E1F5BC22A92B0547C8F8C8515A8D98D49E662E2223F55326D138C83631
6E916234C6B6E611E1C17A2E7DA70FCCB14244AFAABFC6D178B02F5410B2BAA7
D4451A07C3B57CD6706B96412FCC3042CED8C95393BEFEF8EBC8418C994209A7
1E7C083AC1071A9E0E878DF097FE48CA4F83B1D63426F3D6F42CC55035A8EA2E
8057BE1AAE03E692FDEEB86CD1F44E9176087F6666E0CE573D676E512AC5EEE9
4CB68FC02979DE2B5BF23AEBDDA5D3D2B5E451A25E173A066E31C61D17F57A4E
2546212B3CA3EF3A7C1D154F5587B7E4BEE978B275681CAD436D8DA1EF39682F
FA368BFC82C6E19561AF050FBEE9F29518B908284D4F50BDF3CF2F8D0E52A62E
98DE31F20877FAFDF26FEFEE7E3C18FE7C7470D4FFA33FBC1BFEDAFFC97DBE14
8CA963D7EE2934E5F4F60C150FBAD4A1AE0BF6A14BE59C770A1C6FF59BFCA592
2CB38A91A3BC931481C85116D2FD2193D1E0EB07A2220349A793102F4E2BF507
E21974E2E814B2FE1411631439B4FFAE9795E6B59744BA0F75A57BB5ED574CCA
0417C8299BF91FAA32BF66C2D31EFF95E3E8AB843BBEBE5D058C31C6A72108FE
01DCD9A7CF59885BD30000000049454E44AE426082}
FileName = 'V:\tests\APIDemos\WordnikDemo\wordnik_badge_a2.png'
end>
Align = HorzCenter
MarginWrapMode = Center
Position.X = 28.000000000000000000
Size.Width = 384.000000000000000000
Size.Height = 36.000000000000000000
Size.PlatformDefault = False
WrapMode = Center
end
end
object FlowLayout1: TFlowLayout
Align = Top
Position.Y = 48.000000000000000000
Size.Width = 440.000000000000000000
Size.Height = 73.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
Justify = Left
JustifyLastLine = Left
FlowDirection = LeftToRight
object Label1: TLabel
Margins.Left = 10.000000000000000000
Margins.Top = 10.000000000000000000
Position.X = 10.000000000000000000
Position.Y = 10.000000000000000000
Text = 'Enter a word:'
TabOrder = 0
end
object edtWordLookup: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 1
Position.X = 140.000000000000000000
Position.Y = 10.000000000000000000
Margins.Left = 10.000000000000000000
Margins.Top = 10.000000000000000000
CharCase = ecLowerCase
end
object Button1: TButton
Action = actWordLookup
Enabled = True
ImageIndex = -1
Margins.Left = 10.000000000000000000
Margins.Top = 10.000000000000000000
Position.X = 250.000000000000000000
Position.Y = 10.000000000000000000
TabOrder = 4
end
object Button2: TButton
Action = actWordOfTheDay
Enabled = True
ImageIndex = -1
Margins.Left = 10.000000000000000000
Margins.Top = 10.000000000000000000
Position.X = 340.000000000000000000
Position.Y = 10.000000000000000000
TabOrder = 3
end
object Button3: TButton
Action = actRandomWord
Enabled = True
ImageIndex = -1
Margins.Left = 10.000000000000000000
Margins.Top = 10.000000000000000000
Position.X = 10.000000000000000000
Position.Y = 42.000000000000000000
TabOrder = 2
end
end
object Label2: TLabel
Align = Top
StyledSettings = [Family, Size, FontColor]
Margins.Left = 5.000000000000000000
Margins.Top = 5.000000000000000000
Margins.Bottom = 5.000000000000000000
Position.X = 5.000000000000000000
Position.Y = 126.000000000000000000
Size.Width = 435.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.StyleExt = {00070000000000000004000000}
Text = 'Definitions:'
TabOrder = 5
end
object lvDefinitions: TListView
ItemAppearanceClassName = 'TCustomizeItemObjects'
ItemEditAppearanceClassName = 'TCustomizeItemObjects'
HeaderAppearanceClassName = 'TListHeaderObjects'
FooterAppearanceClassName = 'TCustomizeItemObjects'
Align = Client
Size.Width = 440.000000000000000000
Size.Height = 242.000000000000000000
Size.PlatformDefault = False
TabOrder = 6
ItemAppearanceObjects.HeaderObjects.Text.Font.StyleExt = {00040000000200000004000000}
end
object Label3: TLabel
Align = Bottom
StyledSettings = [Family, Size, FontColor]
Margins.Left = 5.000000000000000000
Margins.Top = 5.000000000000000000
Margins.Bottom = 5.000000000000000000
Position.X = 5.000000000000000000
Position.Y = 395.000000000000000000
Size.Width = 435.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.StyleExt = {00070000000000000004000000}
Text = 'Examples:'
TabOrder = 3
end
object lvExamples: TListView
ItemAppearanceClassName = 'TListItemAppearance'
ItemEditAppearanceClassName = 'TListItemShowCheckAppearance'
HeaderAppearanceClassName = 'TListHeaderObjects'
FooterAppearanceClassName = 'TListHeaderObjects'
Align = Bottom
Position.Y = 417.000000000000000000
Size.Width = 440.000000000000000000
Size.Height = 151.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
ItemAppearanceObjects.ItemObjects.Text.TextVertAlign = Leading
ItemAppearanceObjects.ItemObjects.Text.WordWrap = True
ItemAppearanceObjects.ItemObjects.Accessory.Visible = False
end
object BindSrcDefinitions: TBindSourceDB
DataSet = dmWordnikAPI.tblDefinitions
ScopeMappings = <>
Left = 104
Top = 248
end
object BindingsList1: TBindingsList
Methods = <>
OutputConverters = <>
Left = 196
Top = 397
object LinkListControlToField1: TLinkListControlToField
Category = 'Quick Bindings'
DataSource = BindSrcDefinitions
FieldName = 'text'
Control = lvDefinitions
FillExpressions = <>
FillHeaderExpressions = <>
FillHeaderFieldName = 'partOfSpeech'
FillBreakGroups = <>
end
object LinkListControlToField2: TLinkListControlToField
Category = 'Quick Bindings'
DataSource = BindSrcExamples
FieldName = 'text'
Control = lvExamples
FillExpressions = <>
FillHeaderExpressions = <>
FillBreakGroups = <>
end
end
object BindSrcExamples: TBindSourceDB
DataSet = dmWordnikAPI.tblExamples
ScopeMappings = <>
Left = 184
Top = 280
end
object aclWordnik: TActionList
Left = 328
Top = 312
object actWordLookup: TAction
Text = 'Lookup'
OnExecute = actWordLookupExecute
end
object actWordOfTheDay: TAction
Text = 'WOTD'
OnExecute = actWordOfTheDayExecute
end
object actRandomWord: TAction
Text = 'Random'
OnExecute = actRandomWordExecute
end
end
end