usersearch.dfm

本程序是转载的

object UserSearchForm: TUserSearchForm
  Left = 79
  Top = 170
  Width = 780
  Height = 556
  Caption = 'UserSearchForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 209
    Height = 89
    Caption = 'ICQ'
    TabOrder = 0
    object SearchByNumberRadio: TRadioButton
      Left = 8
      Top = 24
      Width = 177
      Height = 17
      Caption = 'Search by ICQ number'
      TabOrder = 0
      OnClick = SearchByNumberRadioClick
    end
    object NumberEdit: TEdit
      Left = 8
      Top = 48
      Width = 193
      Height = 21
      TabOrder = 1
      OnChange = NumberEditChange
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 96
    Width = 209
    Height = 89
    Caption = 'Email'
    TabOrder = 1
    object SearchByEmailRadio: TRadioButton
      Left = 8
      Top = 24
      Width = 113
      Height = 17
      Caption = 'Search by email'
      TabOrder = 0
      OnClick = SearchByEmailRadioClick
    end
    object EmailEdit: TEdit
      Left = 8
      Top = 48
      Width = 193
      Height = 21
      TabOrder = 1
      OnChange = EmailEditChange
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 192
    Width = 209
    Height = 145
    Caption = 'Name'
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 56
      Width = 25
      Height = 13
      Caption = 'Nick:'
    end
    object Label2: TLabel
      Left = 8
      Top = 80
      Width = 22
      Height = 13
      Caption = 'First:'
    end
    object Label3: TLabel
      Left = 8
      Top = 104
      Width = 23
      Height = 13
      Caption = 'Last:'
    end
    object SearchByNameRadio: TRadioButton
      Left = 8
      Top = 24
      Width = 113
      Height = 17
      Caption = 'Search by name'
      TabOrder = 0
      OnClick = SearchByNameRadioClick
    end
    object NickEdit: TEdit
      Left = 48
      Top = 48
      Width = 153
      Height = 21
      TabOrder = 1
      OnChange = NickEditChange
    end
    object FirstEdit: TEdit
      Left = 48
      Top = 72
      Width = 153
      Height = 21
      TabOrder = 2
      OnChange = NickEditChange
    end
    object LastEdit: TEdit
      Left = 48
      Top = 96
      Width = 153
      Height = 21
      TabOrder = 3
      OnChange = NickEditChange
    end
  end
  object GroupBox4: TGroupBox
    Left = 216
    Top = 0
    Width = 555
    Height = 515
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = 'Results'
    TabOrder = 4
    object ListView1: TListView
      Left = 2
      Top = 15
      Width = 551
      Height = 498
      Align = alClient
      Columns = <
        item
          Caption = 'Nick'
          Width = 100
        end
        item
          Caption = 'First'
          Width = 90
        end
        item
          Caption = 'Last'
          Width = 100
        end
        item
          Caption = 'Email'
          Width = 90
        end
        item
          Caption = 'ICQ'
          Width = 73
        end
        item
          Caption = 'Gender/Age'
          Width = 80
        end>
      ReadOnly = True
      RowSelect = True
      PopupMenu = UserSearchPopup
      SmallImages = MainForm.IconList
      TabOrder = 0
      ViewStyle = vsReport
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 510
    Width = 772
    Height = 19
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object GroupBox5: TGroupBox
    Left = 0
    Top = 344
    Width = 209
    Height = 113
    Caption = 'Random'
    TabOrder = 6
    object Label4: TLabel
      Left = 8
      Top = 64
      Width = 32
      Height = 13
      Caption = 'Group:'
    end
    object RandomSearchRadio: TRadioButton
      Left = 16
      Top = 24
      Width = 113
      Height = 17
      Caption = 'Random search'
      TabOrder = 0
      OnClick = RandomSearchRadioClick
    end
    object RandomComboBox: TComboBox
      Left = 48
      Top = 56
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      OnChange = RandomComboBoxChange
    end
  end
  object AdvancedButton: TButton
    Left = 0
    Top = 460
    Width = 209
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = 'Advanced'
    TabOrder = 7
    OnClick = AdvancedButtonClick
  end
  object Button1: TButton
    Left = 0
    Top = 488
    Width = 209
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = 'Search'
    TabOrder = 3
    OnClick = Button1Click
  end
  object UserSearchPopup: TPopupMenu
    OnPopup = UserSearchPopupPopup
    Left = 8
    Top = 16
    object AddToList1: TMenuItem
      Caption = '&Add to list'
      OnClick = AddToList1Click
    end
    object UsersInfo1: TMenuItem
      Caption = 'Us&er'#39's info'
      OnClick = UsersInfo1Click
    end
  end
end