|
|
1.1 root 1: object ClientForm: TClientForm 1.1.1.2 ! root 2: Left = 476 ! 3: Top = 436 1.1 root 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: PixelsPerInch = 120 18: TextHeight = 16 19: object ListView: TListView 20: Left = 0 21: Top = 0 22: Width = 623 1.1.1.2 ! root 23: Height = 312 1.1 root 24: Align = alClient 25: Columns = < 26: item 27: Caption = 'Socket' 28: Width = 60 29: end 30: item 31: Caption = 'Protocol' 32: Width = 65 33: end 34: item 35: Caption = 'User' 36: Width = 90 37: end 38: item 39: Caption = 'Address' 40: Width = 100 41: end 42: item 43: Caption = 'Host Name' 44: Width = 100 45: end 46: item 47: Caption = 'Port' 48: Width = 55 49: end 50: item 1.1.1.2 ! root 51: AutoSize = True 1.1 root 52: Caption = 'Time' 53: end> 1.1.1.2 ! root 54: ColumnClick = False 1.1 root 55: MultiSelect = True 56: ReadOnly = True 1.1.1.2 ! root 57: RowSelect = True 1.1 root 58: PopupMenu = PopupMenu 59: TabOrder = 0 60: ViewStyle = vsReport 61: end 62: object Timer: TTimer 63: Interval = 5000 64: OnTimer = TimerTimer 65: Left = 168 66: Top = 128 67: end 68: object PopupMenu: TPopupMenu 69: Left = 344 70: Top = 200 71: object CloseSocketMenuItem: TMenuItem 1.1.1.2 ! root 72: Caption = '&Close Socket' 1.1 root 73: OnClick = CloseSocketMenuItemClick 74: end 1.1.1.2 ! root 75: object FilterIpMenuItem: TMenuItem ! 76: Caption = '&Filter IP Address' ! 77: OnClick = FilterIpMenuItemClick ! 78: end 1.1 root 79: end 80: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.