You've already forked lazarus-ccr
d78519fad6
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2813 8e941d3f-bd1b-0410-a28a-d453659cc2b4
147 lines
3.4 KiB
Plaintext
147 lines
3.4 KiB
Plaintext
object Form1: TForm1
|
|
Left = 366
|
|
Height = 524
|
|
Top = 217
|
|
Width = 780
|
|
Caption = 'Auto sort demo'
|
|
ClientHeight = 524
|
|
ClientWidth = 780
|
|
OnCreate = FormCreate
|
|
LCLVersion = '0.9.27'
|
|
object RxDBGrid1: TRxDBGrid
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = CheckBox1
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = Owner
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 6
|
|
Height = 456
|
|
Top = 62
|
|
Width = 768
|
|
TitleButtons = True
|
|
AutoSort = True
|
|
Columns = <
|
|
item
|
|
Title.Alignment = taCenter
|
|
Title.Orientation = toHorizontal
|
|
Width = 88
|
|
FieldName = 'ID'
|
|
Filter.DropDownRows = 0
|
|
Filter.ItemIndex = -1
|
|
end
|
|
item
|
|
Title.Alignment = taCenter
|
|
Title.Orientation = toHorizontal
|
|
Width = 350
|
|
FieldName = 'NAME'
|
|
Filter.DropDownRows = 0
|
|
Filter.ItemIndex = -1
|
|
end
|
|
item
|
|
Title.Alignment = taCenter
|
|
Title.Orientation = toHorizontal
|
|
Width = 100
|
|
FieldName = 'DATE_ENTER'
|
|
Filter.DropDownRows = 0
|
|
Filter.ItemIndex = -1
|
|
end>
|
|
OptionsRx = []
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Around = 6
|
|
FocusColor = clRed
|
|
SelectedColor = clHighlight
|
|
GridLineStyle = psSolid
|
|
DataSource = Datasource1
|
|
ParentColor = False
|
|
TabOrder = 0
|
|
TitleStyle = tsNative
|
|
end
|
|
object CheckBox1: TCheckBox
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = CheckBox2
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 22
|
|
Top = 34
|
|
Width = 104
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Title buttons'
|
|
OnChange = CheckBox2Change
|
|
TabOrder = 1
|
|
end
|
|
object CheckBox2: TCheckBox
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
Left = 6
|
|
Height = 22
|
|
Top = 6
|
|
Width = 84
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Auto sort'
|
|
OnChange = CheckBox2Change
|
|
TabOrder = 2
|
|
end
|
|
object RxMemoryData1: TRxMemoryData
|
|
AutoCalcFields = False
|
|
FieldDefs = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = ftInteger
|
|
Precision = -1
|
|
Size = 0
|
|
end
|
|
item
|
|
Name = 'NAME'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'DATE_ENTER'
|
|
DataType = ftDate
|
|
Precision = -1
|
|
Size = 0
|
|
end>
|
|
left = 192
|
|
top = 16
|
|
object RxMemoryData1ID: TLongintField
|
|
DisplayWidth = 10
|
|
FieldKind = fkData
|
|
FieldName = 'ID'
|
|
Index = 0
|
|
LookupCache = False
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
|
ReadOnly = False
|
|
Required = False
|
|
end
|
|
object RxMemoryData1NAME: TStringField
|
|
DisplayWidth = 100
|
|
FieldKind = fkData
|
|
FieldName = 'NAME'
|
|
Index = 1
|
|
LookupCache = False
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
|
ReadOnly = False
|
|
Required = False
|
|
Size = 100
|
|
end
|
|
object RxMemoryData1DATE_ENTER: TDateField
|
|
DisplayWidth = 10
|
|
FieldKind = fkData
|
|
FieldName = 'DATE_ENTER'
|
|
Index = 2
|
|
LookupCache = False
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
|
ReadOnly = False
|
|
Required = False
|
|
end
|
|
end
|
|
object Datasource1: TDatasource
|
|
DataSet = RxMemoryData1
|
|
left = 152
|
|
top = 16
|
|
end
|
|
end
|