-
Notifications
You must be signed in to change notification settings - Fork 1
/
unit1.lfm
219 lines (219 loc) · 5.08 KB
/
unit1.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
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
object Form1: TForm1
Left = 268
Height = 554
Top = 30
Width = 981
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'i6z Toolkit'
ClientHeight = 554
ClientWidth = 981
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
Position = poDesktopCenter
LCLVersion = '2.0.4.0'
object ListView1: TListView
Left = 16
Height = 497
Top = 16
Width = 826
Columns = <>
GridLines = True
HideSelection = False
MultiSelect = True
ReadOnly = True
RowSelect = True
SortType = stBoth
TabOrder = 0
ViewStyle = vsReport
OnKeyDown = ListView1KeyDown
end
object addfiles: TButton
Left = 856
Height = 25
Hint = 'Add .i6z files for processing.'
Top = 16
Width = 112
Caption = '&Add File(s)'
OnClick = addfilesClick
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object rename: TButton
Left = 856
Height = 25
Hint = 'Rename selected .i6z files to their:'#13#10'- ''Entity Name'', or'#13#10'- ''Archive Type & Entity Name'', or'#13#10'- ''UUID''.'
Top = 200
Width = 112
Caption = '&Rename'
OnClick = renameClick
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
object clearlist: TButton
Left = 856
Height = 25
Hint = 'Clear the list of added files.'
Top = 48
Width = 112
Caption = 'Clear &List'
OnClick = clearlistClick
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object xmltree: TButton
Left = 856
Height = 25
Hint = 'View the selected .i6z file''s '#13#10'Manifest file in XML Tree view.'
Top = 256
Width = 112
Caption = '&View XML Tree'
OnClick = xmltreeClick
ParentShowHint = False
ShowHint = True
TabOrder = 5
end
object RadioGroup1: TRadioGroup
Left = 856
Height = 88
Top = 104
Width = 112
AutoFill = True
Caption = 'Rename to:'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 66
ClientWidth = 108
Items.Strings = (
'Entity Name'
'Type + Name'
'UUID'
)
TabOrder = 3
end
object Bevel1: TBevel
Left = 856
Height = 2
Top = 88
Width = 112
Shape = bsTopLine
end
object Bevel2: TBevel
Left = 856
Height = 10
Top = 240
Width = 112
Shape = bsTopLine
end
object Bevel3: TBevel
Left = 856
Height = 2
Top = 296
Width = 112
Shape = bsTopLine
end
object btnmove: TButton
Left = 856
Height = 25
Hint = 'Move the selected .i6z files'#13#10'to a specified directory.'
Top = 312
Width = 112
Caption = '&Move File(s)'
OnClick = btnmoveClick
ParentShowHint = False
ShowHint = True
TabOrder = 6
end
object btncopy: TButton
Left = 856
Height = 25
Hint = 'Copy the selected .i6z files'#13#10'to a specified directory.'
Top = 352
Width = 112
Caption = '&Copy File(s)'
OnClick = btncopyClick
ParentShowHint = False
ShowHint = True
TabOrder = 7
end
object StatusBar1: TStatusBar
Left = 0
Height = 23
Top = 531
Width = 981
Panels = <>
end
object btnabout: TButton
Left = 856
Height = 25
Top = 448
Width = 112
Caption = 'A&bout'
OnClick = btnaboutClick
TabOrder = 9
end
object Bevel4: TBevel
Left = 856
Height = 2
Top = 432
Width = 112
Shape = bsTopLine
end
object btnexit: TButton
Left = 856
Height = 25
Top = 488
Width = 112
Caption = 'E&xit'
OnClick = btnexitClick
TabOrder = 10
end
object btnexport2csv: TButton
Left = 856
Height = 25
Hint = 'Export the list''s content to a CSV file.'
Top = 392
Width = 112
Caption = '&Export to CSV'
OnClick = btnexport2csvClick
ParentShowHint = False
ShowHint = True
TabOrder = 8
end
object OpenDialog1: TOpenDialog
Title = 'Select IUCLID archive(s)'
Filter = 'IUCLID 6 Archive|*.i6z'
Options = [ofAllowMultiSelect, ofEnableSizing, ofViewDetail]
left = 624
top = 472
end
object SelectDirectoryDialog1: TSelectDirectoryDialog
Title = 'Select directory for renamed .i6z file(s)'
left = 664
top = 472
end
object SelectDirectoryDialog2: TSelectDirectoryDialog
Title = 'Select directory for moved .i6z file(s)'
left = 704
top = 472
end
object SelectDirectoryDialog3: TSelectDirectoryDialog
Title = 'Select directory for copied .i6z file(s)'
left = 744
top = 472
end
object SaveDialog1: TSaveDialog
Title = 'Save CSV as'
Filter = 'Comma-Separated Values File|*.csv'
left = 784
top = 472
end
end