options.dfm

ICQ客户端源代码

          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object lblCreateUIN: TLabel
          Left = 16
          Top = 104
          Width = 237
          Height = 13
          Caption = 'Create a new ICQ account using the ICQ website'
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = 13339492
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsUnderline]
          ParentFont = False
          OnClick = lblCreateUINClick
        end
        object lblRetPasswd: TLabel
          Left = 16
          Top = 128
          Width = 193
          Height = 13
          Caption = 'Retrieve a lost password or ICQ number'
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = 13339492
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsUnderline]
          ParentFont = False
          OnClick = lblRetPasswdClick
        end
        object edUIN: TEdit
          Left = 96
          Top = 24
          Width = 121
          Height = 21
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          MaxLength = 10
          ParentFont = False
          TabOrder = 0
          OnChange = edUINChange
        end
        object edPasswd: TPasswordEdit
          Left = 96
          Top = 56
          Width = 121
          Height = 21
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          MaxLength = 15
          ParentFont = False
          TabOrder = 1
          OnChange = edPasswdChange
        end
      end
      object gbExpert: TGroupBox
        Left = 16
        Top = 192
        Width = 449
        Height = 113
        Caption = ' Advanced settings '
        Font.Charset = EASTEUROPE_CHARSET
        Font.Color = 13977088
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object lblICQServer: TLabel
          Left = 16
          Top = 32
          Width = 64
          Height = 13
          Caption = 'Login Server:'
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object lblICQPort: TLabel
          Left = 248
          Top = 32
          Width = 24
          Height = 13
          Caption = 'Port:'
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object edICQServer: TEdit
          Left = 96
          Top = 24
          Width = 137
          Height = 21
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          MaxLength = 50
          ParentFont = False
          TabOrder = 0
          Text = 'login.icq.com'
          OnChange = edICQServerChange
        end
        object edICQPort: TEdit
          Left = 288
          Top = 24
          Width = 49
          Height = 21
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          MaxLength = 5
          ParentFont = False
          TabOrder = 1
          Text = '5190'
          OnChange = edICQPortChange
        end
        object btnReset: TButton
          Left = 368
          Top = 24
          Width = 57
          Height = 21
          Caption = 'Reset'
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = btnResetClick
        end
        object cbKeepAlive: TCheckBox
          Left = 16
          Top = 64
          Width = 409
          Height = 33
          Caption = 
            'Keep connection alive (send a blank packet every minute to preve' +
            'nt some proxies idling out)'
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          WordWrap = True
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'AutoAway'
      object gbAutoAway: TGroupBox
        Left = 16
        Top = 16
        Width = 449
        Height = 169
        Caption = ' Auto Away '
        Font.Charset = EASTEUROPE_CHARSET
        Font.Color = 13977088
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object lblAwayMin: TLabel
          Left = 272
          Top = 96
          Width = 96
          Height = 13
          Caption = 'minutes of inactivity'
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object lblNaMin: TLabel
          Left = 272
          Top = 136
          Width = 96
          Height = 13
          Caption = 'minutes of inactivity'
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object cbOnSaver: TCheckBox
          Left = 16
          Top = 24
          Width = 369
          Height = 17
          Caption = 'Set Away mode when screen saver engages'
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object cbOnWLock: TCheckBox
          Left = 16
          Top = 56
          Width = 369
          Height = 17
          Caption = 'Set Away mode when workstation is locked'
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object cbOnMouse: TCheckBox
          Left = 16
          Top = 96
          Width = 185
          Height = 17
          Caption = 'Set Away mode after'
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = cbOnMouseClick
        end
        object cbSetNA: TCheckBox
          Left = 16
          Top = 136
          Width = 185
          Height = 17
          Caption = 'Set N/A mode after'
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          OnClick = cbSetNAClick
        end
        object edAwayTime: TEdit
          Left = 216
          Top = 88
          Width = 41
          Height = 21
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          MaxLength = 4
          ParentFont = False
          TabOrder = 3
          Text = '5'
        end
        object edNATime: TEdit
          Left = 216
          Top = 128
          Width = 41
          Height = 21
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          MaxLength = 4
          ParentFont = False
          TabOrder = 5
          Text = '20'
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'StatusMsgs'
      object gbStatusMsgs: TGroupBox
        Left = 16
        Top = 16
        Width = 449
        Height = 201
        Caption = ' Status Messages '
        Font.Charset = EASTEUROPE_CHARSET
        Font.Color = 13977088
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Label5: TLabel
          Left = 16
          Top = 64
          Width = 87
          Height = 13
          Caption = 'Use this message:'
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 56
          Top = 168
          Width = 310
          Height = 13
          Alignment = taCenter
          Caption = 'Use %time% for the current time, %date% for the current date'
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object cbAwayMsgs: TComboBox
          Left = 16
          Top = 24
          Width = 417
          Height = 21
          Style = csDropDownList
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ItemHeight = 13
          ItemIndex = 0
          ParentFont = False
          TabOrder = 0
          Text = 'Away'
          OnChange = cbAwayMsgsChange
          Items.Strings = (
            'Away'
            'N/A'
            'Occupied'
            'DND'
            'Free for chat')
        end
        object mAwayMsg: TMemo
          Left = 56
          Top = 88
          Width = 329
          Height = 73
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          MaxLength = 100
          ParentFont = False
          ScrollBars = ssVertical
          TabOrder = 1
          OnExit = mAwayMsgExit
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Empty'
      object Label2: TLabel
        Left = 0
        Top = 176
        Width = 473
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = 'Please select a subentry from the list'
      end
    end
  end
  object TreeView: TTreeView
    Left = 8
    Top = 8
    Width = 137
    Height = 385
    HideSelection = False
    HotTrack = True
    Indent = 19
    MultiSelectStyle = []
    ReadOnly = True
    TabOrder = 0
    OnChange = TreeViewChange
    Items.Data = {
      03000000250000000000000000000000FFFFFFFFFFFFFFFF0000000001000000
      0C436F6E74616374204C697374200000000000000000000000FFFFFFFFFFFFFF
      FF00000000000000000757696E646F7773200000000000000000000000FFFFFF
      FFFFFFFFFF0000000001000000074E6574776F726B1C00000000000000000000
      00FFFFFFFFFFFFFFFF0000000000000000034943511F00000000000000000000
      00FFFFFFFFFFFFFFFF0000000002000000065374617475732200000000000000
      00000000FFFFFFFFFFFFFFFF0000000000000000094175746F20417761792800
      00000000000000000000FFFFFFFFFFFFFFFF00000000000000000F5374617475
      73204D65737361676573}
  end
  object btnOK: TButton
    Left = 376
    Top = 408
    Width = 75
    Height = 23
    Caption = 'OK'
    TabOrder = 2
    OnClick = btnOKClick
  end
  object btnCancel: TButton
    Left = 464
    Top = 408
    Width = 75
    Height = 23
    Caption = 'Cancel'
    TabOrder = 3
    OnClick = btnCancelClick
  end
  object btnApply: TButton
    Left = 552
    Top = 408
    Width = 75
    Height = 23
    Caption = 'Apply'
    TabOrder = 4
    OnClick = btnApplyClick
  end
end