lazarus-ccr/components/rx/Demos/RxDBGrid/rxdbgridmainunit.lfm

object RxDBGridMainForm: TRxDBGridMainForm
  Left = 262
  Height = 609
  Top = 157
  Width = 969
  ActiveControl = Panel1
  Caption = 'RxDBGrid Demo (ver 3)  ...'
  ClientHeight = 609
  ClientWidth = 969
  OnCreate = FormCreate
  LCLVersion = '0.9.29'
  object RxDBGrid1: TRxDBGrid
    Left = 0
    Height = 544
    Top = 65
    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|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|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|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 = 65
    Top = 0
    Width = 969
    Align = alTop
    AutoSize = True
    ClientHeight = 65
    ClientWidth = 969
    TabOrder = 1
    object Label1: TLabel
      AnchorSideLeft.Control = Button2
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 280
      Height = 18
      Top = 6
      Width = 38
      BorderSpacing.Around = 6
      Caption = 'Mode'
      ParentColor = False
    end
    object Button1: TButton
      AnchorSideLeft.Control = Panel1
      AnchorSideTop.Control = Panel1
      Left = 6
      Height = 35
      Top = 6
      Width = 90
      Action = actCalcTotal
      AutoSize = True
      BorderSpacing.Around = 6
      BorderSpacing.InnerBorder = 4
      TabOrder = 0
    end
    object Button2: TButton
      AnchorSideLeft.Control = Button1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 102
      Height = 35
      Top = 6
      Width = 172
      Action = actOptimizeColumnsWidthAll
      AutoSize = True
      BorderSpacing.Around = 6
      BorderSpacing.InnerBorder = 4
      TabOrder = 1
    end
    object CheckBox1: TCheckBox
      AnchorSideLeft.Control = ComboBox1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = CheckBox2
      AnchorSideTop.Side = asrBottom
      Left = 509
      Height = 19
      Top = 31
      Width = 81
      BorderSpacing.Left = 6
      Caption = 'Use filter'
      OnChange = CheckBox1Change
      TabOrder = 2
    end
    object ComboBox1: TComboBox
      AnchorSideLeft.Control = Label1
      AnchorSideTop.Control = Label1
      AnchorSideTop.Side = asrBottom
      Left = 286
      Height = 29
      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 = 509
      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 = 649
      Height = 19
      Top = 6
      Width = 122
      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 = 649
      Height = 19
      Top = 31
      Width = 116
      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 = 206
    top = 197
    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
  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 = {
      4C6903000000100000001000000000FF0000000000FF000000FF00FF000000FF
      0000000000FF000000FF00FF000000FF0000000000FF000000FF00FF000000FF
      000000FF000000FF000000FF000000FF0000000000FF0000FFFF000000FF0000
      00FF000080FF0000FFFF000000FF000000FF000080FF0000FFFF000000FF0000
      00FF000000FF000000FF00FF000000FF000000FF0000000000FF0000FFFF0000
      80FF000080FF0000FFFF0000FFFF000080FF000080FF0000FFFF0000FFFF0000
      80FF000000FF00FF000000FF000000FF000000FF0000000000FF0000FFFF0000
      80FF000080FF0000FFFF0000FFFF000080FF000080FF0000FFFF0000FFFF0000
      00FF00FF000000FF000000FF000000FF000000FF000000FF0000000000FF0000
      FFFF000080FF000080FF0000FFFF0000FFFF000080FF000080FF000000FF00FF
      000000FF000000FF000000FF000000FF000000FF000000FF0000000000FF0000
      FFFF000080FF000080FF0000FFFF0000FFFF000000FF000000FF00FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF00000000
      00FF0000FFFF000080FF000000FF000000FF00FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF00000000
      00FF0000FFFF000000FF00FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      0000000000FF00FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      0000000000FF00FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF0000000000FF00FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF0000000000FF00FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF0000000000FF00FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF0000000000FF00FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF0000000000FF00FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF0000000000FF00FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF0000000000FF000000FF00FF000000FF
      0000000000FF000000FF00FF000000FF0000000000FF000000FF00FF000000FF
      000000FF000000FF000000FF000000FF0000000000FF00FFFFFF000000FF0000
      00FF008080FF00FFFFFF000000FF000000FF008080FF00FFFFFF000000FF0000
      00FF000000FF000000FF00FF000000FF000000FF0000000000FF00FFFFFF0080
      80FF008080FF00FFFFFF00FFFFFF008080FF008080FF00FFFFFF00FFFFFF0080
      80FF000000FF00FF000000FF000000FF000000FF0000000000FF00FFFFFF0080
      80FF008080FF00FFFFFF00FFFFFF008080FF008080FF00FFFFFF00FFFFFF0000
      00FF00FF000000FF000000FF000000FF000000FF000000FF0000000000FF00FF
      FFFF008080FF008080FF00FFFFFF00FFFFFF008080FF008080FF000000FF00FF
      000000FF000000FF000000FF000000FF000000FF000000FF0000000000FF00FF
      FFFF008080FF008080FF00FFFFFF00FFFFFF000000FF000000FF00FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF00000000
      00FF00FFFFFF008080FF000000FF000000FF00FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF00000000
      00FF00FFFFFF000000FF00FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      0000000000FF00FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      0000000000FF00FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF0000000000FF00FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF0000000000FF00FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF0000000000FF00FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF0000000000FF00FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF0000000000FF00FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF0000000000FF00FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF0000000000FF000000FF00FF000000FF
      0000000000FF000000FF00FF000000FF0000000000FF000000FF00FF000000FF
      000000FF000000FF000000FF000000FF0000000000FFFF0000FF000000FF0000
      00FF800000FFFF0000FF000000FF000000FF800000FFFF0000FF000000FF0000
      00FF000000FF000000FF00FF000000FF000000FF0000000000FFFF0000FF8000
      00FF800000FFFF0000FFFF0000FF800000FF800000FFFF0000FFFF0000FF8000
      00FF000000FF00FF000000FF000000FF000000FF0000000000FFFF0000FF8000
      00FF800000FFFF0000FFFF0000FF800000FF800000FFFF0000FFFF0000FF0000
      00FF00FF000000FF000000FF000000FF000000FF000000FF0000000000FFFF00
      00FF800000FF800000FFFF0000FFFF0000FF800000FF800000FF000000FF00FF
      000000FF000000FF000000FF000000FF000000FF000000FF0000000000FFFF00
      00FF800000FF800000FFFF0000FFFF0000FF000000FF000000FF00FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF00000000
      00FFFF0000FF800000FF000000FF000000FF00FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF00000000
      00FFFF0000FF000000FF00FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      0000000000FF00FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      0000000000FF00FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF0000000000FF00FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF0000000000FF00FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF0000000000FF00FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF0000000000FF00FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF0000000000FF00FF000000FF000000FF000000FF
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
      000000FF000000FF000000FF0000000000FF00FF000000FF000000FF000000FF
      000000FF000000FF000000FF0000
    }
  end
end