|
|
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.