forked from GerryFerdinandus/bittorrent-tracker-editor
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathmain.lfm
More file actions
375 lines (375 loc) · 11.8 KB
/
main.lfm
File metadata and controls
375 lines (375 loc) · 11.8 KB
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
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
object FormTrackerModify: TFormTrackerModify
Left = 1398
Height = 607
Top = 448
Width = 1179
AllowDropFiles = True
Caption = 'Bittorrent Tracker Editor'
ClientHeight = 587
ClientWidth = 1179
Constraints.MinHeight = 500
Constraints.MinWidth = 700
Font.Height = -11
Menu = MainMenu
OnCreate = FormCreate
OnDestroy = FormDestroy
OnDropFiles = FormDropFiles
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.8.0.5'
object PageControl: TPageControl
Left = 0
Height = 587
Top = 0
Width = 1179
ActivePage = TabSheetTrackersList
Align = alClient
TabIndex = 0
TabOrder = 0
object TabSheetTrackersList: TTabSheet
Caption = 'Trackers List'
ClientHeight = 561
ClientWidth = 1171
object PanelTop: TPanel
Left = 0
Height = 561
Top = 0
Width = 1171
Align = alClient
ClientHeight = 561
ClientWidth = 1171
TabOrder = 0
object GroupBoxNewTracker: TGroupBox
Left = 1
Height = 201
Top = 1
Width = 1169
Align = alTop
Caption = 'Add new trackers to torrent file(s).'
ClientHeight = 183
ClientWidth = 1165
Constraints.MinHeight = 100
TabOrder = 0
object MemoNewTrackers: TMemo
Left = 0
Height = 183
Top = 0
Width = 1165
Align = alClient
ScrollBars = ssAutoBoth
TabOrder = 0
end
end
object GroupBoxPresentTracker: TGroupBox
Left = 1
Height = 353
Top = 207
Width = 1169
Align = alClient
Caption = 'Present trackers in all torrent files. Select the one that you want to keep.'
ClientHeight = 335
ClientWidth = 1165
Constraints.MinHeight = 100
ParentBidiMode = False
TabOrder = 1
object StringGridTrackerOnline: TStringGrid
Left = 0
Height = 335
Top = 0
Width = 1165
Align = alClient
AlternateColor = clWhite
ColCount = 0
FixedCols = 0
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goSmoothScroll]
RowCount = 0
TabOrder = 0
TitleFont.Height = -11
end
end
object Splitter1: TSplitter
Cursor = crVSplit
Left = 1
Height = 5
Top = 202
Width = 1169
Align = alTop
ResizeAnchor = akTop
end
end
end
object TabSheetPublicPrivateTorrent: TTabSheet
Caption = 'Public/Private'
ClientHeight = 561
ClientWidth = 1171
object PanelTopPublicTorrent: TPanel
Left = 0
Height = 561
Top = 0
Width = 1171
Align = alClient
ClientHeight = 561
ClientWidth = 1171
TabOrder = 0
object GroupBoxPublicPrivateTorrent: TGroupBox
Left = 1
Height = 559
Top = 1
Width = 1169
Align = alClient
Caption = 'Checked items are public torrent. WARNING: change public/private setting will change torrent Hash info.'
ClientHeight = 541
ClientWidth = 1165
TabOrder = 0
object CheckListBoxPublicPrivateTorrent: TCheckListBox
Left = 0
Height = 541
Top = 0
Width = 1165
Align = alClient
ItemHeight = 0
TabOrder = 0
end
end
end
end
object TabSheetTorrentData: TTabSheet
Caption = 'Data/Info'
ClientHeight = 561
ClientWidth = 1171
object StringGridTorrentData: TStringGrid
Left = 0
Height = 561
Top = 0
Width = 1171
Align = alClient
ColCount = 10
ColumnClickSorts = True
Columns = <
item
ReadOnly = True
Title.Caption = 'Torrent File'
Width = 250
end
item
ReadOnly = True
Title.Caption = 'Info Filename'
Width = 250
end
item
MaxSize = 250
ReadOnly = True
Title.Caption = 'Info Hash'
Width = 280
end
item
ReadOnly = True
Title.Caption = 'Created On'
Width = 145
end
item
ReadOnly = True
Title.Caption = 'Created By'
Width = 145
end
item
Title.Caption = 'Comment (can be edited)'
Width = 160
end
item
ReadOnly = True
Title.Caption = 'Private'
Width = 50
end
item
Alignment = taRightJustify
ReadOnly = True
Title.Alignment = taRightJustify
Title.Caption = 'Piece Length (KiB)'
Width = 100
end
item
Alignment = taRightJustify
ReadOnly = True
Title.Alignment = taRightJustify
Title.Caption = 'Total size (KiB)'
Width = 100
end
item
ReadOnly = True
Title.Alignment = taRightJustify
Title.Caption = 'IndexOrder (internal used)'
Visible = False
end>
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goColMoving, goEditing, goSmoothScroll]
RowCount = 1
TabOrder = 0
TitleFont.Height = -11
ColWidths = (
250
250
280
145
145
160
50
100
100
0
)
end
end
object TabSheetTorrentsContents: TTabSheet
Caption = 'Files/Trackers/Info'
end
end
object SelectDirectoryDialog1: TSelectDirectoryDialog
Title = 'Select a directory with torrent files inside.'
left = 560
top = 24
end
object OpenDialog: TOpenDialog
Filter = 'torrent|*.torrent'
left = 560
top = 88
end
object MainMenu: TMainMenu
left = 472
top = 152
object MenuFile: TMenuItem
Caption = '&File'
object MenuOpenTorrentFile: TMenuItem
Caption = 'Open &one torrent file'
Hint = 'Select one torrent file'
OnClick = MenuOpenTorrentFileClick
end
object MenuFileTorrentFolder: TMenuItem
Caption = 'Open &multiple torrent files inside one folder'
Hint = 'Open multiple torrent files in folder.'
OnClick = MenuFileTorrentFolderClick
end
object MenuFileOpenTrackerList: TMenuItem
Caption = 'Open &tracker file list'
OnClick = MenuFileOpenTrackerListClick
end
end
object MenuTrackers: TMenuItem
Caption = '&Trackers'
object MenuTrackersKeepAllTrackers: TMenuItem
Tag = 1
Caption = '&Keep all the present trackers'
OnClick = MenuTrackersKeepOrDeleteAllTrackersClick
end
object MenuTrackersDeleteAllTrackers: TMenuItem
Caption = '&Delete all the present trackers'
OnClick = MenuTrackersKeepOrDeleteAllTrackersClick
end
object MenuTrackersSeperator1: TMenuItem
Caption = '-'
end
object MenuTrackersDeleteUnstableTrackers: TMenuItem
Caption = 'Delete UNSTABLE trackers'
OnClick = MenuTrackersDeleteTrackersWithStatusClick
end
object MenuTrackersDeleteDeadTrackers: TMenuItem
Tag = 1
Caption = 'Delete DEAD trackers'
OnClick = MenuTrackersDeleteTrackersWithStatusClick
end
object MenuTrackersDeleteUnknownTrackers: TMenuItem
Tag = 2
Caption = 'Delete UNKNOWN trackers'
OnClick = MenuTrackersDeleteTrackersWithStatusClick
end
object MenuTrackersSeperator2: TMenuItem
Caption = '-'
end
object MenuTrackersAllTorrentArePublic: TMenuItem
Tag = 1
Caption = 'All torrent are &public'
OnClick = MenuTrackersAllTorrentArePublicPrivateClick
end
object MenuTrackersAllTorrentArePrivate: TMenuItem
Caption = 'All torrent are p&rivate'
OnClick = MenuTrackersAllTorrentArePublicPrivateClick
end
end
object MenuUpdateTorrent: TMenuItem
Caption = '&Update torrent'
Hint = 'Update the torrent files'
object MenuUpdateTorrentAddAfter: TMenuItem
Caption = 'Insert new trackers list &BEFORE, the original trackers list inside the torrent file'
object MenuUpdateTorrentAddBeforeRemoveOriginal: TMenuItem
Caption = 'And remove possible duplicated trackers from the ORIGINAL trackers list.(-U0)'
OnClick = MenuUpdateTorrentAddBeforeRemoveOriginalClick
end
object MenuUpdateTorrentAddBeforeRemoveNew: TMenuItem
Caption = 'And remove possible duplicated trackers from the NEW trackers list.(-U1)'
OnClick = MenuUpdateTorrentAddBeforeRemoveNewClick
end
object MenuUpdateTorrentAddBeforeKeepOriginalInstactAndRemoveNothing: TMenuItem
Caption = 'Keep original tracker list unchanged and remove nothing.(-U5)'
OnClick = MenuUpdateTorrentAddBeforeKeepOriginalInstactAndRemoveNothingClick
end
end
object MenuUpdateTorrentAddBefore: TMenuItem
Caption = 'Append new trackers list &AFTER, the original trackers list inside the torrent file.'
object MenuUpdateTorrentAddAfterRemoveOriginal: TMenuItem
Caption = 'And remove possible duplicated trackers from the ORIGINAL trackers list.(-U2)'
OnClick = MenuUpdateTorrentAddAfterRemoveOriginalClick
end
object MenuUpdateTorrentAddAfterRemoveNew: TMenuItem
Caption = 'And remove possible duplicated trackers from the NEW trackers list.(-U3)'
OnClick = MenuUpdateTorrentAddAfterRemoveNewClick
end
object MenuUpdateTorrentAddAfterKeepOriginalInstactAndRemoveNothing: TMenuItem
Caption = 'Keep original tracker list unchanged and remove nothing.(-U6)'
OnClick = MenuUpdateTorrentAddAfterKeepOriginalInstactAndRemoveNothingClick
end
end
object MenuUpdateTorrentSort: TMenuItem
Caption = '&Sort the trackers list by name.(-U4)'
OnClick = MenuUpdateTorrentSortClick
end
object MenuUpdateRandomize: TMenuItem
Caption = '&Randomize the trackers list.(-U8)'
OnClick = MenuUpdateRandomizeClick
end
end
object MenuOnlineCheck: TMenuItem
Caption = 'Online Check'
object MenuItemOnlineCheckDownloadNewTrackon: TMenuItem
Caption = 'Check Status Trackers (From newTrackon)'
OnClick = MenuItemOnlineCheckDownloadNewTrackonClick
end
object MenuItemOnlineCheckAppendStableTrackers: TMenuItem
Caption = 'Append Stable Trackers (From newTrackon)'
OnClick = MenuItemOnlineCheckAppendStableTrackersClick
end
object MenuItemOnlineCheckSubmitNewTrackon: TMenuItem
Caption = 'Upload trackers to newTrackon'
OnClick = MenuItemOnlineCheckSubmitNewTrackonClick
end
end
object MenuHelp: TMenuItem
Caption = '&Help'
object MenuHelpVisitWebsite: TMenuItem
Caption = '&Visit website tracker editor'
OnClick = MenuHelpVisitWebsiteClick
end
object MenuHelpReportingIssue: TMenuItem
Caption = '&Reporting Issue'
OnClick = MenuHelpReportingIssueClick
end
object MenuHelpSeperator1: TMenuItem
Caption = '-'
end
object MenuHelpVisitNewTrackon: TMenuItem
Caption = '&Visit website newTrackon'
OnClick = MenuHelpVisitNewTrackonClick
end
end
end
end