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