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