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
|
object MainForm: TMainForm
Left = 506
Height = 636
Top = 173
Width = 1025
Caption = 'Google mail demo'
ClientHeight = 636
ClientWidth = 1025
OnCreate = FormCreate
OnDestroy = FormDestroy
LCLVersion = '1.5'
object BRefreshFolders: TButton
Left = 104
Height = 25
Top = 8
Width = 120
Caption = 'Refresh'
OnClick = BRefreshFoldersClick
TabOrder = 0
end
object GBAccess: TGroupBox
Left = 0
Height = 91
Top = 545
Width = 1025
Align = alBottom
Caption = 'Please provide Google API access code'
ClientHeight = 63
ClientWidth = 1021
TabOrder = 1
Visible = False
object LEAccess: TLabel
Left = 16
Height = 12
Top = 8
Width = 56
Caption = 'Access code'
ParentColor = False
end
object BSetAccess: TButton
Left = 792
Height = 33
Top = 0
Width = 107
Anchors = [akTop, akRight]
Caption = 'OK'
OnClick = BSetAccessClick
TabOrder = 0
end
object BCancel: TButton
Left = 904
Height = 33
Top = 0
Width = 106
Anchors = [akTop, akRight]
Caption = 'Cancel'
OnClick = BCancelClick
TabOrder = 1
end
object EAccessCode: TEdit
Left = 144
Height = 18
Top = 2
Width = 648
Anchors = [akTop, akLeft, akRight]
TabOrder = 2
end
end
object BRefreshFiles: TButton
Left = 883
Height = 25
Top = 8
Width = 112
Anchors = [akTop, akRight]
Caption = 'Refresh'
Enabled = False
OnClick = BRefreshFilesClick
TabOrder = 2
end
object LMails: TLabel
Left = 392
Height = 12
Top = 8
Width = 484
Anchors = [akTop, akLeft, akRight]
Caption = 'Messages with label'
ParentColor = False
end
object LLabels: TLabel
Left = 24
Height = 12
Top = 8
Width = 30
Caption = 'Labels'
ParentColor = False
end
object TVLabels: TTreeView
Left = 8
Height = 512
Top = 40
Width = 344
Anchors = [akTop, akLeft, akBottom]
DefaultItemHeight = 14
ReadOnly = True
TabOrder = 3
OnSelectionChanged = TVLabelsSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
object LVMessages: TListView
Left = 392
Height = 512
Top = 32
Width = 629
Anchors = [akTop, akLeft, akRight, akBottom]
Columns = <
item
Caption = 'Title'
Width = 200
end
item
Caption = 'From'
Width = 200
end
item
Caption = 'Received'
Width = 200
end
item
Caption = 'Recipient'
Width = 200
end
item
Caption = 'Sender'
Width = 200
end
item
Caption = 'Snippet'
Width = 300
end>
TabOrder = 4
ViewStyle = vsReport
OnDblClick = LVMessagesDblClick
end
object SDDownload: TSaveDialog
left = 415
top = 163
end
end
|
