Chip 2001 March/MINDWARE_MAR_2001.iso/Software/internet/netstat/NetStat.exe/0/RCDATA/TFRMMAIN/TFRMMAIN.txt

Text File | 2000-02-28 | 24.0 KB | 1,027 lines

object FrmMain: TFrmMain
  Left = 435
  Top = 256
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'NetStat %s'
  ClientHeight = 249
  ClientWidth = 344
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PC: TPageControl
    Left = 3
    Top = 1
    Width = 338
    Height = 244
    ActivePage = TabSheet4
    MultiLine = True
    TabHeight = 20
    TabOrder = 0
    OnChange = PCChange
    OnChanging = PCChanging
    object TabSheet1: TTabSheet
      Caption = '&Current Stats'
      object GroupBox2: TGroupBox
        Left = 6
        Top = 3
        Width = 318
        Height = 205
        Caption = 'Current Connection'
        TabOrder = 0
        object StaticText1: TStaticText
          Left = 9
          Top = 20
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Connect Speed'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object Edit1: TEdit
          Left = 171
          Top = 20
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 1
          Text = 'Not Connected'
        end
        object StaticText2: TStaticText
          Left = 9
          Top = 44
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Duration'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object Edit2: TEdit
          Left = 171
          Top = 44
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 3
          Text = '00:00:00'
        end
        object StaticText13: TStaticText
          Left = 9
          Top = 68
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Idle Time'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
        object Edit13: TEdit
          Left = 171
          Top = 68
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 5
          Text = '00:00:00'
        end
        object StaticText3: TStaticText
          Left = 9
          Top = 92
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Received'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
        end
        object Edit3: TEdit
          Left = 171
          Top = 92
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 7
          Text = '0'
        end
        object StaticText4: TStaticText
          Left = 9
          Top = 115
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Sent'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 8
        end
        object Edit4: TEdit
          Left = 171
          Top = 115
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 9
          Text = '0'
        end
        object StaticText5: TStaticText
          Left = 9
          Top = 139
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Received per/sec'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 10
        end
        object Edit5: TEdit
          Left = 171
          Top = 139
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 11
          Text = '0'
        end
        object StaticText6: TStaticText
          Left = 9
          Top = 163
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Sent per/sec'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 12
        end
        object Edit6: TEdit
          Left = 171
          Top = 163
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 13
          Text = '0'
        end
        object UpDown1: TUpDown
          Left = 291
          Top = 93
          Width = 13
          Height = 19
          Min = 0
          Max = 3
          Position = 0
          TabOrder = 14
          Wrap = False
        end
        object UpDown2: TUpDown
          Left = 291
          Top = 117
          Width = 13
          Height = 19
          Min = 0
          Max = 3
          Position = 0
          TabOrder = 15
          Wrap = False
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '&Session Stats'
      ImageIndex = 1
      object GroupBox3: TGroupBox
        Left = 6
        Top = 3
        Width = 318
        Height = 205
        Caption = 'Windows Session Stats'
        TabOrder = 0
        object StaticText14: TStaticText
          Left = 9
          Top = 20
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Windows Uptime'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object Edit14: TEdit
          Left = 171
          Top = 20
          Width = 135
          Height = 21
          AutoSize = False
          BiDiMode = bdLeftToRight
          Ctl3D = True
          ParentBiDiMode = False
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 1
          Text = '0'
        end
        object Edit12: TEdit
          Left = 171
          Top = 44
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 2
          Text = '00:00:00'
        end
        object StaticText7: TStaticText
          Left = 9
          Top = 44
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Duration'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
        end
        object StaticText8: TStaticText
          Left = 9
          Top = 68
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Received'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
        object Edit7: TEdit
          Left = 171
          Top = 68
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 5
          Text = '0'
        end
        object Edit8: TEdit
          Left = 171
          Top = 92
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 6
          Text = '0'
        end
        object StaticText9: TStaticText
          Left = 9
          Top = 92
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Sent'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 7
        end
        object UpDown3: TUpDown
          Left = 291
          Top = 94
          Width = 13
          Height = 19
          AlignButton = udLeft
          Min = 0
          Max = 3
          Position = 0
          TabOrder = 8
          Wrap = False
        end
        object UpDown4: TUpDown
          Left = 291
          Top = 70
          Width = 13
          Height = 19
          AlignButton = udLeft
          Min = 0
          Max = 3
          Position = 0
          TabOrder = 9
          Wrap = False
        end
        object StaticText17: TStaticText
          Left = 9
          Top = 115
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'System Resources'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 10
        end
        object Edit17: TEdit
          Left = 171
          Top = 115
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 11
          Text = '0'
        end
        object StaticText19: TStaticText
          Left = 9
          Top = 163
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'GDI Resources'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 12
        end
        object StaticText18: TStaticText
          Left = 9
          Top = 139
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'User Resources'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 13
        end
        object Edit19: TEdit
          Left = 171
          Top = 163
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 14
          Text = '0'
        end
        object Edit18: TEdit
          Left = 171
          Top = 139
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 15
          Text = '0'
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'C&ustom Stats'
      ImageIndex = 6
      object GroupBox4: TGroupBox
        Left = 6
        Top = 3
        Width = 318
        Height = 205
        Caption = 'Custom Stats'
        TabOrder = 0
        object StaticText10: TStaticText
          Left = 9
          Top = 20
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Duration'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object Edit9: TEdit
          Left = 171
          Top = 20
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 1
          Text = '00:00:00'
        end
        object StaticText11: TStaticText
          Left = 9
          Top = 44
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Received'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object Edit10: TEdit
          Left = 171
          Top = 44
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 3
          Text = '0'
        end
        object StaticText12: TStaticText
          Left = 9
          Top = 68
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Sent'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
        object Edit11: TEdit
          Left = 171
          Top = 68
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 5
          Text = '0'
        end
        object StaticText15: TStaticText
          Left = 9
          Top = 92
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Received per/sec'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
        end
        object Edit15: TEdit
          Left = 171
          Top = 92
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 7
          Text = '0'
        end
        object StaticText16: TStaticText
          Left = 9
          Top = 115
          Width = 158
          Height = 21
          AutoSize = False
          BorderStyle = sbsSunken
          Caption = 'Sent per/sec'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 8
        end
        object Edit16: TEdit
          Left = 171
          Top = 115
          Width = 135
          Height = 21
          AutoSize = False
          ReadOnly = True
          TabOrder = 9
          Text = '0'
        end
        object bStart: TButton
          Left = 8
          Top = 151
          Width = 62
          Height = 22
          Caption = 'Start'
          TabOrder = 10
          OnClick = bStartClick
        end
        object bStop: TButton
          Left = 77
          Top = 151
          Width = 62
          Height = 22
          Caption = 'Stop'
          Enabled = False
          TabOrder = 11
          OnClick = bStopClick
        end
        object bReset: TButton
          Left = 243
          Top = 151
          Width = 62
          Height = 22
          Caption = 'Reset'
          TabOrder = 12
          OnClick = bResetClick
        end
        object UpDown5: TUpDown
          Left = 291
          Top = 70
          Width = 13
          Height = 19
          Min = 0
          Max = 3
          Position = 0
          TabOrder = 13
          Wrap = False
        end
        object UpDown6: TUpDown
          Left = 291
          Top = 46
          Width = 13
          Height = 19
          Min = 0
          Max = 3
          Position = 0
          TabOrder = 14
          Wrap = False
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = '  &Meter  '
      ImageIndex = 5
      object FlashMeter1: TFlashMeter
        Left = 0
        Top = 5
        Width = 324
        Height = 128
        PeakColor = 33023
        ShowPeak = False
        Value1 = 1
        Value2 = 1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Shape1: TShape
        Left = 325
        Top = 0
        Width = 2
        Height = 127
      end
      object Shape2: TShape
        Left = 265
        Top = 124
        Width = 1
        Height = 5
      end
      object Shape3: TShape
        Left = 205
        Top = 124
        Width = 1
        Height = 5
      end
      object Shape4: TShape
        Left = 145
        Top = 124
        Width = 1
        Height = 5
      end
      object Shape5: TShape
        Left = 85
        Top = 124
        Width = 1
        Height = 5
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 133
        Width = 317
        Height = 77
        TabOrder = 0
        object Label15: TLabel
          Left = 9
          Top = 17
          Width = 14
          Height = 14
          AutoSize = False
          Caption = '          '
          Color = clBlue
          ParentColor = False
        end
        object Label17: TLabel
          Left = 33
          Top = 17
          Width = 46
          Height = 13
          Caption = 'Received'
        end
        object RecvPeek: TLabel
          Left = 155
          Top = 24
          Width = 6
          Height = 13
          Caption = '0'
        end
        object Label16: TLabel
          Left = 9
          Top = 54
          Width = 14
          Height = 14
          AutoSize = False
          Caption = '          '
          Color = clRed
          ParentColor = False
        end
        object Label18: TLabel
          Left = 33
          Top = 55
          Width = 22
          Height = 13
          Caption = 'Sent'
        end
        object SendPeek: TLabel
          Left = 155
          Top = 61
          Width = 6
          Height = 13
          Caption = '0'
        end
        object Bevel2: TBevel
          Left = 6
          Top = 40
          Width = 306
          Height = 2
        end
        object Recv: TLabel
          Left = 155
          Top = 7
          Width = 6
          Height = 13
          Caption = '0'
        end
        object Send: TLabel
          Left = 155
          Top = 44
          Width = 6
          Height = 13
          Caption = '0'
        end
        object Bevel3: TBevel
          Left = 95
          Top = 6
          Width = 2
          Height = 69
        end
        object Label19: TLabel
          Left = 108
          Top = 7
          Width = 34
          Height = 13
          Caption = 'Current'
        end
        object Label20: TLabel
          Left = 108
          Top = 24
          Width = 25
          Height = 13
          Caption = 'Peak'
        end
        object Label21: TLabel
          Left = 108
          Top = 44
          Width = 34
          Height = 13
          Caption = 'Current'
        end
        object Label22: TLabel
          Left = 108
          Top = 61
          Width = 25
          Height = 13
          Caption = 'Peak'
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'Sc&hedule'
      ImageIndex = 6
      object bNew: TButton
        Left = 4
        Top = 184
        Width = 62
        Height = 22
        Caption = '&New'
        ModalResult = 1
        TabOrder = 1
        OnClick = bNewClick
      end
      object bDel: TButton
        Left = 146
        Top = 184
        Width = 61
        Height = 22
        Cancel = True
        Caption = '&Delete'
        ModalResult = 2
        TabOrder = 3
        OnClick = bDelClick
      end
      object lvsched: TListView
        Left = 3
        Top = 4
        Width = 323
        Height = 172
        Columns = <
          item
            Caption = 'Name'
            Width = 120
          end
          item
            Caption = 'Operation'
            Width = 80
          end
          item
            Caption = 'Date/Time'
            Width = 119
          end>
        ColumnClick = False
        HotTrackStyles = []
        ReadOnly = True
        TabOrder = 0
        ViewStyle = vsReport
        OnDblClick = bEditClick
      end
      object bEdit: TButton
        Left = 76
        Top = 184
        Width = 61
        Height = 22
        Cancel = True
        Caption = '&Edit'
        ModalResult = 2
        TabOrder = 2
        OnClick = bEditClick
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 34
    Top = 250
    object File1: TMenuItem
      Caption = '&File'
      object DetailedStats1: TMenuItem
        Caption = '&Detailed Stats'
        ShortCut = 113
        OnClick = DetailsClick
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object Setup1: TMenuItem
        Caption = '&Setup'
        ShortCut = 115
        OnClick = Setup1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object Tools1: TMenuItem
      Caption = '&Options'
      object RonD1: TMenuItem
        Caption = 'Reconnect on Disconnect'
        OnClick = RonD1Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object Peak1: TMenuItem
        Caption = 'Meter Peak'
        object mnuMP1: TMenuItem
          Caption = 'Automatic'
          Checked = True
          RadioItem = True
          OnClick = mnuMPClick
        end
        object N4: TMenuItem
          Caption = '-'
        end
        object mnuMP2: TMenuItem
          Tag = 11520
          Caption = '115,200'
          RadioItem = True
          OnClick = mnuMPClick
        end
        object mnuMP3: TMenuItem
          Tag = 5760
          Caption = ' 57,600'
          RadioItem = True
          OnClick = mnuMPClick
        end
        object mnuMP4: TMenuItem
          Tag = 3840
          Caption = ' 38,400'
          RadioItem = True
          OnClick = mnuMPClick
        end
        object mnuMP5: TMenuItem
          Tag = 1920
          Caption = ' 19,200'
          RadioItem = True
          OnClick = mnuMPClick
        end
      end
    end
    object about1: TMenuItem
      Caption = '&About'
      object AboutNetStat1: TMenuItem
        Caption = 'About NetStat..'
        OnClick = AboutNetStat1Click
      end
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 67
    Top = 251
  end
  object pMenu: TPopupMenu
    OnPopup = pMenuPopup
    Left = 131
    Top = 252
    object Restore1: TMenuItem
      Caption = '&Restore'
      Default = True
      OnClick = Restore1Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Connect1: TMenuItem
      Caption = '&Connect'
      object TMenuItem
      end
    end
    object Disconnect1: TMenuItem
      Caption = '&Disconnect'
      object TMenuItem
      end
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object Options1: TMenuItem
      Caption = '&Options'
      object RonD2: TMenuItem
        Caption = 'Reconnect on Disconnect'
        OnClick = RonD1Click
      end
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Exit2: TMenuItem
      Caption = 'E&xit'
      OnClick = Exit1Click
    end
  end
  object DialUp1: TDialUp
    DialMode = dmAsync
    OnAsyncEvent = DialUp1AsyncEvent
    OnActiveConnection = DialUp1ActiveConnection
    Left = 3
    Top = 250
  end
  object FlashTray1: TFlashTray
    AutoRestore = True
    AutoMinimize = True
    StartMinimized = True
    Enabled = False
    OnDblClick = FlashTray1DblClick
    PopupMenu = pMenu
    Left = 99
    Top = 252
  end
end