Chip 2001 October/Chip_2001-10_cd1.bin/zkuste/delphi/kompon/d56/BKSGRID.ZIP/Demo/Unit1.dfm/Unit1.txt

Text File | 2001-07-19 | 5KB | 237 lines

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