240 lines
6.0 KiB
Plaintext
240 lines
6.0 KiB
Plaintext
object Form1: TForm1
|
|
Left = 390
|
|
Height = 454
|
|
Top = 236
|
|
Width = 930
|
|
Caption = 'Form1'
|
|
ClientHeight = 454
|
|
ClientWidth = 930
|
|
OnCreate = FormCreate
|
|
LCLVersion = '0.9.31'
|
|
object RxDBGrid1: TRxDBGrid
|
|
AnchorSideTop.Control = DBNavigator1
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 0
|
|
Height = 346
|
|
Top = 108
|
|
Width = 930
|
|
TitleButtons = False
|
|
AutoSort = True
|
|
Columns = <
|
|
item
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'FIELD_ID'
|
|
Title.Orientation = toHorizontal
|
|
Width = 100
|
|
FieldName = 'FIELD_ID'
|
|
Filter.Font.Style = [fsItalic]
|
|
Filter.DropDownRows = 0
|
|
Filter.EmptyValue = '(Нет)'
|
|
Filter.EmptyFont.Style = [fsItalic]
|
|
Filter.ItemIndex = -1
|
|
end
|
|
item
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'COLOR_INT'
|
|
Title.Orientation = toHorizontal
|
|
Width = 150
|
|
FieldName = 'COLOR_INT'
|
|
Filter.Font.Style = [fsItalic]
|
|
Filter.DropDownRows = 0
|
|
Filter.EmptyValue = '(Нет)'
|
|
Filter.EmptyFont.Style = [fsItalic]
|
|
Filter.ItemIndex = -1
|
|
end
|
|
item
|
|
Title.Alignment = taCenter
|
|
Title.Caption = 'COLOR_STR'
|
|
Title.Orientation = toHorizontal
|
|
Width = 500
|
|
FieldName = 'COLOR_STR'
|
|
Filter.Font.Style = [fsItalic]
|
|
Filter.DropDownRows = 0
|
|
Filter.EmptyValue = '(Нет)'
|
|
Filter.EmptyFont.Style = [fsItalic]
|
|
Filter.ItemIndex = -1
|
|
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>
|
|
OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgAllowQuickFilter]
|
|
FooterColor = clYellow
|
|
Align = alBottom
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
Color = clWindow
|
|
DrawFullLine = False
|
|
FocusColor = clRed
|
|
SelectedColor = clHighlight
|
|
GridLineStyle = psSolid
|
|
DataSource = Datasource1
|
|
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
|
|
ParentColor = False
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
end
|
|
object RxDBColorBox1: TRxDBColorBox
|
|
AnchorSideLeft.Control = Label1
|
|
AnchorSideTop.Control = Label1
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Label2
|
|
Left = 12
|
|
Height = 29
|
|
Top = 30
|
|
Width = 385
|
|
DataField = 'COLOR_INT'
|
|
DataSource = Datasource1
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Around = 6
|
|
ItemHeight = 0
|
|
TabOrder = 1
|
|
end
|
|
object RxDBColorBox2: TRxDBColorBox
|
|
AnchorSideLeft.Control = Label2
|
|
AnchorSideTop.Control = Label2
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 409
|
|
Height = 29
|
|
Top = 30
|
|
Width = 515
|
|
DataField = 'COLOR_STR'
|
|
DataSource = Datasource1
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Around = 6
|
|
ItemHeight = 0
|
|
TabOrder = 2
|
|
end
|
|
object DBNavigator1: TDBNavigator
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = RxDBColorBox1
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 25
|
|
Top = 77
|
|
Width = 241
|
|
BevelOuter = bvNone
|
|
BorderSpacing.Top = 12
|
|
BorderSpacing.Around = 6
|
|
ChildSizing.EnlargeHorizontal = crsScaleChilds
|
|
ChildSizing.EnlargeVertical = crsScaleChilds
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 100
|
|
ClientHeight = 25
|
|
ClientWidth = 241
|
|
TabOrder = 3
|
|
end
|
|
object Label1: TLabel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
Left = 6
|
|
Height = 18
|
|
Top = 6
|
|
Width = 133
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Test for integer field'
|
|
ParentColor = False
|
|
end
|
|
object Label2: TLabel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = Owner
|
|
Left = 403
|
|
Height = 18
|
|
Top = 6
|
|
Width = 124
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Test for string field'
|
|
ParentColor = False
|
|
end
|
|
object RxMemoryData1: TRxMemoryData
|
|
FieldDefs = <
|
|
item
|
|
Name = 'FIELD_ID'
|
|
DataType = ftAutoInc
|
|
Precision = 0
|
|
Size = 0
|
|
end
|
|
item
|
|
Name = 'COLOR_STR'
|
|
DataType = ftString
|
|
Precision = 0
|
|
Size = 50
|
|
end
|
|
item
|
|
Name = 'COLOR_INT'
|
|
DataType = ftInteger
|
|
Precision = 0
|
|
Size = 0
|
|
end>
|
|
left = 368
|
|
top = 160
|
|
object RxMemoryData1FIELD_ID: TAutoIncField
|
|
DisplayWidth = 10
|
|
FieldKind = fkData
|
|
FieldName = 'FIELD_ID'
|
|
Index = 0
|
|
LookupCache = False
|
|
ProviderFlags = [pfInWhere]
|
|
ReadOnly = False
|
|
Required = False
|
|
end
|
|
object RxMemoryData1COLOR_STR: TStringField
|
|
DisplayWidth = 50
|
|
FieldKind = fkData
|
|
FieldName = 'COLOR_STR'
|
|
Index = 1
|
|
LookupCache = False
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
|
ReadOnly = False
|
|
Required = False
|
|
Size = 50
|
|
end
|
|
object RxMemoryData1COLOR_INT: TLongintField
|
|
DisplayWidth = 10
|
|
FieldKind = fkData
|
|
FieldName = 'COLOR_INT'
|
|
Index = 2
|
|
LookupCache = False
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
|
ReadOnly = False
|
|
Required = False
|
|
end
|
|
end
|
|
object Datasource1: TDatasource
|
|
DataSet = RxMemoryData1
|
|
left = 336
|
|
top = 160
|
|
end
|
|
end
|