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
|
object Formarpmethod: TFormarpmethod
Left = 2048
Height = 615
Top = 273
Width = 846
Caption = 'ARP Method'
ClientHeight = 615
ClientWidth = 846
OnShow = FormShow
Position = poWorkAreaCenter
LCLVersion = '2.2.4.0'
object IPsInUseGroupBox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 0
Height = 440
Top = 0
Width = 376
Caption = '1: Find IPs in use:'
ClientHeight = 417
ClientWidth = 372
TabOrder = 0
object FindIPsButton: TButton
AnchorSideLeft.Control = IPsInUseGroupBox
AnchorSideTop.Control = IPsInUseGroupBox
Left = 4
Height = 25
Top = 0
Width = 184
BorderSpacing.Left = 4
Caption = 'Find IPs'
OnClick = FindIPsButtonClick
TabOrder = 0
end
object AssignedIPsLabel: TLabel
AnchorSideLeft.Control = FindIPsButton
AnchorSideTop.Control = FindIPsButton
AnchorSideTop.Side = asrBottom
Left = 4
Height = 21
Top = 31
Width = 87
BorderSpacing.Top = 6
Caption = 'Assigned IPs'
ParentColor = False
end
object AssignedIPsStringGrid: TStringGrid
AnchorSideLeft.Control = AssignedIPsLabel
AnchorSideTop.Control = AssignedIPsLabel
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = IPsInUseGroupBox
AnchorSideBottom.Side = asrBottom
Left = 4
Height = 359
Top = 52
Width = 180
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Bottom = 6
TabOrder = 1
end
object FreeIPsStringGrid: TStringGrid
AnchorSideLeft.Control = FreeIPsLabel
AnchorSideTop.Control = FreeIPsLabel
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = AssignedIPsStringGrid
AnchorSideBottom.Side = asrBottom
Left = 190
Height = 359
Top = 52
Width = 180
Anchors = [akTop, akLeft, akBottom]
TabOrder = 2
end
object FreeIPsLabel: TLabel
AnchorSideLeft.Control = AssignedIPsStringGrid
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = AssignedIPsLabel
Left = 190
Height = 21
Top = 31
Width = 55
BorderSpacing.Left = 6
Caption = 'Free IPs'
ParentColor = False
end
end
object ARPStatusMemo: TMemo
AnchorSideLeft.Control = StatusLabel
AnchorSideTop.Control = StatusLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 382
Height = 370
Top = 245
Width = 460
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Right = 4
TabOrder = 1
end
object ChooseIPGroupBox: TGroupBox
AnchorSideLeft.Control = IPsInUseGroupBox
AnchorSideTop.Control = IPsInUseGroupBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = IPsInUseGroupBox
AnchorSideRight.Side = asrBottom
Left = 0
Height = 96
Top = 440
Width = 376
Anchors = [akTop, akLeft, akRight]
Caption = '2: Choose IP:'
ClientHeight = 73
ClientWidth = 372
TabOrder = 2
object RandomlyChooseIPButton: TButton
AnchorSideLeft.Control = ChooseIPGroupBox
AnchorSideTop.Control = ChooseIPGroupBox
Left = 2
Height = 25
Top = 6
Width = 184
BorderSpacing.Left = 2
BorderSpacing.Top = 6
Caption = 'Randomly Choose IP'
TabOrder = 0
end
object IPEdit: TEdit
AnchorSideLeft.Control = RandomlyChooseIPButton
AnchorSideTop.Control = RandomlyChooseIPButton
AnchorSideTop.Side = asrBottom
Left = 2
Height = 31
Top = 33
Width = 184
BorderSpacing.Top = 2
TabOrder = 1
end
end
object StatusLabel: TLabel
AnchorSideLeft.Control = InstructionsLabel
AnchorSideTop.Control = InstructionsMemo
AnchorSideTop.Side = asrBottom
Left = 382
Height = 21
Top = 224
Width = 46
Caption = 'Status:'
ParentColor = False
end
object FixXPortGroupBox: TGroupBox
AnchorSideLeft.Control = IPsInUseGroupBox
AnchorSideTop.Control = ChooseIPGroupBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = IPsInUseGroupBox
AnchorSideRight.Side = asrBottom
Left = 0
Height = 64
Top = 536
Width = 376
Anchors = [akTop, akLeft, akRight]
Caption = '3: Fix XPort:'
ClientHeight = 41
ClientWidth = 372
TabOrder = 3
object FixXPortButton: TButton
AnchorSideLeft.Control = FixXPortGroupBox
AnchorSideTop.Control = FixXPortGroupBox
Left = 0
Height = 25
Top = 0
Width = 75
Caption = 'Fix XPort'
TabOrder = 0
end
end
object InstructionsMemo: TMemo
AnchorSideLeft.Control = InstructionsLabel
AnchorSideTop.Control = InstructionsLabel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 382
Height = 203
Top = 21
Width = 464
Anchors = [akTop, akLeft, akRight]
TabOrder = 4
end
object InstructionsLabel: TLabel
AnchorSideLeft.Control = IPsInUseGroupBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
Left = 382
Height = 21
Top = 0
Width = 86
BorderSpacing.Left = 6
Caption = 'Instructions:'
ParentColor = False
end
end
|
