object Form1: TForm1 Left = 218 Top = 133 Width = 636 Height = 452 Caption = 'Very fast (and ugly) demo of TSortGrid' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label3: TLabel Left = 248 Top = 249 Width = 6 Height = 13 Caption = '1' end object Label4: TLabel Left = 169 Top = 248 Width = 67 Height = 13 Caption = 'Selected rows' end object Label5: TLabel Left = 32 Top = 248 Width = 128 Height = 13 Caption = 'Use ctrl/shift to select rows' end object Label6: TLabel Left = 32 Top = 280 Width = 221 Height = 13 Caption = 'Double click betweem two columns to autosize' end object Label7: TLabel Left = 32 Top = 352 Width = 227 Height = 13 Caption = 'Can also save in registry or as comma separated' end object Label8: TLabel Left = 432 Top = 154 Width = 42 Height = 13 Caption = '<- button' end object Label9: TLabel Left = 432 Top = 103 Width = 64 Height = 13 Caption = '<- hidden text' end object Label10: TLabel Left = 432 Top = 171 Width = 44 Height = 13 Caption = '<- picklist' end object Label11: TLabel Left = 32 Top = 392 Width = 32 Height = 13 Caption = 'search' end object btnedit: TSpeedButton Left = 544 Top = 183 Width = 73 Height = 22 AllowAllUp = True GroupIndex = 1 Caption = 'toggle edit' OnClick = btneditClick end object Label12: TLabel Left = 432 Top = 188 Width = 104 Height = 13 Caption = '<- Won'#39't accept an '#39'a'#39 end object Label13: TLabel Left = 440 Top = 216 Width = 42 Height = 13 Caption = 'modified:' end object Label14: TLabel Left = 488 Top = 216 Width = 22 Height = 13 Caption = 'false' end object SortGrid: TSortGrid Left = 24 Top = 16 Width = 401 Height = 217 ColCount = 6 DefaultRowHeight = 16 FixedCols = 0 RowCount = 11 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goThumbTracking] TabOrder = 0 HideRows = False Filtered = False SortOptions.CanSort = True SortOptions.SortStyle = ssNormal SortOptions.SortCaseSensitive = False SortOptions.SortCol = 0 SortOptions.SortDirection = sdAscending SortOptions.UpdateOnSizeChange = False PrintOptions.Copies = 0 PrintOptions.PrintRange = prAll PrintOptions.PreviewPage = 0 MultiSelect = True AlignmentHorz = taLeftJustify AlignmentVert = taTopJustify BevelStyle = cbNone ProportionalScrollBars = False ExtendedKeys = False OnGetCellFormat = SortGridGetCellFormat OnSetFilter = SortGridSetFilter OnSearch = SortGridSearch OnModified = SortGridModified OnRowSelected = SortGridRowSelected OnCellValidate = SortGridCellValidate OnGetComboBox = SortGridGetComboBox OnSetEllipsis = SortGridSetEllipsis end object Button1: TButton Left = 32 Top = 320 Width = 75 Height = 25 Caption = 'savetofile' TabOrder = 1 OnClick = Button1Click end object GroupBox1: TGroupBox Left = 288 Top = 248 Width = 209 Height = 121 Caption = 'Simple filter' TabOrder = 2 object Label1: TLabel Left = 24 Top = 24 Width = 59 Height = 13 Caption = 'Filter column' end object Label2: TLabel Left = 24 Top = 48 Width = 119 Height = 13 Caption = 'Accept rows with value >' end object EdtCol: TSpinEdit Left = 88 Top = 20 Width = 41 Height = 22 MaxValue = 4 MinValue = 0 TabOrder = 0 Value = 0 end object EdtValue: TSpinEdit Left = 152 Top = 44 Width = 41 Height = 22 MaxValue = 10 MinValue = 0 TabOrder = 1 Value = 0 end object Button2: TButton Left = 24 Top = 72 Width = 75 Height = 25 Caption = 'Toggle filter' TabOrder = 2 OnClick = Button2Click end end object Button3: TButton Left = 120 Top = 320 Width = 75 Height = 25 Caption = 'loadfromfile' TabOrder = 3 OnClick = Button3Click end object EdtSearch: TSpinEdit Left = 72 Top = 388 Width = 81 Height = 22 MaxValue = 0 MinValue = 0 TabOrder = 4 Value = 0 end object Button4: TButton Left = 160 Top = 387 Width = 75 Height = 25 Caption = 'search' TabOrder = 5 OnClick = Button4Click end end