object Form1: TForm1 Left = 405 Height = 631 Top = 232 Width = 1094 Caption = 'Form1' ClientHeight = 631 ClientWidth = 1094 OnCreate = FormCreate Position = poScreenCenter LCLVersion = '1.9.0.0' object Panel1: TPanel Left = 0 Height = 66 Top = 0 Width = 1094 Align = alTop ClientHeight = 66 ClientWidth = 1094 TabOrder = 0 object CheckBox1: TCheckBox Left = 8 Height = 24 Top = 8 Width = 97 Caption = 'CheckBox1' Checked = True OnChange = CheckBox1Change State = cbChecked TabOrder = 0 end end object RxDBGrid1: TRxDBGrid Left = 0 Height = 565 Top = 66 Width = 1094 ColumnDefValues.BlobText = '(данные)' TitleButtons = True AutoSort = True Columns = < item Title.Alignment = taCenter Title.Orientation = toHorizontal Title.Caption = 'ID' Width = 60 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 = 'NAME' Width = 264 FieldName = 'NAME' 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 = 164 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> 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 = True SearchOptions.QuickSearchOptions = [loCaseInsensitive, loPartialKey] SearchOptions.FromStart = False OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgFooterRows, rdgAllowQuickFilter, rdgAllowToolMenu] FooterColor = clYellow FooterRowCount = 1 Align = alClient Color = clWindow DrawFullLine = True FocusColor = clRed SelectedColor = clHighlight GridLineStyle = psSolid DataSource = DataSource1 Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgHeaderPushedLook] TabOrder = 1 end object DataSource1: TDataSource DataSet = RxMemoryData1 Left = 456 Top = 560 end object RxMemoryData1: TRxMemoryData FieldDefs = < item Name = 'ID' DataType = ftInteger Precision = -1 end item Name = 'NAME' DataType = ftString Precision = -1 Size = 100 end item Name = 'SUM' DataType = ftCurrency Precision = 2 end> PacketRecords = 0 Left = 536 Top = 560 object RxMemoryData1ID: TLongintField FieldKind = fkData FieldName = 'ID' Index = 0 LookupCache = False ProviderFlags = [pfInUpdate, pfInWhere] ReadOnly = False Required = False end object RxMemoryData1NAME: TStringField FieldKind = fkData FieldName = 'NAME' Index = 1 LookupCache = False ProviderFlags = [pfInUpdate, pfInWhere] ReadOnly = False Required = False Size = 100 end object RxMemoryData1SUM: TCurrencyField FieldKind = fkData FieldName = 'SUM' Index = 2 LookupCache = False ProviderFlags = [pfInUpdate, pfInWhere] ReadOnly = False Required = False MaxValue = 0 MinValue = 0 Precision = 2 end end object RxDBGridFooterTools1: TRxDBGridFooterTools RxDBGrid = RxDBGrid1 Caption = 'Всего строк' Left = 240 Top = 560 end end