-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathimportfolder.lfm
109 lines (109 loc) · 2.26 KB
/
importfolder.lfm
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
object frmImportFolder: TfrmImportFolder
Left = 433
Height = 557
Top = 260
Width = 636
BorderStyle = bsDialog
Caption = 'Import folder...'
ClientHeight = 557
ClientWidth = 636
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.0.14.0'
Visible = True
object grpFiles: TGroupBox
Left = 8
Height = 504
Top = 8
Width = 336
Caption = 'Folder to Import'
ClientHeight = 482
ClientWidth = 328
TabOrder = 0
object stvDir: TShellTreeView
Left = 0
Height = 482
Top = 0
Width = 328
Align = alClient
AutoExpand = True
Font.Height = -11
FileSortType = fstNone
ParentFont = False
ReadOnly = True
RowSelect = True
TabOrder = 0
OnChange = stvDirChange
Options = [tvoAutoExpand, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRowSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
ObjectTypes = [otFolders]
end
end
object btnImport: TButton
Left = 464
Height = 25
Top = 520
Width = 75
Caption = 'Import'
OnClick = btnImportClick
TabOrder = 1
end
object btnCancel: TButton
Left = 549
Height = 25
Top = 520
Width = 75
Caption = 'Cancel'
OnClick = btnCancelClick
TabOrder = 2
end
object GroupBox1: TGroupBox
Left = 352
Height = 504
Top = 8
Width = 272
Caption = 'Files to Import'
ClientHeight = 482
ClientWidth = 264
TabOrder = 3
object clbFiles: TCheckListBox
Left = 0
Height = 450
Top = 0
Width = 264
Font.Height = -11
ItemHeight = 0
ParentFont = False
TabOrder = 0
end
object btnAll: TButton
Left = 0
Height = 25
Top = 454
Width = 130
Caption = 'All'
OnClick = btnAllClick
TabOrder = 1
end
object btnNone: TButton
Left = 134
Height = 25
Top = 454
Width = 130
Caption = 'None'
OnClick = btnNoneClick
TabOrder = 2
end
end
object chkWarn: TCheckBox
Left = 8
Height = 18
Top = 520
Width = 135
Caption = 'Warn on overwrite'
Checked = True
State = cbChecked
TabOrder = 4
end
end