object Form1: TForm1 Left = 574 Height = 620 Top = 316 Width = 770 Caption = 'Form1' ClientHeight = 620 ClientWidth = 770 OnCreate = FormCreate LCLVersion = '1.9.0.0' object RxDBGrid1: TRxDBGrid Left = 0 Height = 570 Top = 50 Width = 770 ColumnDefValues.BlobText = '(данные)' TitleButtons = False AutoSort = True Columns = < item Alignment = taCenter Title.Alignment = taCenter Title.Orientation = toHorizontal Title.Caption = 'CODE' Width = 60 FieldName = 'CODE' EditButtons = <> Filter.DropDownRows = 0 Filter.EmptyValue = '(Пусто)' Filter.AllValue = '(Все значения)' Filter.EmptyFont.Style = [fsItalic] Filter.ItemIndex = -1 Footers = <> WordWrap = True OnDrawColumnCell = RxDBGrid1Columns0DrawColumnCell end item Title.Alignment = taCenter Title.Orientation = toHorizontal Title.Caption = 'DATE' Width = 90 FieldName = 'DATE' 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 = 'NAME' Width = 400 FieldName = 'NAME' 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.DrawFullLine = False SearchOptions.QuickSearchOptions = [loCaseInsensitive, loPartialKey] SearchOptions.FromStart = False OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgAllowQuickFilter, rdgAllowToolMenu] Align = alClient 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 OnMergeCells = RxDBGrid1MergeCells end object Panel1: TPanel Left = 0 Height = 50 Top = 0 Width = 770 Align = alTop AutoSize = True ClientHeight = 50 ClientWidth = 770 TabOrder = 1 object CheckBox1: TCheckBox AnchorSideLeft.Control = Panel1 AnchorSideTop.Control = Panel1 Left = 7 Height = 24 Top = 7 Width = 108 BorderSpacing.Around = 6 Caption = 'Col spanning' OnChange = CheckBox1Change TabOrder = 0 end object Button1: TButton AnchorSideTop.Control = Panel1 AnchorSideRight.Control = Panel1 AnchorSideRight.Side = asrBottom Left = 694 Height = 36 Top = 7 Width = 69 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Around = 6 Caption = 'Export...' OnClick = Button1Click TabOrder = 1 end object Button2: TButton AnchorSideTop.Control = Panel1 AnchorSideRight.Control = Button1 Left = 643 Height = 36 Top = 7 Width = 45 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Around = 6 Caption = 'Print' OnClick = Button2Click TabOrder = 2 end end object rxData: TRxMemoryData FieldDefs = < item Name = 'CODE' DataType = ftInteger end item Name = 'DATE' DataType = ftDateTime end item Name = 'NAME' DataType = ftString Size = 150 end> PacketRecords = 0 Left = 293 Top = 165 object rxDataCODE: TLongintField FieldKind = fkData FieldName = 'CODE' Index = 0 LookupCache = False ProviderFlags = [pfInUpdate, pfInWhere] ReadOnly = False Required = False end object rxDataDATE: TDateTimeField FieldKind = fkData FieldName = 'DATE' Index = 1 LookupCache = False ProviderFlags = [pfInUpdate, pfInWhere] ReadOnly = False Required = False DisplayFormat = 'dd.mm.yyyy' end object rxDataNAME: TStringField FieldKind = fkData FieldName = 'NAME' Index = 2 LookupCache = False ProviderFlags = [pfInUpdate, pfInWhere] ReadOnly = False Required = False Size = 150 end end object dsData: TDataSource DataSet = rxData Left = 256 Top = 165 end object RxDBGridExportSpreadSheet1: TRxDBGridExportSpreadSheet RxDBGrid = RxDBGrid1 Caption = 'Экспорт в электронную таблицу' ShowSetupForm = True FileName = 'aaa.ods' PageName = 'Test1' Options = [ressExportTitle, ressExportColors, ressExportFooter, ressExportFormula, ressOverwriteExisting, ressExportSelectedRows, ressHideZeroValues, ressColSpanning] OpenAfterExport = True Left = 336 Top = 165 end object RxDBGridPrint1: TRxDBGridPrint RxDBGrid = RxDBGrid1 Caption = 'Печать списка' ShowSetupForm = True Options = [rxpoShowTitle, rxpoShowFooter, rxpoShowGridColor, rxpoShowFooterColor, rxpoShowReportTitle, rxpoHideZeroValues] ShowProgress = True ReportTitle = 'A' ShowColumnHeaderOnAllPage = True Left = 336 Top = 208 end end