Do It Yourself Pak/Do_ItPak1.iso/aftd/_SETUP.1/FamTree.exe/0/RCDATA/TSEARCHDLG/TSEARCHDLG.txt

Text File | 1999-07-07 | 5KB | 223 lines

object SearchDlg: TSearchDlg
  Left = 304
  Top = 180
  HelpContext = 5000
  BorderStyle = bsDialog
  Caption = 'Locate Individual'
  ClientHeight = 359
  ClientWidth = 491
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Pitch = fpFixed
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  Scaled = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 16
  object CancelBtn: TBitBtn
    Left = 302
    Top = 320
    Width = 86
    Height = 30
    TabOrder = 0
    OnClick = CancelBtnClick
    Kind = bkCancel
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object HelpBtn: TBitBtn
    Left = 396
    Top = 320
    Width = 87
    Height = 30
    TabOrder = 1
    OnClick = HelpBtnClick
    Kind = bkHelp
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object Panel1: TPanel
    Left = 9
    Top = 9
    Width = 478
    Height = 82
    BevelOuter = bvLowered
    TabOrder = 2
    object DateSpin2: TSpinEdit
      Left = 288
      Top = 45
      Width = 181
      Height = 26
      Hint = 'date'
      MaxValue = 2500
      MinValue = 1800
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      Value = 1900
    end
    object DateSpin1: TSpinEdit
      Left = 288
      Top = 9
      Width = 181
      Height = 26
      Hint = 'date'
      MaxValue = 2500
      MinValue = 0
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      Value = 1900
    end
    object GenderCombo: TComboBox
      Left = 9
      Top = 9
      Width = 109
      Height = 24
      Hint = 'Select gender'
      ItemHeight = 16
      Items.Strings = (
        'He or She'
        'He'
        'She')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Text = 'He or She'
    end
    object FindCombo1: TComboBox
      Left = 126
      Top = 9
      Width = 154
      Height = 24
      Hint = '1st search criteria'
      ItemHeight = 16
      Items.Strings = (
        'None'
        'Name'
        'Born (year)'
        'Born around'
        'Born before'
        'Born after'
        'Born (location)'
        'Died (year)'
        'Died around'
        'Died before'
        'Died after'
        'Died (location)')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Text = 'None'
      OnClick = FindCombo1Click
    end
    object SearchEdit1: TEdit
      Left = 288
      Top = 9
      Width = 181
      Height = 24
      Hint = 'location'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
    end
    object SearchEdit2: TEdit
      Left = 288
      Top = 45
      Width = 181
      Height = 24
      Hint = 'location'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
    end
    object FindBtn: TBitBtn
      Left = 9
      Top = 43
      Width = 109
      Height = 29
      Hint = 'Create search list'
      Caption = 'Find'
      Default = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = FindBtnClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777770000077777000007070007777707000707000777770
        7000700000007000000077070000007000007007000700700000700700070070
        0000770000000000000777707000707000777770000070000077777700077700
        0777777707077707077777770007770007777777777777777777}
      Margin = 2
      Spacing = -1
      IsControl = True
    end
    object FindCombo2: TComboBox
      Left = 126
      Top = 45
      Width = 154
      Height = 24
      Hint = '2nd search criteria'
      ItemHeight = 16
      Items.Strings = (
        'None'
        'Name'
        'Born (year)'
        'Born around'
        'Born before'
        'Born after'
        'Born (location)'
        'Died (year)'
        'Died around'
        'Died before'
        'Died after'
        'Died (location)')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      Text = 'None'
      OnClick = FindCombo2Click
    end
  end
  object Panel2: TPanel
    Left = 9
    Top = 99
    Width = 478
    Height = 208
    BevelOuter = bvLowered
    TabOrder = 3
    object SearchList: TListBox
      Left = 9
      Top = 9
      Width = 460
      Height = 190
      Hint = 'Click on name to select'
      ItemHeight = 16
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = SearchListClick
    end
  end
  object IdList: TListBox
    Left = 18
    Top = 315
    Width = 235
    Height = 37
    ItemHeight = 16
    TabOrder = 4
    Visible = False
  end
end