-
Notifications
You must be signed in to change notification settings - Fork 2
/
ufrmWordnikMain.pas
77 lines (66 loc) · 2.1 KB
/
ufrmWordnikMain.pas
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
unit ufrmWordnikMain;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls, FMX.Controls.Presentation,
FMX.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base, FMX.ListView, FMX.Edit, FMX.Layouts,
System.Rtti, System.Bindings.Outputs, Fmx.Bind.Editors, Data.Bind.EngExt, Fmx.Bind.DBEngExt, Data.Bind.Components,
Data.Bind.DBScope, System.Actions, FMX.ActnList, FMX.Objects;
type
TfrmWordnikMain = class(TForm)
Header: TToolBar;
Footer: TToolBar;
HeaderLabel: TLabel;
FlowLayout1: TFlowLayout;
Label1: TLabel;
edtWordLookup: TEdit;
Button1: TButton;
Label2: TLabel;
lvDefinitions: TListView;
Label3: TLabel;
lvExamples: TListView;
BindSrcDefinitions: TBindSourceDB;
BindingsList1: TBindingsList;
LinkListControlToField1: TLinkListControlToField;
BindSrcExamples: TBindSourceDB;
LinkListControlToField2: TLinkListControlToField;
aclWordnik: TActionList;
actWordLookup: TAction;
imgBotLogo: TImage;
actWordOfTheDay: TAction;
actRandomWord: TAction;
Button2: TButton;
Button3: TButton;
procedure actWordLookupExecute(Sender: TObject);
procedure actWordOfTheDayExecute(Sender: TObject);
procedure actRandomWordExecute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmWordnikMain: TfrmWordnikMain;
implementation
{$R *.fmx}
{$R *.NmXhdpiPh.fmx ANDROID}
{$R *.iPhone47in.fmx IOS}
{$R *.SmXhdpiPh.fmx ANDROID}
{$R *.Windows.fmx MSWINDOWS}
{$R *.Macintosh.fmx MACOS}
uses udmWordnikAPI;
procedure TfrmWordnikMain.actWordLookupExecute(Sender: TObject);
begin
dmWordnikAPI.GetDefsAndExamples(edtWordLookup.Text);
end;
procedure TfrmWordnikMain.actRandomWordExecute(Sender: TObject);
begin
edtWordLookup.Text := dmWordnikAPI.GetRandomWord;
actWordLookup.Execute;
end;
procedure TfrmWordnikMain.actWordOfTheDayExecute(Sender: TObject);
begin
edtWordLookup.Text := dmWordnikAPI.GetWordOfTheDay;
actWordLookup.Execute;
end;
end.