231 lines
5.6 KiB
Plaintext
231 lines
5.6 KiB
Plaintext
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
|