object Mainform: TMainform
  Left = 272
  Top = 96
  Width = 456
  Height = 452
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'TAlphaPanel-Demo'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  TextHeight = 16
  object Bevel1: TBevel
    Left = 2
    Top = 2
    Width = 444
    Height = 25
    Style = bsRaised
  end
  object Bevel2: TBevel
    Left = 2
    Top = 354
    Width = 444
    Height = 25
    Style = bsRaised
  end
  object Label1: TLabel
    Left = 8
    Top = 6
    Width = 399
    Height = 16
    Caption = 'You can use an AlphaPanel to navigate through a data table...'
  end
  object Label2: TLabel
    Left = 8
    Top = 358
    Width = 235
    Height = 16
    Caption = '...or you can use it like a keyboard...'
  end
  object DBGrid1: TDBGrid
    Left = 12
    Top = 120
    Width = 425
    Height = 225
    TabStop = False
    DataSource = DataSource1
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'System'
    TitleFont.Style = []
  end
  object PanelKind: TRadioGroup
    Left = 4
    Top = 34
    Width = 440
    Height = 43
    Hint = 'choose the panel type here or use the panel'#39's popup'
    Caption = 'Panel type'
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'Index panel'
      'Filter panel')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = PanelKindClick
  end
  object SymbolEdit: TEdit
    Left = 188
    Top = 394
    Width = 249
    Height = 25
    AutoSize = False
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Wingdings'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object SymbolPanel: TAlphaPanel
    Left = 12
    Top = 392
    Width = 167
    Height = 28
    Hint = 'click to add symbols to the edit line'
    ParentShowHint = False
    ShowHint = True
    AlphaButtons.Strings = (
      'JKL!$()')
    ButtonFont.Color = clBlack
    ButtonFont.Height = -16
    ButtonFont.Name = 'Wingdings'
    ButtonFont.Style = []
    ButtonHeight = 24
    ButtonWidth = 24
    CatchButtons = False
    OnValueChange = SymbolPanelValueChange
  end
  object AlphaPanel: TAlphaPanel
    Left = 0
    Top = 88
    Hint = 'click to move the table cursor'
    ParentShowHint = False
    PopupMenu = PopupMenu1
    ShowHint = True
    AllowAllUp = True
    AlphaButtons.Strings = (
      'ABCDEFGHIJKLMNOPQRSTUVWXYZ')
    ButtonFont.Color = clWindowText
    ButtonFont.Height = -13
    ButtonFont.Name = 'System'
    ButtonFont.Style = []
    CatchButtons = False
    OnValueChange = AlphaPanelValueChange
  end
  object EmployeeTable: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexName = 'ByName'
    ReadOnly = True
    TableName = 'EMPLOYEE.DB'
    Left = 272
    Top = 40
    object EmployeeTableLastName: TStringField
      DisplayLabel = 'Last Name'
      DisplayWidth = 20
      FieldName = 'LastName'
    end
    object EmployeeTableFirstName: TStringField
      DisplayLabel = 'First Name'
      DisplayWidth = 15
      FieldName = 'FirstName'
      Size = 15
    end
    object EmployeeTableSalary: TFloatField
      DisplayWidth = 12
      FieldName = 'Salary'
      Currency = True
    end
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = EmployeeTable
    Left = 304
    Top = 40
  end
  object PopupMenu1: TPopupMenu
    Left = 336
    Top = 40
    object pomIndexPanel: TMenuItem
      Caption = 'Index panel'
      Checked = True
      OnClick = pomIndexPanelClick
    end
    object pomFilterPanel: TMenuItem
      Caption = 'Filter panel'
      OnClick = pomFilterPanelClick
    end
  end
end