adduser.dfm

ICQ客户端源代码

object AddUserForm: TAddUserForm
  Left = 343
  Top = 214
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Add Contact'
  ClientHeight = 250
  ClientWidth = 282
  Color = clBtnFace
  Font.Charset = EASTEUROPE_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Icon.Data = {
    0000010001001010000001000001680500001600000028000000100000002000
    0000010008000000000040010000000000000000000000000000000000000000
    0000800080008000000080800000008000000080800000008000C0C0C000C0DC
    C000F0CAA60080808000FF00FF00FF000000FFFF000000FF000000FFFF000000
    FF00FFFFFF00F0FBFF0032323200262626001A1A1A000E0E0E00A4A0A000D4F0
    FF00B1E2FF008ED4FF006BC6FF0048B8FF0025AAFF0000AAFF000092DC00007A
    B90000629600004A730000325000D4E3FF00B1C7FF008EABFF006B8FFF004873
    FF002557FF000055FF000049DC00003DB900003196000025730000195000D4D4
    FF00B1B1FF008E8EFF006B6BFF004848FF002525FF000000FF000000DC000000
    B900000096000000730000005000E3D4FF00C7B1FF00AB8EFF008F6BFF007348
    FF005725FF005500FF004900DC003D00B900310096002500730019005000F0D4
    FF00E2B1FF00D48EFF00C66BFF00B848FF00AA25FF00AA00FF009200DC007A00
    B900620096004A00730032005000FFD4FF00FFB1FF00FF8EFF00FF6BFF00FF48
    FF00FF25FF00FF00FF00DC00DC00B900B900960096007300730050005000FFD4
    F000FFB1E200FF8ED400FF6BC600FF48B800FF25AA00FF00AA00DC009200B900
    7A009600620073004A0050003200FFD4E300FFB1C700FF8EAB00FF6B8F00FF48
    7300FF255700FF005500DC004900B9003D00960031007300250050001900FFD4
    D400FFB1B100FF8E8E00FF6B6B00FF484800FF252500FF000000DC000000B900
    0000960000007300000050000000FFE3D400FFC7B100FFAB8E00FF8F6B00FF73
    4800FF572500FF550000DC490000B93D0000963100007325000050190000FFF0
    D400FFE2B100FFD48E00FFC66B00FFB84800FFAA2500FFAA0000DC920000B97A
    000096620000734A000050320000FFFFD400FFFFB100FFFF8E00FFFF6B00FFFF
    4800FFFF2500FFFF0000DCDC0000B9B90000969600007373000050500000F0FF
    D400E2FFB100D4FF8E00C6FF6B00B8FF4800AAFF2500AAFF000092DC00007AB9
    0000629600004A73000032500000E3FFD400C7FFB100ABFF8E008FFF6B0073FF
    480057FF250055FF000049DC00003DB90000319600002573000019500000D4FF
    D400B1FFB1008EFF8E006BFF6B0048FF480025FF250000FF000000DC000000B9
    0000009600000073000000500000D4FFE300B1FFC7008EFFAB006BFF8F0048FF
    730025FF570000FF550000DC490000B93D00009631000073250000501900D4FF
    F000B1FFE2008EFFD4006BFFC60048FFB80025FFAA0000FFAA0000DC920000B9
    7A000096620000734A0000503200D4FFFF00B1FFFF008EFFFF006BFFFF0048FF
    FF0025FFFF0000FFFF0000DCDC0000B9B900009696000073730000505000F2F2
    F200E6E6E600DADADA00CECECE00C2C2C200B6B6B600AAAAAA009E9E9E009292
    9200868686007A7A7A006E6E6E0062626200565656004A4A4A003E3E3E000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000CACACACA000000000000000000000000CABDD4CA0000000000000000
    00000000CAD4D4CA000000000000000000000000CAD4D4CA0000000000000000
    CACACACACAD4BBCACACACACA00000000CABBBBBBBBBBC7BBD4D4BDCA00000000
    CAD0BBBBBBBBBBBBD4D4D4CA00000000CACACACACABBBBCACACACACA00000000
    00000000CABBBBCA000000000000000000000000CABBBBCA0000000000000000
    00000000CAD0BBCA000000000000000000000000CACACACA0000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    0000FFFF0000FC3F0000FC3F0000FC3F0000FC3F0000C0030000C0030000C003
    0000C0030000FC3F0000FC3F0000FC3F0000FC3F0000FFFF0000FFFF0000}
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 69
    Height = 13
    Caption = 'Custom name:'
  end
  object mNick: TMemo
    Left = 8
    Top = 24
    Width = 121
    Height = 19
    MaxLength = 20
    TabOrder = 0
    WantReturns = False
    WordWrap = False
    OnKeyDown = mNickKeyDown
    OnKeyUp = mNickKeyUp
  end
  object gbOptions: TGroupBox
    Left = 8
    Top = 48
    Width = 265
    Height = 73
    Caption = ' Options '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 13977088
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object cbYouWereAdded: TCheckBox
      Left = 8
      Top = 24
      Width = 249
      Height = 17
      Caption = 'Send "You were added"'
      Font.Charset = EASTEUROPE_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object cbAuhtorize: TCheckBox
      Left = 8
      Top = 48
      Width = 249
      Height = 17
      Caption = 'Send authorization request'
      Font.Charset = EASTEUROPE_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = cbAuhtorizeClick
    end
  end
  object gbAuthReq: TGroupBox
    Left = 8
    Top = 128
    Width = 265
    Height = 73
    Caption = ' Authorization Request '
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = 13977088
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object mAuthReq: TMemo
      Left = 8
      Top = 16
      Width = 249
      Height = 49
      Enabled = False
      Font.Charset = EASTEUROPE_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      Lines.Strings = (
        'Please authorize my request and add me to '
        'your contact list.')
      MaxLength = 450
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object btnAdd: TButton
    Left = 24
    Top = 216
    Width = 97
    Height = 23
    Caption = '&Add'
    TabOrder = 3
    OnClick = btnAddClick
  end
  object btnCancel: TButton
    Left = 160
    Top = 216
    Width = 99
    Height = 25
    Caption = '&Cancel'
    TabOrder = 4
    OnClick = btnCancelClick
  end
end