umain.dfm

NetPhone little VoIP program written in Delphi

      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 8
      Top = 58
      Width = 26
      Height = 13
      Caption = #23494#30721
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object EdHttpUser: TEdit
      Left = 40
      Top = 32
      Width = 153
      Height = 21
      TabOrder = 0
    end
    object EdHttpPass: TEdit
      Left = 40
      Top = 56
      Width = 153
      Height = 21
      TabOrder = 1
    end
    object EdHttpIP: TComboBox
      Left = 40
      Top = 8
      Width = 153
      Height = 21
      ItemHeight = 13
      TabOrder = 2
    end
  end
  object CkSocks: TCheckBox
    Left = 112
    Top = 40
    Width = 137
    Height = 17
    Caption = 'SOCKS '#20195#29702#26381#21153#22120
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
  end
  object CkHttp: TCheckBox
    Left = 328
    Top = 40
    Width = 129
    Height = 17
    Caption = 'HTTP '#20195#29702#26381#21153#22120
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 6
  end
  object EdListenPort: TEdit
    Left = 16
    Top = 112
    Width = 73
    Height = 21
    TabOrder = 7
    Text = '23450'
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 232
    Width = 546
    Height = 20
    Color = clSkyBlue
    Panels = <
      item
        Text = #23601#32490
        Width = 160
      end
      item
        Text = #27809#26377#36830#25509
        Width = 180
      end
      item
        Text = #25910#21040': 0    '#21457#36865': 0'
        Width = 50
      end>
    SimpleText = 'Ready'
  end
  object BtStop: TBitBtn
    Left = 16
    Top = 192
    Width = 75
    Height = 25
    Caption = #25346#26426
    Font.Charset = GB2312_CHARSET
    Font.Color = clFuchsia
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    OnClick = BtStopClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
      003333377777777777F3333091111111103333F7F3F3F3F3F7F3311098080808
      10333777F737373737F313309999999910337F373F3F3F3F3733133309808089
      03337FFF7F7373737FFF1000109999901000777777FFFFF77777701110000000
      111037F337777777F3373099901111109990373F373333373337330999999999
      99033373FFFFFFFFFF7333310000000001333337777777777733333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object CkPhone: TCheckBox
    Left = 328
    Top = 166
    Width = 49
    Height = 17
    Caption = #35805#31570
    Checked = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 10
    OnClick = CkPhoneClick
  end
  object CkSpeaker: TCheckBox
    Left = 440
    Top = 166
    Width = 49
    Height = 17
    Caption = #22768#38899
    Checked = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 11
    OnClick = CkSpeakerClick
  end
  object SbDelayTime: TScrollBar
    Left = 112
    Top = 196
    Width = 201
    Height = 15
    Max = 50
    Min = 1
    PageSize = 0
    Position = 3
    TabOrder = 12
    OnChange = SbDelayTimeChange
  end
  object BtSaveSetup: TBitBtn
    Left = 440
    Top = 192
    Width = 91
    Height = 25
    Caption = #20445#23384#35774#32622
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 13
    OnClick = BtSaveSetupClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
      7700333333337777777733333333008088003333333377F73377333333330088
      88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
      000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
      FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
      99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
      99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
      99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
      93337FFFF7737777733300000033333333337777773333333333}
    NumGlyphs = 2
  end
  object ATimer: TTimer
    Enabled = False
    Interval = 2000
    OnTimer = ATimerTimer
    Left = 248
    Top = 8
  end
  object TrayIcon: TLMDTrayIcon
    Hint = #32593#32476'IP'#30005#35805' V1.2'
    Icon.Data = {
      0000010001002020040000000000E80200001600000028000000200000004000
      0000010004000000000000020000000000000000000000000000000000000000
      0000000080000080000000808000800000008000800080800000C0C0C0008080
      80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000888800000000000000000000000000887788880000000000000000
      0000008877778888880000000000000000008877777788888888000000000000
      0088777777FF888888888800000000000F777777FF7778888888888800000000
      8F7777FF7777778888888888880080888F77FF77780777788888888888808877
      8FFF77780FF877778888888888808F778F77780FF87807777888888888808FFF
      78F77FF8780FF87777888888888008F7778F77780FF87807777788888880008F
      7778F77FF8780FF77777778888800008F7778F77780FF7777777887788800000
      8F7778F77FF777777788FF077780000008F7778F7777777788FFFFF088000000
      008F7778F7777788FFFFFFFF000000000008F77788F788FFFFFFFFFFF0000000
      000088F77788F8FFFFFFFFFFFF00000000000088F777888FFFFFFFFFFF800000
      0000000088880008FFFFFFFF8800000000000000000000008FFFFF8800000000
      000000000000000008FF88000000000000000000000000000088000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000000000FFFF
      FFFFFFFFFFFFFFFFFFFFFFFC3FFFFFF00FFFBFC003FF5F0000FFAC00003FD800
      000FB0000003400000010000000000000000000000000000000080000000C000
      0000E0000000F0000001F8000003FC000007FE000003FF000001FFC00000FFF0
      E003FFFFF00FFFFFF83FFFFFFCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    NoClose = True
    PopupMenu = MenuPopup
    OnDblClick = MnDisplayClick
    Left = 504
    Top = 16
  end
  object MenuPopup: TLMDPopupMenu
    OwnerDraw = True
    Layout.Alignment = agBottomCenter
    Layout.AlignText2Glyph = taTop
    Layout.OffsetY = -2
    Bevel.Mode = bmCustom
    Caption = 'NetPhone'
    FillObject.Style = sfGradient
    FillObject.Gradient.Color = clSkyBlue
    FillObject.Gradient.ColorCount = 64
    FillObject.Gradient.EndColor = clMoneyGreen
    Font.Charset = ANSI_CHARSET
    Font.Color = clYellow
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold, fsItalic]
    FontFX.Angle = 90
    Left = 464
    Top = 16
    object MnDisplay: TMenuItem
      Caption = '[&D]'#26174#31034
      OnClick = MnDisplayClick
    end
    object MnHide: TMenuItem
      Caption = '[&H]'#38544#34255
      OnClick = MnHideClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object MnExit: TMenuItem
      Caption = '[&X]'#36864#20986
      OnClick = MnExitClick
    end
  end
end