object Form1: TForm1
  Left = 233
  Top = 145
  Width = 435
  Height = 290
  Caption = 'Outline Browser Demo'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 16
  object TabbedNotebook1: TTabbedNotebook
    Left = 0
    Top = 25
    Width = 427
    Height = 238
    Align = alClient
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 0
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'TOutlineBrowser'
      object Label1: TLabel
        Left = 16
        Top = 72
        Width = 177
        Height = 16
        Caption = 'Customise size and button:'
      end
      object Label2: TLabel
        Left = 16
        Top = 16
        Width = 101
        Height = 16
        Caption = 'Browse a table:'
      end
      object Label4: TLabel
        Left = 16
        Top = 128
        Width = 368
        Height = 48
        Caption = 
          'Type in part of persons surname and press the button to search, ' +
          'then right click on any node to see details. Drag and drop to ch' +
          'ange the structure.'
        WordWrap = True
      end
      object Label3: TLabel
        Left = 200
        Top = 8
        Width = 208
        Height = 64
        Caption = 
          'Note that you can browse tables in most databases that have an e' +
          'ngine, such as Interbase or Oracle'
        WordWrap = True
      end
      object OutlineBrowser1: TOutlineBrowser
        Left = 16
        Top = 32
        Width = 153
        Height = 26
        Hint = 'Current department'
        TabOrder = 0
        LookupSource = DSDepartment
        StdParentChildJoins.LeftList.Strings = (
          'DEPARTMENTID'
          'MANAGERID'
          'DESCRIPTION'
          'OPERATINGCOST'
          'STAFFTURNOVER'
          'STAFFSIZE'
          'DATEESTABLISHED'
          'OWNERDEPT')
        StdParentChildJoins.RightList.Strings = (
          'DEPARTMENTID'
          'MANAGERID'
          'DESCRIPTION'
          'OPERATINGCOST'
          'STAFFTURNOVER'
          'STAFFSIZE'
          'DATEESTABLISHED'
          'OWNERDEPT')
        StdParentChildJoins.LeftSelectedJoins.Strings = (
          'DEPARTMENTID')
        StdParentChildJoins.RightSelectedJoins.Strings = (
          'OWNERDEPT')
        StdParentChildJoins.CanSelect = True
        StdParentChildJoins.DuplicateNames = False
        StdParentChildJoins.LeftText = 'Child Fields'
        StdParentChildJoins.RightText = 'Parent Fields'
        BtnCaption = '...'
        NumGlyphs = 1
        RootCondition = 'OwnerDept = '#39#39
        LookupField = 'DESCRIPTION'
        DisplayField = 'Description'
        CanUpdate = False
        RtClickDetails = False
        SearchEnabled = False
        BtnHint = 'Click here to browse departments'
        DialogCaption = 'Browse departments'
      end
      object OutlineBrowser3: TOutlineBrowser
        Left = 16
        Top = 88
        Width = 357
        Height = 33
        Hint = 'Current Person'
        Font.Color = clBlack
        Font.Height = -21
        Font.Name = 'Times New Roman'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        LookupSource = DSPersonel
        StdParentChildJoins.LeftList.Strings = (
          'EMPNO'
          'LASTNAME'
          'FIRSTNAME'
          'PHONEEXT'
          'HIREDATE'
          'SALARY'
          'BOSS')
        StdParentChildJoins.RightList.Strings = (
          'EMPNO'
          'LASTNAME'
          'FIRSTNAME'
          'PHONEEXT'
          'HIREDATE'
          'SALARY'
          'BOSS')
        StdParentChildJoins.LeftSelectedJoins.Strings = (
          'EMPNO')
        StdParentChildJoins.RightSelectedJoins.Strings = (
          'BOSS')
        StdParentChildJoins.CanSelect = True
        StdParentChildJoins.DuplicateNames = False
        StdParentChildJoins.LeftText = 'Child Fields'
        StdParentChildJoins.RightText = 'Parent Fields'
        BtnGlyph.Data = {
          9A050000424D9A05000000000000360000002800000014000000170000000100
          1800000000006405000000000000000000000000000000000000C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0000000000000000000000000000000000000000000000000000000000000
          000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080000000C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080000000C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000000000000000000000C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000
          0000000000000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C00000000000000000
          00000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0000000000000000000000000
          000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0000000C0C0C0C0C0C000000000000000000000000000000000000000
          0000000000000000C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0000000
          C0C0C0C0C0C0C0C0C00000000000000000000000000000000000000000000000
          00000000C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0000000C0C0C0C0C0C0C0
          C0C0C0C0C0000000000000000000000000000000000000000000000000000000
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0
          C0000000000000000000000000000000000000000000000000000000C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0000000
          0000000000000000000000000000000000000000000000000000000000000000
          00000000000000000000000000000000C0C0C0C0C0C0C0C0C000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          000000000000000000000000C0C0C0C0C0C0C0C0C0C0C0C00000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          00C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000000000000000000000
          0000000000000000000000000000000000000000000000000000C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
        NumGlyphs = 1
        RootCondition = 'boss = '#39#39
        LookupField = 'LASTNAME'
        DisplayField = 'LastName'
        CanUpdate = True
        RtClickDetails = True
        SearchEnabled = True
        BtnHint = 'Click here to browse employee'
        DialogCaption = 'Browse employee'
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'TlookupOutline'
      object Label5: TLabel
        Left = 8
        Top = 8
        Width = 354
        Height = 32
        Caption = 
          'All of the properties of TOutlineBrowser plus the ability to upd' +
          'ate a table similar to TLookupCombo.'
        WordWrap = True
      end
      object Label6: TLabel
        Left = 8
        Top = 184
        Width = 336
        Height = 16
        Caption = 'Note that both components manage mult field keys !'
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 80
        Width = 401
        Height = 97
        DataSource = DSDepartment
        TabOrder = 0
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'System'
        TitleFont.Style = []
      end
      object DBNavigator1: TDBNavigator
        Left = 216
        Top = 48
        Width = 191
        Height = 25
        DataSource = DSDepartment
        TabOrder = 1
      end
      object LookupOutline1: TLookupOutline
        Left = 8
        Top = 48
        Width = 177
        Height = 26
        TabOrder = 2
        LookupSource = DSPersonel
        StdParentChildJoins.LeftList.Strings = (
          'EMPNO'
          'LASTNAME'
          'FIRSTNAME'
          'PHONEEXT'
          'HIREDATE'
          'SALARY'
          'BOSS')
        StdParentChildJoins.RightList.Strings = (
          'EMPNO'
          'LASTNAME'
          'FIRSTNAME'
          'PHONEEXT'
          'HIREDATE'
          'SALARY'
          'BOSS')
        StdParentChildJoins.LeftSelectedJoins.Strings = (
          'EMPNO')
        StdParentChildJoins.RightSelectedJoins.Strings = (
          'BOSS')
        StdParentChildJoins.CanSelect = True
        StdParentChildJoins.DuplicateNames = False
        StdParentChildJoins.LeftText = 'Child Fields'
        StdParentChildJoins.RightText = 'Parent Fields'
        BtnCaption = '...'
        NumGlyphs = 1
        RootCondition = 'Boss = '#39#39
        LookupField = 'LASTNAME'
        DisplayField = 'LastName'
        CanUpdate = False
        RtClickDetails = False
        SearchEnabled = False
        BtnHint = 'Click here to browse departments'
        DialogCaption = 'Browse departments'
        DataSource = DSDepartment
        ForeignJoins.LeftList.Strings = (
          'EMPNO')
        ForeignJoins.RightList.Strings = (
          'DEPARTMENTID'
          'MANAGERID'
          'DESCRIPTION'
          'OPERATINGCOST'
          'STAFFTURNOVER'
          'STAFFSIZE'
          'DATEESTABLISHED'
          'OWNERDEPT')
        ForeignJoins.LeftSelectedJoins.Strings = (
          'EMPNO')
        ForeignJoins.RightSelectedJoins.Strings = (
          'MANAGERID')
        ForeignJoins.CanSelect = True
        ForeignJoins.DuplicateNames = True
        ForeignJoins.LeftText = 'Lookup Key:'
        ForeignJoins.RightText = 'Foreign Fields'
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 427
    Height = 25
    Align = alTop
    BevelOuter = bvNone
    Caption = 'Introducing a new way to select hierarchical data:'
    Font.Color = clPurple
    Font.Height = -21
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object TableDepartment: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'DEPT.DB'
    Left = 141
    Top = 67
    object TableDepartmentDepartmentID: TStringField
      FieldName = 'DepartmentID'
      Required = True
      Visible = False
      Size = 10
    end
    object TableDepartmentManagerID: TStringField
      DisplayLabel = 'Manager ID'
      FieldName = 'ManagerID'
      Required = True
      Size = 10
    end
    object TableDepartmentDescription: TStringField
      FieldName = 'Description'
      Required = True
      Size = 50
    end
    object TableDepartmentOperatingCost: TCurrencyField
      DisplayLabel = 'Operating Cost'
      FieldName = 'OperatingCost'
      Currency = True
    end
    object TableDepartmentStaffTurnover: TFloatField
      DisplayLabel = 'Staff Turnover %'
      FieldName = 'StaffTurnover'
    end
    object TableDepartmentStaffSize: TSmallintField
      DisplayLabel = 'Staff Size'
      FieldName = 'StaffSize'
    end
    object TableDepartmentDateEstablished: TDateField
      DisplayLabel = 'Date Established'
      FieldName = 'DateEstablished'
    end
    object TableDepartmentOwnerDept: TStringField
      FieldName = 'OwnerDept'
      Visible = False
      Size = 10
    end
  end
  object DSDepartment: TDataSource
    DataSet = TableDepartment
    Left = 173
    Top = 67
  end
  object DSPersonel: TDataSource
    DataSet = TablePersonel
    Left = 173
    Top = 99
  end
  object TablePersonel: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'PERSONEL.DB'
    Left = 141
    Top = 99
    object TablePersonelEmpNo: TStringField
      DisplayLabel = 'Employee ID'
      FieldName = 'EmpNo'
      Visible = False
      Size = 10
    end
    object TablePersonelLastName: TStringField
      DisplayLabel = 'Last Name'
      FieldName = 'LastName'
    end
    object TablePersonelFirstName: TStringField
      DisplayLabel = 'First Name'
      FieldName = 'FirstName'
      Size = 15
    end
    object TablePersonelPhoneExt: TStringField
      DisplayLabel = 'Phone Extension'
      FieldName = 'PhoneExt'
      Size = 4
    end
    object TablePersonelHireDate: TDateTimeField
      DisplayLabel = 'Hire Date'
      FieldName = 'HireDate'
    end
    object TablePersonelSalary: TFloatField
      FieldName = 'Salary'
    end
    object TablePersonelBoss: TStringField
      FieldName = 'Boss'
      Visible = False
      Size = 10
    end
  end
end