object RxDBGridMainForm: TRxDBGridMainForm
  Left = 286
  Height = 609
  Top = 158
  Width = 969
  ActiveControl = Panel1
  Caption = 'RxDBGrid Demo'
  ClientHeight = 586
  ClientWidth = 969
  Menu = MainMenu1
  OnCreate = FormCreate
  LCLVersion = '0.9.29'
  object RxDBGrid1: TRxDBGrid
    Left = 0
    Height = 519
    Top = 67
    Width = 969
    TitleButtons = True
    AutoSort = True
    Columns = <    
      item
        Title.Alignment = taCenter
        Title.Caption = '...'
        Title.Orientation = toHorizontal
        Width = 50
        FieldName = 'DEVELOPER_ID'
        ImageList = ImageList1
        KeyList.Strings = (
          '1=0'
          '2=1'
          '3=2'
        )
        Filter.Font.Style = [fsItalic]
        Filter.DropDownRows = 0
        Filter.EmptyValue = '(Нет)'
        Filter.EmptyFont.Style = [fsItalic]
        Filter.ItemIndex = -1
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Code'
        Title.Orientation = toHorizontal
        Width = 136
        FieldName = 'ID'
        Footer.Alignment = taRightJustify
        Footer.DisplayFormat = 'Count: %d'
        Footer.ValueType = fvtCount
        Filter.Font.Style = [fsItalic]
        Filter.DropDownRows = 0
        Filter.Color = clLime
        Filter.EmptyValue = '(Нет)'
        Filter.EmptyFont.Style = [fsItalic]
        Filter.ItemIndex = -1
      end    
      item
        Title.Alignment = taCenter
        Title.Orientation = toHorizontal
        Width = 136
        FieldName = 'Developer'
        Filter.Font.Style = [fsItalic]
        Filter.DropDownRows = 0
        Filter.Color = clLime
        Filter.EmptyValue = '(Нет)'
        Filter.EmptyFont.Style = [fsItalic]
        Filter.ItemIndex = -1
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Software (all info)|Name'
        Title.Orientation = toHorizontal
        Width = 136
        FieldName = 'NAME'
        Filter.Font.Style = [fsItalic]
        Filter.DropDownRows = 0
        Filter.Color = clLime
        Filter.EmptyValue = '(Нет)'
        Filter.EmptyFont.Style = [fsItalic]
        Filter.ItemIndex = -1
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Software (all info)|Cost'
        Title.Orientation = toHorizontal
        Width = 136
        FieldName = 'PRICE'
        DisplayFormat = '#,##0.00'
        Footer.Alignment = taRightJustify
        Footer.DisplayFormat = '#,##0.00'
        Footer.FieldName = 'PRICE'
        Footer.ValueType = fvtSum
        Filter.Font.Style = [fsItalic]
        Filter.DropDownRows = 0
        Filter.Color = clLime
        Filter.EmptyValue = '(Нет)'
        Filter.EmptyFont.Style = [fsItalic]
        Filter.ItemIndex = -1
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Software (all info)|Date Present'
        Title.Orientation = toHorizontal
        Width = 136
        FieldName = 'Date_Present'
        Filter.Font.Style = [fsItalic]
        Filter.DropDownRows = 0
        Filter.EmptyValue = '(Нет)'
        Filter.EmptyFont.Style = [fsItalic]
        Filter.ItemIndex = -1
      end    
      item
        Title.Alignment = taCenter
        Title.Orientation = toHorizontal
        Width = 141
        FieldName = 'DEVELOPER_ID'
        Filter.Font.Style = [fsItalic]
        Filter.DropDownRows = 0
        Filter.EmptyValue = '(Нет)'
        Filter.EmptyFont.Style = [fsItalic]
        Filter.ItemIndex = -1
      end>
    PropertyStorage = XMLPropStorage1
    Version = 1
    OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgFooterRows, rdgAllowQuickSearch, rdgAllowToolMenu]
    FooterColor = clYellow
    FooterRowCount = 1
    OnFiltred = RxDBGrid1Filtred
    Align = alClient
    FocusColor = clRed
    SelectedColor = clHighlight
    GridLineStyle = psSolid
    DataSource = Datasource1
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiselect, dgHeaderPushedLook]
    ParentColor = False
    PopupMenu = PopupMenu1
    TabOrder = 0
    TitleStyle = tsNative
  end
  object Panel1: TPanel
    Left = 0
    Height = 67
    Top = 0
    Width = 969
    Align = alTop
    AutoSize = True
    ClientHeight = 67
    ClientWidth = 969
    TabOrder = 1
    object Label1: TLabel
      AnchorSideLeft.Control = Button2
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 271
      Height = 18
      Top = 6
      Width = 40
      BorderSpacing.Around = 6
      Caption = 'Mode'
      ParentColor = False
    end
    object Button1: TButton
      AnchorSideLeft.Control = Panel1
      AnchorSideTop.Control = Panel1
      Left = 6
      Height = 29
      Top = 6
      Width = 87
      Action = actCalcTotal
      AutoSize = True
      BorderSpacing.Around = 6
      TabOrder = 0
    end
    object Button2: TButton
      AnchorSideLeft.Control = Button1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 99
      Height = 29
      Top = 6
      Width = 166
      Action = actOptimizeColumnsWidthAll
      AutoSize = True
      BorderSpacing.Around = 6
      TabOrder = 1
    end
    object CheckBox1: TCheckBox
      AnchorSideLeft.Control = ComboBox1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = CheckBox2
      AnchorSideTop.Side = asrBottom
      Left = 500
      Height = 19
      Top = 31
      Width = 82
      BorderSpacing.Left = 6
      Caption = 'Use filter'
      OnChange = CheckBox1Change
      TabOrder = 2
    end
    object ComboBox1: TComboBox
      AnchorSideLeft.Control = Label1
      AnchorSideTop.Control = Label1
      AnchorSideTop.Side = asrBottom
      Left = 277
      Height = 31
      Top = 30
      Width = 217
      BorderSpacing.Around = 6
      ItemHeight = 0
      ItemIndex = 0
      Items.Strings = (
        'Edit mode'
        'Quick search mode'
      )
      OnChange = ComboBox1Change
      Style = csDropDownList
      TabOrder = 3
      Text = 'Edit mode'
    end
    object CheckBox2: TCheckBox
      AnchorSideLeft.Control = ComboBox1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 500
      Height = 19
      Top = 6
      Width = 134
      BorderSpacing.Around = 6
      Caption = 'Auto fill columns'
      OnChange = CheckBox2Change
      TabOrder = 4
    end
    object CheckBox3: TCheckBox
      AnchorSideLeft.Control = CheckBox2
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 640
      Height = 19
      Top = 6
      Width = 121
      BorderSpacing.Around = 6
      Caption = 'Show indicator'
      Checked = True
      OnChange = CheckBox3Change
      State = cbChecked
      TabOrder = 5
    end
    object CheckBox4: TCheckBox
      AnchorSideLeft.Control = CheckBox2
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = CheckBox3
      AnchorSideTop.Side = asrBottom
      Left = 640
      Height = 19
      Top = 31
      Width = 119
      BorderSpacing.Around = 6
      Caption = 'Show headers'
      Checked = True
      OnChange = CheckBox4Change
      State = cbChecked
      TabOrder = 6
    end
  end
  object RxMemoryData1: TRxMemoryData
    AutoCalcFields = False
    FieldDefs = <    
      item
        Name = 'ID'
        DataType = ftInteger
        Precision = -1
        Size = 7
      end    
      item
        Name = 'NAME'
        DataType = ftString
        Precision = -1
        Size = 150
      end    
      item
        Name = 'PRICE'
        DataType = ftFloat
        Precision = 2
        Size = 12
      end    
      item
        Name = 'Developer'
        DataType = ftString
        Precision = -1
        Size = 150
      end    
      item
        Name = 'Date_Present'
        DataType = ftDate
        Precision = 0
        Size = 0
      end    
      item
        Name = 'DEVELOPER_ID'
        DataType = ftInteger
        Precision = 0
        Size = 0
      end>
    OnFilterRecord = RxMemoryData1FilterRecordEx
    OnFilterRecordEx = RxMemoryData1FilterRecordEx
    left = 152
    top = 264
    object RxMemoryData1ID1: TLongintField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'ID'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object RxMemoryData1NAME1: TStringField
      DisplayWidth = 150
      FieldKind = fkData
      FieldName = 'NAME'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 150
    end
    object RxMemoryData1PRICE1: TFloatField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'PRICE'
      Index = 2
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      DisplayFormat = '#,##0.00'
      MaxValue = 0
      MinValue = 0
      Precision = 2
    end
    object RxMemoryData1Developer1: TStringField
      DisplayWidth = 150
      FieldKind = fkData
      FieldName = 'Developer'
      Index = 3
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 150
    end
    object RxMemoryData1Date_Present1: TDateField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'Date_Present'
      Index = 4
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object RxMemoryData1DEVELOPER_ID1: TLongintField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'DEVELOPER_ID'
      Index = 5
      KeyFields = 'DEVELOPER_ID'
      LookupCache = False
      LookupDataSet = RxMemoryData2
      LookupKeyFields = 'DEVELOPER_ID'
      LookupResultField = 'DEVELOPER_NAME'
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
  end
  object Datasource1: TDatasource
    DataSet = RxMemoryData1
    left = 120
    top = 264
  end
  object PopupMenu1: TPopupMenu
    left = 152
    top = 197
    object MenuItem1: TMenuItem
      Action = actOptimizeWidthCol1
      OnClick = actOptimizeWidthCol1Execute
    end
    object MenuItem2: TMenuItem
      Caption = '-'
    end
    object MenuItem4: TMenuItem
      Action = actCalcTotal
      OnClick = actCalcTotalExecute
    end
    object MenuItem3: TMenuItem
      Action = actOptimizeColumnsWidthAll
      OnClick = actOptimizeColumnsWidthAllExecute
    end
    object MenuItem5: TMenuItem
      Caption = '-'
    end
    object MenuItem7: TMenuItem
      Action = showColumnsDialog
      OnClick = showColumnsDialogExecute
    end
    object MenuItem6: TMenuItem
      Action = showFindDialog
      OnClick = showFindDialogExecute
    end
  end
  object ActionList1: TActionList
    left = 312
    top = 185
    object actCalcTotal: TAction
      Caption = 'Calc total...'
      OnExecute = actCalcTotalExecute
    end
    object actOptimizeColumnsWidthAll: TAction
      Caption = 'Optimize width for all...'
      OnExecute = actOptimizeColumnsWidthAllExecute
    end
    object actOptimizeWidthCol1: TAction
      Caption = 'Optimize width...'
      OnExecute = actOptimizeWidthCol1Execute
    end
    object showFindDialog: TAction
      Caption = 'Show find dialog...'
      OnExecute = showFindDialogExecute
    end
    object showColumnsDialog: TAction
      Caption = 'Show columns dialog...'
      OnExecute = showColumnsDialogExecute
    end
    object sysExit: TAction
      Category = 'System'
      Caption = 'Exit'
      OnExecute = sysExitExecute
    end
    object hlpAbout: TAction
      Category = 'Help'
      Caption = 'About...'
      OnExecute = hlpAboutExecute
    end
  end
  object Datasource2: TDatasource
    DataSet = RxMemoryData2
    left = 207
    top = 264
  end
  object RxMemoryData2: TRxMemoryData
    AutoCalcFields = False
    FieldDefs = <    
      item
        Name = 'DEVELOPER_ID'
        DataType = ftInteger
        Precision = 0
        Size = 0
      end    
      item
        Name = 'DEVELOPER_NAME'
        DataType = ftString
        Precision = 0
        Size = 130
      end>
    left = 240
    top = 264
    object RxMemoryData2DEVELOPER_ID1: TLongintField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'DEVELOPER_ID'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object RxMemoryData2DEVELOPER_NAME1: TStringField
      DisplayWidth = 130
      FieldKind = fkData
      FieldName = 'DEVELOPER_NAME'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 130
    end
  end
  object XMLPropStorage1: TXMLPropStorage
    StoredValues = <>
    left = 241
    top = 128
  end
  object ImageList1: TImageList
    left = 152
    top = 348
    Bitmap = {
[encoded data, 6816 characters]
      000000FF000000FF000000FF0000
    }
  end
  object MainMenu1: TMainMenu
    left = 271
    top = 185
    object MenuItem8: TMenuItem
      Caption = 'System'
      object MenuItem11: TMenuItem
        Action = sysExit
      end
    end
    object MenuItem9: TMenuItem
      Caption = 'Help'
      object MenuItem10: TMenuItem
        Action = hlpAbout
        OnClick = hlpAboutExecute
      end
    end
  end
  object RxAboutDialog1: TRxAboutDialog
    Options = [radHelpButton, radLicenseTab, radShowImageLogo]
    Caption = 'About...'
    Picture.Data = {
[encoded data, 37417 characters]
      0049454E44AE426082
    }
    left = 858
    top = 28
  end
end
