|
|
1.1 root 1: object ClientForm: TClientForm
2: Left = 510
3: Top = 451
4: Width = 631
5: Height = 345
6: Caption = 'Clients'
7: Color = clBtnFace
8: DragKind = dkDock
9: DragMode = dmAutomatic
10: Font.Charset = DEFAULT_CHARSET
11: Font.Color = clWindowText
12: Font.Height = -13
13: Font.Name = 'MS Sans Serif'
14: Font.Style = []
15: OldCreateOrder = False
16: OnHide = FormHide
17: OnShow = FormShow
18: PixelsPerInch = 120
19: TextHeight = 16
20: object ListView: TListView
21: Left = 0
22: Top = 0
23: Width = 623
24: Height = 313
25: Align = alClient
26: Columns = <
27: item
28: Caption = 'Socket'
29: Width = 60
30: end
31: item
32: Caption = 'Protocol'
33: Width = 65
34: end
35: item
36: Caption = 'User'
37: Width = 90
38: end
39: item
40: Caption = 'Address'
41: Width = 100
42: end
43: item
44: Caption = 'Host Name'
45: Width = 100
46: end
47: item
48: Caption = 'Port'
49: Width = 55
50: end
51: item
52: Caption = 'Time'
53: Width = 55
54: end>
55: MultiSelect = True
56: ReadOnly = True
57: PopupMenu = PopupMenu
58: TabOrder = 0
59: ViewStyle = vsReport
60: end
61: object Timer: TTimer
62: Interval = 5000
63: OnTimer = TimerTimer
64: Left = 168
65: Top = 128
66: end
67: object PopupMenu: TPopupMenu
68: Left = 344
69: Top = 200
70: object CloseSocketMenuItem: TMenuItem
71: Caption = '&Close'
72: OnClick = CloseSocketMenuItemClick
73: end
74: end
75: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.