PC Gamer 1999 November/CD-Gamer_1999-11_02_cd.bin/netware/heatnet/heatnet.exe/Ping.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1997-08-13 | 6.7 KB | 268 lines

object MainForm: TMainForm
  Left = 286
  Top = 169
  Width = 423
  Height = 272
  Caption = 'PING'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 4
    Top = 36
    Width = 87
    Height = 13
    Caption = 'Average Trip Time'
  end
  object Label2: TLabel
    Left = 4
    Top = 56
    Width = 48
    Height = 13
    Caption = 'Time-Outs'
  end
  object AVTripLabel: TLabel
    Left = 96
    Top = 36
    Width = 6
    Height = 13
    Caption = '0'
  end
  object TimeoutLabel: TLabel
    Left = 56
    Top = 56
    Width = 6
    Height = 13
    Caption = '0'
  end
  object Label3: TLabel
    Left = 164
    Top = 56
    Width = 66
    Height = 13
    Caption = '% Packet loss'
  end
  object PackLossLabel: TLabel
    Left = 132
    Top = 56
    Width = 30
    Height = 13
    Alignment = taRightJustify
    Caption = '0'
  end
  object LossBox: TPaintBox
    Left = 236
    Top = 56
    Width = 105
    Height = 13
    Hint = 'Indication of packet loss'
    Color = clBlack
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    OnPaint = LossBoxPaint
  end
  object TimeBox: TPaintBox
    Left = 140
    Top = 36
    Width = 201
    Height = 13
    Hint = 'The relationship between the best, worst and average times.'
    Color = clBlack
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    OnPaint = TimeBoxPaint
  end
  object Memo1: TMemo
    Left = 0
    Top = 76
    Width = 409
    Height = 129
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 415
    Height = 33
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 0
    object MultiPingSelect: TSpeedButton
      Left = 380
      Top = 4
      Width = 29
      Height = 25
      Hint = 'Multiple Pings'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333393333333
        3181999333999933381899333399933331819993339999333818399933939993
        3181339993333999381833393333339331813000033333333818330003333333
        3181300003300003381800030333000331810033333000033818033333000303
        3181333330003333381833333303333331813000033330000818}
      ParentShowHint = False
      ShowHint = True
      OnClick = MultiPingSelectClick
    end
    object SinglePingSelect: TSpeedButton
      Left = 256
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Single ping on host'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3181333333191933381833333391933331813333331919333818333333939193
        3181333333333919381833333333339331813333333333333818333333333333
        3181333333300003381833333333000331813333333000033818333333000303
        3181333330003333381833333303333331813333333333333818}
      ParentShowHint = False
      ShowHint = True
      OnClick = SinglePingSelectClick
    end
    object SpeedButton1: TSpeedButton
      Left = 232
      Top = 4
      Width = 25
      Height = 25
      Hint = 'Abort this set of pings'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
        993337777F777F3377F3393999707333993337F77737333337FF993399933333
        399377F3777FF333377F993339903333399377F33737FF33377F993333707333
        399377F333377FF3377F993333101933399377F333777FFF377F993333000993
        399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
        99333773FF777F777733339993707339933333773FF7FFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
    object IPBox: TComboBox
      Left = 4
      Top = 6
      Width = 181
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      OnChange = IPBoxChange
    end
    object PingGroup: TUpDown
      Left = 365
      Top = 6
      Width = 12
      Height = 21
      Associate = Edit1
      Min = 1
      Max = 50
      Position = 5
      TabOrder = 1
      Wrap = False
    end
    object Edit1: TEdit
      Left = 284
      Top = 6
      Width = 81
      Height = 21
      Hint = 'Number of pings to make on host.'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Text = '5'
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 205
    Width = 415
    Height = 21
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 2
    object StatusLabel: TLabel
      Left = 4
      Top = 4
      Width = 31
      Height = 13
      Caption = 'Ready'
    end
  end
  object MainMenu1: TMainMenu
    Left = 360
    Top = 32
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object SaveSession1: TMenuItem
        Caption = '&Save Session'
        ShortCut = 0
        OnClick = SaveSession1Click
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      object Preferences1: TMenuItem
        Caption = '&Preferences...'
        ShortCut = 0
        OnClick = Preferences1Click
      end
      object ClearNotes1: TMenuItem
        Caption = '&Clear Notes'
        ShortCut = 0
        OnClick = ClearNotes1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object About1: TMenuItem
        Caption = '&About...'
        ShortCut = 0
        OnClick = About1Click
      end
      object Help2: TMenuItem
        Caption = '&Help'
        ShortCut = 0
        OnClick = Help2Click
      end
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    FileEditStyle = fsEdit
    Filter = 'Text Files|*.txt'
    Title = 'Save Ping Session Results to?'
    Left = 388
    Top = 32
  end
end