object frEditControls: TfrEditControls
  Left = 0
  Top = 0
  Width = 622
  Height = 446
  TabOrder = 0
  object Label24: TLabel
    Left = 239
    Top = 190
    Width = 150
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '<- DBCheckBoxEh ->'
  end
  object Label23: TLabel
    Left = 391
    Top = 166
    Width = 53
    Height = 13
    Caption = 'Combo box'
  end
  object Label22: TLabel
    Left = 406
    Top = 138
    Width = 38
    Height = 13
    Caption = 'Edit text'
  end
  object Label12: TLabel
    Left = 4
    Top = 62
    Width = 98
    Height = 13
    Caption = 'CustNo -> Company'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 239
    Top = 166
    Width = 150
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '<- DBComboBoxEh ->'
  end
  object Label14: TLabel
    Left = 49
    Top = 112
    Width = 49
    Height = 13
    Caption = 'ItemsTotal'
  end
  object Label13: TLabel
    Left = 46
    Top = 88
    Width = 52
    Height = 13
    Caption = 'Sasle Date'
  end
  object Label3: TLabel
    Left = 239
    Top = 92
    Width = 150
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '<- DBDateTimeEditEh ->'
  end
  object Label2: TLabel
    Left = 239
    Top = 66
    Width = 150
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '<- DBLookupComboboxEh ->'
  end
  object Label5: TLabel
    Left = 239
    Top = 140
    Width = 150
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '<- DBEditEh ->'
  end
  object Label4: TLabel
    Left = 239
    Top = 116
    Width = 150
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = '<- DBNumberEditEh ->'
  end
  object Label19: TLabel
    Left = 400
    Top = 64
    Width = 44
    Height = 13
    Caption = 'Company'
  end
  object Label18: TLabel
    Left = 465
    Top = 40
    Width = 82
    Height = 13
    Caption = '  No data-aware  '
  end
  object Label21: TLabel
    Left = 407
    Top = 114
    Width = 37
    Height = 13
    Caption = 'Number'
  end
  object Label20: TLabel
    Left = 414
    Top = 90
    Width = 30
    Height = 13
    Caption = 'Today'
  end
  object Label16: TLabel
    Left = 57
    Top = 162
    Width = 41
    Height = 13
    Caption = 'Payment'
  end
  object Label15: TLabel
    Left = 57
    Top = 136
    Width = 41
    Height = 13
    Caption = 'Ship VIA'
  end
  object Label17: TLabel
    Left = 131
    Top = 40
    Width = 67
    Height = 13
    Caption = '  Data-aware  '
  end
  object Bevel1: TBevel
    Left = 4
    Top = 56
    Width = 567
    Height = 2
  end
  object DBComboBoxEh1: TDBComboBoxEh
    Left = 104
    Top = 161
    Width = 121
    Height = 22
    AlwaysShowBorder = True
    DataField = 'PaymentMethod'
    DataSource = DataSource2
    DynProps = <>
    EditButtons = <>
    Flat = True
    Images = ilPaymentType
    Items.Strings = (
      'Credit'
      'Check'
      'Visa'
      'COD'
      'MC'
      'AmEx'
      'Cash')
    TabOrder = 0
    Visible = True
    OnGetItemImageIndex = DBComboBoxEh1GetItemImageIndex
  end
  object DBNumberEditEh1: TDBNumberEditEh
    Left = 104
    Top = 110
    Width = 121
    Height = 19
    AlwaysShowBorder = True
    DataField = 'ItemsTotal'
    DataSource = DataSource2
    DynProps = <>
    EditButton.Style = ebsUpDownEh
    EditButton.Visible = True
    EditButtons = <>
    Flat = True
    TabOrder = 1
    Visible = True
  end
  object DBGridEh6: TDBGridEh
    Left = 8
    Top = 264
    Width = 593
    Height = 161
    Anchors = [akLeft, akTop, akRight, akBottom]
    ColumnDefValues.AlwaysShowEditButton = True
    DataSource = DataSource2
    DynProps = <>
    Flat = True
    FooterParams.Color = clWindow
    GridLineParams.VertEmptySpaceStyle = dessNonEh
    IndicatorOptions = [gioShowRowIndicatorEh]
    IndicatorTitle.ShowDropDownSign = True
    IndicatorTitle.TitleButton = True
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove, dghAutoFitRowHeight, dghHotTrack]
    ParentShowHint = False
    RowSizingAllowed = True
    ShowHint = True
    TabOrder = 2
    TitleParams.MultiTitle = True
    Columns = <
      item
        DynProps = <>
        EditButtons = <>
        FieldName = 'CustNo'
        Footers = <>
        Width = 48
        OnAdvDrawDataCell = DBGridEh6Columns0AdvDrawDataCell
        OnDataHintShow = DBGridEh6Columns0DataHintShow
        OnGetCellParams = DBGridEh6Columns0GetCellParams
      end
      item
        ButtonStyle = cbsAltDropDown
        DynProps = <>
        EditButtons = <>
        FieldName = 'SaleDate'
        Footers = <>
        Title.Caption = 'Sale Date'
        Width = 76
      end
      item
        ButtonStyle = cbsAltUpDown
        DynProps = <>
        EditButtons = <>
        FieldName = 'ItemsTotal'
        Footers = <>
        Increment = 1000.000000000000000000
        Title.Caption = 'Items Total'
        Width = 93
      end
      item
        DynProps = <>
        EditButtons = <>
        Footers = <>
        TextEditing = False
        Title.Caption = 'Percent'
        Width = 87
        OnAdvDrawDataCell = DBGridEh6Columns3AdvDrawDataCell
      end
      item
        DynProps = <>
        EditButtons = <>
        FieldName = 'ShipVIA'
        Footers = <>
        Title.Caption = 'Ship VIA'
      end
      item
        DynProps = <>
        EditButtons = <>
        FieldName = 'PaymentMethod'
        Footers = <>
        ImageList = ilPaymentType
        PickList.Strings = (
          'Cash'
          'Visa'
          'MC'
          'AmEx'
          'Credit'
          'Check'
          'COD')
        ShowImageAndText = True
        Title.Caption = 'Payment Method'
        Width = 65
      end
      item
        DynProps = <>
        EditButtons = <>
        FieldName = 'TaxRate'
        Footers = <>
        Title.Caption = 'Tax Rate'
        Width = 39
      end>
    object RowDetailData: TRowDetailPanelControlEh
    end
  end
  object DBLookupComboboxEh3: TDBLookupComboboxEh
    Left = 104
    Top = 61
    Width = 121
    Height = 19
    AlwaysShowBorder = True
    DataField = 'CustNo'
    DataSource = DataSource2
    DropDownBox.Rows = 50
    DropDownBox.Sizable = True
    DropDownBox.Width = -1
    EditButtons = <>
    Flat = True
    KeyField = 'CustNo'
    ListField = 'Company'
    ListSource = dstCustomer
    TabOrder = 3
    Visible = True
  end
  object DBDateTimeEditEh1: TDBDateTimeEditEh
    Left = 104
    Top = 86
    Width = 121
    Height = 19
    AlwaysShowBorder = True
    DataField = 'SaleDate'
    DataSource = DataSource2
    DynProps = <>
    EditButtons = <>
    Flat = True
    Kind = dtkDateEh
    TabOrder = 4
    Visible = True
  end
  object DBEditEh1: TDBEditEh
    Left = 104
    Top = 134
    Width = 121
    Height = 19
    AlwaysShowBorder = True
    DataField = 'ShipVIA'
    DataSource = DataSource2
    DynProps = <>
    EditButtons = <>
    Flat = True
    MRUList.Active = True
    TabOrder = 5
    Visible = True
  end
  object DBNavigator1: TDBNavigator
    Left = 11
    Top = 230
    Width = 260
    Height = 25
    DataSource = DataSource2
    Flat = True
    TabOrder = 6
  end
  object DBComboBoxEh2: TDBComboBoxEh
    Left = 450
    Top = 161
    Width = 121
    Height = 22
    AlwaysShowBorder = True
    DynProps = <>
    EditButtons = <>
    Flat = True
    Images = ilYesNo
    Items.Strings = (
      'Yes'
      'No')
    KeyItems.Strings = (
      'Yes'
      'No')
    TabOrder = 7
    Text = 'Yes'
    Visible = True
  end
  object DBCheckBoxEh2: TDBCheckBoxEh
    Left = 104
    Top = 190
    Width = 113
    Height = 17
    AlwaysShowBorder = True
    Caption = 'Check box'
    DataField = 'TaxRate'
    DataSource = DataSource2
    DynProps = <>
    Flat = True
    TabOrder = 8
    ValueChecked = '1'
    ValueUnchecked = '0'
  end
  object DBCheckBoxEh1: TDBCheckBoxEh
    Left = 450
    Top = 188
    Width = 113
    Height = 17
    AllowGrayed = True
    AlwaysShowBorder = True
    Caption = 'Check box'
    DynProps = <>
    Flat = True
    TabOrder = 9
  end
  object DBDateTimeEditEh2: TDBDateTimeEditEh
    Left = 450
    Top = 86
    Width = 121
    Height = 19
    AlwaysShowBorder = True
    DynProps = <>
    EditButtons = <>
    Flat = True
    Kind = dtkDateEh
    TabOrder = 10
    Visible = True
  end
  object DBLookupComboboxEh4: TDBLookupComboboxEh
    Left = 450
    Top = 61
    Width = 121
    Height = 19
    AlwaysShowBorder = True
    DropDownBox.Rows = 50
    DropDownBox.Sizable = True
    DropDownBox.Width = -1
    EmptyDataInfo.Text = 'Select company'
    EditButtons = <>
    Flat = True
    KeyField = 'CustNo'
    ListField = 'Company'
    TabOrder = 11
    Visible = True
  end
  object DBEditEh2: TDBEditEh
    Left = 450
    Top = 134
    Width = 121
    Height = 19
    AlwaysShowBorder = True
    DynProps = <>
    EditButtons = <>
    Flat = True
    MRUList.Active = True
    TabOrder = 12
    Text = 'Simple the text'
    Visible = True
  end
  object DBNumberEditEh2: TDBNumberEditEh
    Left = 450
    Top = 110
    Width = 121
    Height = 19
    AlwaysShowBorder = True
    DynProps = <>
    EditButton.Visible = True
    EditButtons = <>
    Flat = True
    TabOrder = 13
    Value = 101.000000000000000000
    Visible = True
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 622
    Height = 36
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 14
    object PaintBox1: TPaintBox
      Left = 0
      Top = 0
      Width = 622
      Height = 36
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnPaint = PaintBox1Paint
    end
    object Label1: TLabel
      Left = 39
      Top = 5
      Width = 125
      Height = 23
      Caption = 'Edit Controls'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -19
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object DataSource2: TDataSource
    DataSet = mtTable1
    Left = 532
    Top = 372
  end
  object SQLDataDriverEh1: TSQLDataDriverEh
    ConnectionProvider = Form1.SQLDBConnectionProviderEh1
    DynaSQLParams.Options = []
    MacroVars.Macros = <>
    SelectCommand.CommandText.Strings = (
      'select'
      '  *'
      'from'
      '  orders')
    Left = 528
    Top = 272
  end
  object mtTable1: TMemTableEh
    Active = True
    CachedUpdates = True
    FetchAllOnOpen = True
    Params = <>
    DataDriver = SQLDataDriverEh1
    Left = 530
    Top = 322
  end
  object dstCustomer: TDataSource
    DataSet = MemTableEh1
    Left = 616
    Top = 336
  end
  object MemTableEh1: TMemTableEh
    Active = True
    CachedUpdates = True
    FetchAllOnOpen = True
    Params = <>
    DataDriver = SQLDataDriverEh2
    Left = 610
    Top = 282
  end
  object SQLDataDriverEh2: TSQLDataDriverEh
    ConnectionProvider = Form1.SQLDBConnectionProviderEh1
    DynaSQLParams.Options = []
    MacroVars.Macros = <>
    SelectCommand.CommandText.Strings = (
      'select'
      '  *'
      'from'
      '  customer')
    Left = 608
    Top = 232
  end
  object ilPaymentType: TImageList
    Left = 462
    Top = 216
    Bitmap = {
      [encoded data, 17216 characters]
      000000000000}
  end
  object ilYesNo: TImageList
    Left = 598
    Top = 190
    Bitmap = {
      [encoded data, 8768 characters]
      000000000000}
  end
end
