lazarus-ccr/components/rx/trunk/demos/rxdbgrid/RxDBGridGroupData/unit1.lfm

object Form1: TForm1
  Left = 570
  Height = 556
  Top = 275
  Width = 796
  Caption = 'Form1'
  ClientHeight = 556
  ClientWidth = 796
  OnCreate = FormCreate
  LCLVersion = '1.9.0.0'
  object RxDBGrid1: TRxDBGrid
    Left = 0
    Height = 493
    Top = 63
    Width = 796
    ColumnDefValues.BlobText = '(данные)'
    TitleButtons = False
    AutoSort = True
    Columns = <    
      item
        Title.Alignment = taCenter
        Title.Orientation = toHorizontal
        Title.Caption = 'ID'
        Width = 50
        FieldName = 'ID'
        EditButtons = <>
        Filter.DropDownRows = 0
        Filter.EmptyValue = '(Пусто)'
        Filter.AllValue = '(Все значения)'
        Filter.EmptyFont.Style = [fsItalic]
        Filter.ItemIndex = -1
        Footers = <>
      end    
      item
        Title.Alignment = taCenter
        Title.Orientation = toHorizontal
        Title.Caption = 'GROUP'
        Width = 60
        FieldName = 'GROUP_ID'
        EditButtons = <>
        Filter.DropDownRows = 0
        Filter.EmptyValue = '(Пусто)'
        Filter.AllValue = '(Все значения)'
        Filter.EmptyFont.Style = [fsItalic]
        Filter.ItemIndex = -1
        Footers = <>
      end    
      item
        Title.Alignment = taCenter
        Title.Orientation = toHorizontal
        Title.Caption = 'SUM'
        Width = 90
        FieldName = 'SUM'
        EditButtons = <>
        Filter.DropDownRows = 0
        Filter.EmptyValue = '(Пусто)'
        Filter.AllValue = '(Все значения)'
        Filter.EmptyFont.Style = [fsItalic]
        Filter.ItemIndex = -1
        Footer.Alignment = taRightJustify
        Footer.FieldName = 'SUM'
        Footer.ValueType = fvtSum
        Footers = <>
      end    
      item
        Title.Alignment = taCenter
        Title.Orientation = toHorizontal
        Title.Caption = 'TEXT'
        Width = 264
        FieldName = 'TEXT'
        EditButtons = <>
        Filter.DropDownRows = 0
        Filter.EmptyValue = '(Пусто)'
        Filter.AllValue = '(Все значения)'
        Filter.EmptyFont.Style = [fsItalic]
        Filter.ItemIndex = -1
        Footers = <>
        WordWrap = True
      end    
      item
        Title.Alignment = taCenter
        Title.Orientation = toHorizontal
        Title.Caption = 'AAA'
        Width = 250
        FieldName = 'AAA'
        EditButtons = <>
        Filter.DropDownRows = 0
        Filter.EmptyValue = '(Пусто)'
        Filter.AllValue = '(Все значения)'
        Filter.EmptyFont.Style = [fsItalic]
        Filter.ItemIndex = -1
        Footers = <>
      end>
    KeyStrokes = <    
      item
        Command = rxgcShowFindDlg
        ShortCut = 16454
        Enabled = True
      end    
      item
        Command = rxgcShowColumnsDlg
        ShortCut = 16471
        Enabled = True
      end    
      item
        Command = rxgcShowFilterDlg
        ShortCut = 16468
        Enabled = True
      end    
      item
        Command = rxgcShowSortDlg
        ShortCut = 16467
        Enabled = True
      end    
      item
        Command = rxgcShowQuickFilter
        ShortCut = 16465
        Enabled = True
      end    
      item
        Command = rxgcHideQuickFilter
        ShortCut = 16456
        Enabled = True
      end    
      item
        Command = rxgcSelectAll
        ShortCut = 16449
        Enabled = True
      end    
      item
        Command = rxgcDeSelectAll
        ShortCut = 16429
        Enabled = True
      end    
      item
        Command = rxgcInvertSelection
        ShortCut = 16426
        Enabled = True
      end    
      item
        Command = rxgcOptimizeColumnsWidth
        ShortCut = 16427
        Enabled = True
      end    
      item
        Command = rxgcCopyCellValue
        ShortCut = 16451
        Enabled = True
      end>
    FooterOptions.Active = True
    FooterOptions.Color = clYellow
    FooterOptions.RowCount = 1
    FooterOptions.DrawFullLine = False
    SearchOptions.QuickSearchOptions = [loCaseInsensitive, loPartialKey]
    SearchOptions.FromStart = False
    OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgFooterRows, rdgAllowQuickFilter]
    FooterColor = clYellow
    FooterRowCount = 1
    Align = alBottom
    Anchors = [akTop, akLeft, akRight, akBottom]
    Color = clWindow
    DrawFullLine = False
    FocusColor = clRed
    SelectedColor = clHighlight
    GridLineStyle = psSolid
    DataSource = dsData
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 0
  end
  object CheckBox1: TCheckBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 6
    Height = 24
    Top = 6
    Width = 113
    BorderSpacing.Around = 6
    Caption = 'Groups active'
    Checked = True
    OnChange = CheckBox1Change
    State = cbChecked
    TabOrder = 1
  end
  object CheckBox2: TCheckBox
    AnchorSideLeft.Control = CheckBox1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    Left = 125
    Height = 24
    Top = 6
    Width = 96
    BorderSpacing.Around = 6
    Caption = 'Footer row'
    Checked = True
    OnChange = CheckBox1Change
    State = cbChecked
    TabOrder = 2
  end
  object CheckBox3: TCheckBox
    AnchorSideLeft.Control = CheckBox2
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    Left = 227
    Height = 24
    Top = 6
    Width = 88
    BorderSpacing.Around = 6
    Caption = 'ReadOnly'
    Checked = True
    OnChange = CheckBox1Change
    State = cbChecked
    TabOrder = 3
  end
  object Button1: TButton
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 682
    Height = 36
    Top = 6
    Width = 108
    Anchors = [akTop, akRight]
    AutoSize = True
    BorderSpacing.Around = 6
    Caption = 'Export to ODS'
    OnClick = Button1Click
    TabOrder = 4
  end
  object Label1: TLabel
    Left = 552
    Height = 20
    Top = 24
    Width = 42
    Caption = 'Label1'
    ParentColor = False
  end
  object rxData: TRxMemoryData
    FieldDefs = <    
      item
        Name = 'ID'
        DataType = ftInteger
      end    
      item
        Name = 'GROUP_ID'
        DataType = ftInteger
      end    
      item
        Name = 'SUM'
        DataType = ftCurrency
      end    
      item
        Name = 'TEXT'
        DataType = ftString
        Size = 500
      end    
      item
        Name = 'AAA'
        DataType = ftString
        Size = 50
      end>
    AfterScroll = rxDataAfterScroll
    PacketRecords = 0
    Left = 432
    Top = 16
    object rxDataID: TLongintField
      FieldKind = fkData
      FieldName = 'ID'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object rxDataGROUP_ID: TLongintField
      FieldKind = fkData
      FieldName = 'GROUP_ID'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object rxDataSUM: TCurrencyField
      FieldKind = fkData
      FieldName = 'SUM'
      Index = 2
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      MaxValue = 0
      MinValue = 0
      Precision = 2
    end
    object rxDataTEXT: TStringField
      FieldKind = fkData
      FieldName = 'TEXT'
      Index = 3
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 500
    end
    object rxDataAAA: TStringField
      FieldKind = fkData
      FieldName = 'AAA'
      Index = 4
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 50
    end
  end
  object dsData: TDataSource
    DataSet = rxData
    Left = 392
    Top = 16
  end
  object RxDBGridExportSpreadSheet1: TRxDBGridExportSpreadSheet
    RxDBGrid = RxDBGrid1
    Caption = 'Экспорт в электронную таблицу'
    ShowSetupForm = True
    FileName = 'test.ods'
    PageName = 'test'
    Options = [ressExportTitle, ressExportColors, ressExportFooter, ressExportFormula, ressOverwriteExisting, ressExportSelectedRows, ressHideZeroValues, ressColSpanning]
    OpenAfterExport = True
    Left = 392
    Top = 168
  end
end