searchuser.dfm

絮语2007视频聊天软件源程序.仅供参考

object search_user: Tsearch_user
  Left = 211
  Top = 144
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '查找在线好友'
  ClientHeight = 332
  ClientWidth = 422
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  Scaled = False
  OnCreate = FormCreate
  OnPaint = FormPaint
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 409
    Height = 39
    Shape = bsFrame
  end
  object Label1: TLabel
    Left = 16
    Top = 20
    Width = 73
    Height = 13
    Caption = '指定搜索IP:'
    Transparent = True
  end
  object Edit1: TEdit
    Left = 96
    Top = 16
    Width = 169
    Height = 21
    TabOrder = 0
  end
  object xpButton6: TxpButton
    Left = 239
    Top = 17
    Width = 25
    Height = 19
    Caption = '...'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    TabOrder = 1
    TabStop = True
    OnClick = xpButton6Click
  end
  object xpButton1: TxpButton
    Left = 272
    Top = 14
    Width = 41
    Height = 25
    Caption = '搜索'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    TabOrder = 2
    TabStop = True
    OnClick = xpButton1Click
  end
  object xpButton3: TxpButton
    Left = 344
    Top = 14
    Width = 65
    Height = 25
    Caption = '加为好友'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    TabOrder = 3
    TabStop = True
    OnClick = xpButton3Click
  end
  object ListView1: TListView
    Left = 8
    Top = 52
    Width = 409
    Height = 257
    Columns = <
      item
        Caption = '呢称'
        Width = 100
      end
      item
        Caption = '帐号'
        Width = 80
      end
      item
        Caption = '职务'
        Width = 100
      end
      item
        Caption = '部门'
        Width = 100
      end>
    ReadOnly = True
    SmallImages = udpcore.main_small_list
    TabOrder = 4
    ViewStyle = vsReport
    OnChange = ListView1Change
    OnClick = ListView1Click
    OnDblClick = xpButton3Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 313
    Width = 422
    Height = 19
    Panels = <
      item
        Text = '搜索结果:'
        Width = 60
      end
      item
        Text = '65535'
        Width = 50
      end
      item
        Text = '所选帐号的IP:'
        Width = 80
      end
      item
        Text = '255.255.255.255'
        Width = 90
      end>
    SimplePanel = False
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 12
    Top = 80
    object N1: TMenuItem
      Caption = '添加当前地址从地址列表'
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = '删除当前地址从地址列表'
      OnClick = N2Click
    end
    object N4: TMenuItem
      Caption = '清空地址列表'
      OnClick = N4Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
  end
end