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
|
object MainForm: TMainForm
Left = 506
Height = 396
Top = 173
Width = 756
Caption = 'Google drive demo'
ClientHeight = 396
ClientWidth = 756
OnCreate = FormCreate
OnDestroy = FormDestroy
LCLVersion = '1.5'
object BRefreshFolders: TButton
Left = 72
Height = 25
Top = 8
Width = 64
Caption = 'Refresh'
OnClick = BRefreshFoldersClick
TabOrder = 0
end
object GBAccess: TGroupBox
Left = 0
Height = 73
Top = 323
Width = 756
Align = alBottom
Caption = 'Please provide Google API access code'
ClientHeight = 45
ClientWidth = 752
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 = 582
Height = 25
Top = 1
Width = 75
Anchors = [akTop, akRight]
Caption = 'OK'
OnClick = BSetAccessClick
TabOrder = 0
end
object BCancel: TButton
Left = 662
Height = 25
Top = 0
Width = 75
Anchors = [akTop, akRight]
Caption = 'Cancel'
OnClick = BCancelClick
TabOrder = 1
end
object EAccessCode: TEdit
Left = 112
Height = 18
Top = 8
Width = 400
TabOrder = 2
end
end
object BRefreshFiles: TButton
Left = 614
Height = 25
Top = 8
Width = 112
Anchors = [akTop, akRight]
Caption = 'Refresh'
Enabled = False
OnClick = BRefreshFilesClick
TabOrder = 2
end
object LTasks: TLabel
Left = 392
Height = 12
Top = 16
Width = 215
Anchors = [akTop, akLeft, akRight]
Caption = 'Files in folder'
ParentColor = False
end
object Label1: TLabel
Left = 22
Height = 12
Top = 16
Width = 34
Caption = 'Folders'
ParentColor = False
end
object TVFolders: TTreeView
Left = 16
Height = 272
Top = 35
Width = 344
Anchors = [akTop, akLeft, akBottom]
DefaultItemHeight = 14
ReadOnly = True
TabOrder = 3
OnSelectionChanged = TVFoldersSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
object LVFiles: TListView
Left = 384
Height = 272
Top = 35
Width = 360
Anchors = [akTop, akLeft, akRight, akBottom]
Columns = <
item
Caption = 'Title'
end
item
Caption = 'Date Created'
Width = 100
end
item
Caption = 'Description'
Width = 200
end
item
Caption = 'Editable'
end
item
Caption = 'Size'
end
item
Caption = 'Last modified by'
end
item
Caption = 'DownloadURL'
Width = 300
end
item
Caption = 'Version'
end
item
Caption = 'Mime Type'
Width = 200
end>
TabOrder = 4
ViewStyle = vsReport
OnDblClick = LVFilesDblClick
end
object SDDownload: TSaveDialog
left = 415
top = 163
end
end
|
