object Form1: TForm1 Left = 585 Height = 610 Top = 311 Width = 874 Caption = 'Form1' ClientHeight = 610 ClientWidth = 874 OnCreate = FormCreate LCLVersion = '1.9.0.0' object RxDBGrid1: TRxDBGrid Left = 0 Height = 560 Top = 50 Width = 874 ColumnDefValues.BlobText = '(данные)' TitleButtons = False 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 Footer.Value = 'Current:' Footer.ValueType = fvtStaticText Footers = <> end item Title.Alignment = taCenter Title.Orientation = toHorizontal Title.Caption = 'NAME' Width = 350 FieldName = 'NAME' EditButtons = <> Filter.DropDownRows = 0 Filter.EmptyValue = '(Пусто)' Filter.AllValue = '(Все значения)' Filter.EmptyFont.Style = [fsItalic] Filter.ItemIndex = -1 Footer.FieldName = 'NAME' Footer.ValueType = fvtFieldValue Footers = <> WordWrap = True end item Title.Alignment = taCenter Title.Orientation = toHorizontal Title.Caption = 'CODE' Width = 90 FieldName = 'CODE' EditButtons = <> Filter.DropDownRows = 0 Filter.EmptyValue = '(Пусто)' Filter.AllValue = '(Все значения)' Filter.EmptyFont.Style = [fsItalic] Filter.ItemIndex = -1 Footer.Alignment = taRightJustify Footer.FieldName = 'CODE' 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 OnCalcRowHeight = RxDBGrid1CalcRowHeight OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgFooterRows, rdgAllowQuickFilter] 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] ReadOnly = True TabOrder = 0 end object Panel1: TPanel Left = 0 Height = 50 Top = 0 Width = 874 Align = alTop Caption = 'Panel1' ClientHeight = 50 ClientWidth = 874 TabOrder = 1 object CheckBox1: TCheckBox Left = 16 Height = 24 Top = 8 Width = 96 Caption = 'Word wrap' Checked = True OnChange = CheckBox1Change State = cbChecked TabOrder = 0 end object CheckBox2: TCheckBox Left = 152 Height = 24 Top = 8 Width = 105 Caption = 'Show footer' OnChange = CheckBox1Change TabOrder = 1 end end object DataSource1: TDataSource DataSet = RxMemoryData1 Left = 328 Top = 134 end object RxMemoryData1: TRxMemoryData FieldDefs = < item Name = 'ID' DataType = ftInteger end item Name = 'NAME' DataType = ftString Size = 500 end item Name = 'CODE' DataType = ftInteger end> PacketRecords = 0 Left = 360 Top = 134 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 = 500 end object RxMemoryData1CODE: TLongintField FieldKind = fkData FieldName = 'CODE' Index = 2 LookupCache = False ProviderFlags = [pfInUpdate, pfInWhere] ReadOnly = False Required = False end end end