-
-
Notifications
You must be signed in to change notification settings - Fork 2.2k
/
frmsetuppsnnodeunit.lfm
executable file
·510 lines (510 loc) · 14.3 KB
/
frmsetuppsnnodeunit.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
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
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
object frmSetupPSNNode: TfrmSetupPSNNode
Left = 386
Height = 431
Top = 133
Width = 362
AutoSize = True
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Setup pointerscan network node'
ClientHeight = 431
ClientWidth = 362
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.2.2.0'
object cbMaxFoundResults: TCheckBox
AnchorSideLeft.Control = cbConnectToOtherNode
AnchorSideTop.Control = edtConnectIP
AnchorSideTop.Side = asrBottom
Left = 14
Height = 19
Hint = 'This will terminate all the children and disconnect from the parent after having found at least the given amount of results'#13#10'It''s slightly innacurate as the check is only done every 10 seconds or so'#13#10#13#10'Note: This only has effect when there is at least one parent in the queue. Otherwise it''s not going to disconnect'
Top = 285
Width = 266
BorderSpacing.Top = 3
BorderSpacing.Right = 3
Caption = 'Stop scans after finding max amount of results'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object edtMaxResultsToFind: TEdit
AnchorSideLeft.Control = cbMaxFoundResults
AnchorSideTop.Control = cbMaxFoundResults
AnchorSideTop.Side = asrBottom
Left = 14
Height = 23
Top = 304
Width = 80
TabOrder = 1
end
object cbMaxTimeToScan: TCheckBox
AnchorSideLeft.Control = edtMaxResultsToFind
AnchorSideTop.Control = edtMaxResultsToFind
AnchorSideTop.Side = asrBottom
Left = 14
Height = 19
Hint = 'This will terminate all the children and disconnect from the parent after scanning for the given amount of time.'#13#10#13#10'Note: This only has effect when there is at least one parent in the queue. Otherwise it''s not going to disconnect'
Top = 327
Width = 173
Caption = 'Stop scans after specific time'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object edtMaxTimeToScan: TEdit
AnchorSideLeft.Control = cbMaxTimeToScan
AnchorSideTop.Control = cbMaxTimeToScan
AnchorSideTop.Side = asrBottom
Left = 14
Height = 23
Top = 346
Width = 80
TabOrder = 3
end
object Label4: TLabel
AnchorSideLeft.Control = edtMaxTimeToScan
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtMaxTimeToScan
AnchorSideTop.Side = asrCenter
Left = 97
Height = 15
Top = 350
Width = 44
BorderSpacing.Left = 3
Caption = 'Seconds'
ParentColor = False
end
object Label3: TLabel
AnchorSideLeft.Control = edtMaxResultsToFind
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtMaxResultsToFind
AnchorSideTop.Side = asrCenter
Left = 97
Height = 15
Top = 308
Width = 107
BorderSpacing.Left = 3
Caption = 'Found pointer paths'
ParentColor = False
end
object cbPriority: TComboBox
AnchorSideLeft.Control = lblPriority
AnchorSideTop.Control = lblPriority
AnchorSideTop.Side = asrBottom
Left = 104
Height = 23
Top = 15
Width = 140
ItemHeight = 15
ItemIndex = 2
Items.Strings = (
'Idle'
'Lowest'
'Lower'
'Normal'
'Higher'
'Highest'
'TimeCritical'
)
Style = csDropDownList
TabOrder = 4
Text = 'Lower'
end
object lblPriority: TLabel
AnchorSideLeft.Control = Panel2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
Left = 104
Height = 15
Top = 0
Width = 38
BorderSpacing.Left = 10
Caption = 'Priority'
ParentColor = False
end
object lblPublicName: TLabel
AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = Panel2
AnchorSideTop.Side = asrBottom
Left = 14
Height = 15
Top = 38
Width = 66
Caption = 'Public name'
ParentColor = False
end
object edtPublicname: TEdit
AnchorSideLeft.Control = lblPublicName
AnchorSideTop.Control = lblPublicName
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbPriority
AnchorSideRight.Side = asrBottom
Left = 14
Height = 23
Top = 53
Width = 230
Anchors = [akTop, akLeft, akRight]
TabOrder = 5
end
object lblListenPort: TLabel
AnchorSideLeft.Control = edtPublicname
AnchorSideTop.Control = edtPublicname
AnchorSideTop.Side = asrBottom
Left = 14
Height = 15
Top = 76
Width = 56
Caption = 'Listen port'
ParentColor = False
end
object edtPort: TEdit
AnchorSideLeft.Control = lblListenPort
AnchorSideTop.Control = lblListenPort
AnchorSideTop.Side = asrBottom
Left = 14
Height = 23
Top = 91
Width = 144
TabOrder = 6
Text = '52737'
end
object edtParentPassword: TEdit
AnchorSideLeft.Control = lblPasswordParent
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbAllowParents
AnchorSideTop.Side = asrBottom
Left = 82
Height = 23
Top = 133
Width = 143
BorderSpacing.Left = 8
EchoMode = emPassword
OnChange = edtConnectPasswordChange
PasswordChar = '*'
TabOrder = 7
end
object cbConnectToOtherNode: TCheckBox
AnchorSideLeft.Control = cbAllowChildren
AnchorSideTop.Control = cbAutoTrustChildren
AnchorSideTop.Side = asrBottom
Left = 14
Height = 19
Hint = 'Connect to another system as it''s parent or child'
Top = 225
Width = 154
BorderSpacing.Top = 8
Caption = 'Connect to other node as'
OnChange = cbConnectToOtherNodeChange
ParentShowHint = False
ShowHint = True
TabOrder = 8
end
object cbAutoTrustChildren: TCheckBox
AnchorSideLeft.Control = lblPasswordChild
AnchorSideTop.Control = edtChildPassword
AnchorSideTop.Side = asrBottom
Left = 24
Height = 19
Hint = 'Normally when a worker terminates before the scan is done it will send all it''s paths to it''s connected node and then close, but if the system would crash it wouldn''t be able to send it''s queues to the node, causing in a loss of possible paths to examine'#13#10#13#10'When unchecked the owning controller/scanner will only send it one pointerpath queue element at a time and remembers that queue element until the worker reports that it has 0 queue elements, meaning it successfully completed the work item.'#13#10'Also note that under normal circumstaces the node will accept new paths from the worker, but in the case of non stable workers this is not done and the worker has to do all the sub paths it generated itself'#13#10#13#10'In the node screen you will be able to change the state of a worker'
Top = 198
Width = 280
BorderSpacing.Right = 3
Caption = 'Automatically trust stability of all new childnodes'
Checked = True
ParentShowHint = False
ShowHint = True
State = cbChecked
TabOrder = 9
end
object edtChildPassword: TEdit
AnchorSideLeft.Control = lblPasswordParent
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbAllowChildren
AnchorSideTop.Side = asrBottom
Left = 82
Height = 23
Top = 175
Width = 143
BorderSpacing.Left = 8
EchoMode = emPassword
MaxLength = 16
PasswordChar = '*'
TabOrder = 10
end
object cbAllowChildren: TCheckBox
AnchorSideLeft.Control = cbAllowParents
AnchorSideTop.Control = edtParentPassword
AnchorSideTop.Side = asrBottom
Left = 14
Height = 19
Top = 156
Width = 190
Caption = 'Allow children to connect to me'
Checked = True
State = cbChecked
TabOrder = 11
end
object edtConnectPort: TEdit
AnchorSideLeft.Control = edtConnectIP
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtConnectIP
Left = 174
Height = 23
Top = 259
Width = 69
BorderSpacing.Left = 5
Enabled = False
TabOrder = 12
Text = '52737'
end
object lblPort: TLabel
AnchorSideLeft.Control = edtConnectPort
AnchorSideTop.Control = cbConnectToOtherNode
AnchorSideTop.Side = asrBottom
Left = 174
Height = 15
Top = 244
Width = 22
Caption = 'Port'
Enabled = False
ParentColor = False
end
object edtConnectPassword: TEdit
AnchorSideLeft.Control = edtConnectPort
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtConnectIP
Left = 248
Height = 23
Top = 259
Width = 109
BorderSpacing.Left = 5
BorderSpacing.Right = 8
EchoMode = emPassword
Enabled = False
OnChange = edtConnectPasswordChange
PasswordChar = '*'
TabOrder = 13
end
object edtConnectIP: TEdit
AnchorSideLeft.Control = lblIP
AnchorSideTop.Control = lblIP
AnchorSideTop.Side = asrBottom
Left = 24
Height = 23
Top = 259
Width = 145
Enabled = False
TabOrder = 14
Text = '127.0.0.1'
end
object lblIP: TLabel
AnchorSideLeft.Control = lblPasswordChild
AnchorSideTop.Control = cbConnectToOtherNode
AnchorSideTop.Side = asrBottom
Left = 24
Height = 15
Top = 244
Width = 10
Caption = 'IP'
Enabled = False
ParentColor = False
end
object cbAllowParents: TCheckBox
AnchorSideLeft.Control = edtPort
AnchorSideTop.Control = edtPort
AnchorSideTop.Side = asrBottom
Left = 14
Height = 19
Top = 114
Width = 186
Caption = 'Allow parents to connect to me'
Checked = True
State = cbChecked
TabOrder = 15
end
object lblPasswordParent: TLabel
AnchorSideLeft.Control = cbAllowParents
AnchorSideTop.Control = edtParentPassword
AnchorSideTop.Side = asrCenter
Left = 24
Height = 15
Top = 137
Width = 50
BorderSpacing.Left = 10
Caption = 'Password'
ParentColor = False
end
object lblPasswordChild: TLabel
AnchorSideLeft.Control = lblPasswordParent
AnchorSideTop.Control = edtChildPassword
AnchorSideTop.Side = asrCenter
Left = 24
Height = 15
Top = 179
Width = 50
Caption = 'Password'
ParentColor = False
end
object lblPassword: TLabel
AnchorSideLeft.Control = edtConnectPassword
AnchorSideTop.Control = cbConnectToOtherNode
AnchorSideTop.Side = asrBottom
Left = 248
Height = 15
Top = 244
Width = 50
Caption = 'Password'
Enabled = False
ParentColor = False
end
object rbConnectAsParent: TRadioButton
AnchorSideLeft.Control = cbConnectToOtherNode
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbConnectToOtherNode
Left = 173
Height = 19
Top = 225
Width = 54
BorderSpacing.Left = 5
Caption = 'parent'
Enabled = False
TabOrder = 16
end
object rbConnectAsChild: TRadioButton
AnchorSideLeft.Control = rbConnectAsParent
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbConnectToOtherNode
Left = 230
Height = 19
Top = 225
Width = 46
BorderSpacing.Left = 3
Caption = 'child'
Checked = True
Enabled = False
TabOrder = 17
TabStop = True
end
object Button1: TButton
AnchorSideLeft.Control = edtChildPassword
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtChildPassword
AnchorSideTop.Side = asrCenter
Left = 228
Height = 25
Top = 174
Width = 127
AutoSize = True
BorderSpacing.Left = 3
BorderSpacing.Right = 8
Caption = 'Setup trusted IP list'
TabOrder = 18
Visible = False
end
object cbAllowTempFiles: TCheckBox
AnchorSideLeft.Control = edtMaxTimeToScan
AnchorSideTop.Control = edtMaxTimeToScan
AnchorSideTop.Side = asrBottom
Left = 14
Height = 19
Hint = 'When checked it will save the scandata files it receives into temporary files on the harddisk'#13#10'If it''s unchecked these files will stay in memory in their original file format as well as their extracted format'#13#10#13#10'This can be useful when on a system with no disk access but lots of RAM'
Top = 369
Width = 134
Caption = 'Allow temp file usage'
Checked = True
ParentShowHint = False
ShowHint = True
State = cbChecked
TabOrder = 19
end
object Panel1: TPanel
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = cbAllowTempFiles
AnchorSideTop.Side = asrBottom
Left = 103
Height = 39
Top = 388
Width = 157
AutoSize = True
BevelOuter = bvNone
ClientHeight = 39
ClientWidth = 157
TabOrder = 20
object btnOK: TButton
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 25
Top = 8
Width = 75
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.Bottom = 6
Caption = 'Launch'
Constraints.MinWidth = 75
Default = True
OnClick = btnOKClick
TabOrder = 0
end
object btnCancel: TButton
AnchorSideLeft.Control = btnOK
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnOK
AnchorSideBottom.Side = asrBottom
Left = 82
Height = 25
Top = 8
Width = 75
AutoSize = True
BorderSpacing.Left = 7
BorderSpacing.Bottom = 6
Cancel = True
Caption = 'Cancel'
Constraints.MinWidth = 75
ModalResult = 2
TabOrder = 1
end
end
object Panel2: TPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 14
Height = 38
Top = 0
Width = 80
AutoSize = True
BorderSpacing.Left = 14
BevelOuter = bvNone
ClientHeight = 38
ClientWidth = 80
TabOrder = 21
object lblThreadCount: TLabel
AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = Panel2
Left = 0
Height = 15
Top = 0
Width = 67
Caption = 'Threadcount'
ParentColor = False
end
object edtThreadCount: TEdit
AnchorSideLeft.Control = lblThreadCount
AnchorSideTop.Control = lblThreadCount
AnchorSideTop.Side = asrBottom
Left = 0
Height = 23
Hint = 'The number of threads to scan.'#13#10'Hint: Can be 0'
Top = 15
Width = 80
ParentShowHint = False
ShowHint = True
TabOrder = 0
Text = '0'
end
end
end