object Grid: TGrid
  Left = 440
  Top = 119
  ActiveControl = BOk
  BorderStyle = bsDialog
  Caption = 'SetGrid'
  ClientHeight = 339
  ClientWidth = 242
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 4
    Top = 240
    Width = 233
    Height = 68
    Caption = '  Join next database  '
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    object Label1: TLabel
      Left = 6
      Top = 18
      Width = 67
      Height = 13
      Caption = 'Main data:'
    end
    object Label2: TLabel
      Left = 6
      Top = 42
      Width = 67
      Height = 13
      Caption = 'Open data:'
    end
    object Button1: TButton
      Left = 155
      Top = 16
      Width = 73
      Height = 22
      Hint = 'Open dataBase file for join'
      Caption = 'Open DBase'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 155
      Top = 40
      Width = 36
      Height = 22
      Hint = 'Join select dataBase file'
      Caption = 'Join'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 192
      Top = 40
      Width = 36
      Height = 22
      Hint = 'Clear all join'
      Caption = 'Clear'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = Button3Click
    end
  end
  object HG: TStringGrid
    Left = 4
    Top = 8
    Width = 233
    Height = 233
    Hint = '.column:drag and move... 2.:Edit... 3.: show/hide'
    ColCount = 3
    DefaultColWidth = 80
    DefaultRowHeight = 20
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowMoving]
    ParentFont = False
    ParentShowHint = False
    ScrollBars = ssVertical
    ShowHint = True
    TabOrder = 0
    OnDblClick = HGDblClick
    OnDrawCell = HGDrawCell
    ColWidths = (
      80
      87
      38)
  end
  object BOk: TButton
    Left = 52
    Top = 312
    Width = 67
    Height = 25
    Caption = 'Ok'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = BOkClick
  end
  object BCan: TButton
    Left = 128
    Top = 312
    Width = 65
    Height = 25
    Caption = 'Cancel'
    TabOrder = 2
    OnClick = BCanClick
  end
  object CBJMain: TComboBox
    Left = 78
    Top = 256
    Width = 81
    Height = 21
    Hint = 'Select main databaseField for join'
    ItemHeight = 13
    ParentShowHint = False
    ShowHint = True
    Sorted = True
    TabOrder = 3
    Text = '...join field'
  end
  object CBOpen: TComboBox
    Left = 78
    Top = 280
    Width = 81
    Height = 21
    Hint = 'Select open databaseField for join'
    Enabled = False
    ItemHeight = 13
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    Text = '...join field'
  end
  object OD: TOpenDialog
    DefaultExt = 'dbf'
    FileEditStyle = fsEdit
    Left = 200
    Top = 312
  end
end