object SpeedForm: TSpeedForm
  Left = 561
  Height = 577
  Top = 227
  Width = 566
  ActiveControl = VST1
  Caption = 'SpeedForm'
  ClientHeight = 577
  ClientWidth = 566
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  LCLVersion = '0.9.27'
  Visible = True
  object Label1: TLabel
    Left = 7
    Height = 17
    Top = 8
    Width = 140
    Caption = 'Last operation duration:'
    ParentColor = False
  end
  object Label3: TLabel
    Left = 7
    Height = 17
    Top = 523
    Width = 94
    Anchors = [akLeft, akBottom]
    Caption = 'Nodes in tree: 0'
    ParentColor = False
  end
  object Label6: TLabel
    Left = 164
    Height = 17
    Top = 523
    Width = 68
    Anchors = [akLeft, akBottom]
    Caption = 'Selected: 0'
    ParentColor = False
  end
  object Label4: TLabel
    Left = 264
    Height = 85
    Top = 24
    Width = 285
    Anchors = [akTop, akRight]
    AutoSize = False
    Caption = 'Test how fast the Virtual Treeview is. You can add and delete nodes as much as you like (provided your system has enough memory). An upper limit of one million nodes for a 128MB system is a good start.'
    ParentColor = False
    WordWrap = True
  end
  object Label2: TLabel
    Left = 262
    Height = 17
    Top = 114
    Width = 122
    Anchors = [akTop, akRight]
    Caption = 'As an orientation:'
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object Label5: TLabel
    Left = 276
    Height = 41
    Top = 136
    Width = 273
    Anchors = [akTop, akRight]
    AutoSize = False
    Caption = '1.000.000 nodes on Windows XP Pro, 650Mhz Athlon, 256 MB RAM, take ~ 850ms to add.'
    ParentColor = False
    WordWrap = True
  end
  object Label7: TLabel
    Left = 276
    Height = 41
    Top = 176
    Width = 269
    Anchors = [akTop, akRight]
    AutoSize = False
    Caption = '5.000.000 nodes on Windows XP Pro, 1.8Ghz Pentium M , 1 GB RAM, are added in ~1.6s.'
    ParentColor = False
    WordWrap = True
  end
  object VST1: TVirtualStringTree
    Left = 6
    Height = 487
    Top = 24
    Width = 251
    Anchors = [akTop, akLeft, akRight, akBottom]
    AutoScrollInterval = 10
    Background.Data = {
[encoded data, 102875 characters]
    }
    BorderStyle = bsSingle
    Colors.BorderColor = clWindowText
    Colors.HotColor = clBlack
    DefaultText = 'Node'
    Header.AutoSizeIndex = -1
    Header.Columns = <>
    Header.Font.Height = -11
    Header.Font.Name = 'MS Sans Serif'
    Header.MainColumn = -1
    Header.Options = [hoColumnResize, hoDrag, hoHotTrack]
    HintAnimation = hatNone
    IncrementalSearch = isAll
    ParentShowHint = False
    ScrollBarOptions.VerticalIncrement = 18
    ShowHint = True
    TabOrder = 0
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoTristateTracking]
    TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
    TreeOptions.SelectionOptions = [toMultiSelect]
    OnChange = VST1Change
    OnGetText = VST1GetText
    OnStateChange = VST1StateChange
    OnStructureChange = VST1StructureChange
  end
  object GroupBox2: TGroupBox
    Left = 268
    Height = 57
    Top = 454
    Width = 272
    Anchors = [akRight, akBottom]
    Caption = ' Background '
    ClientHeight = 39
    ClientWidth = 268
    DragMode = dmAutomatic
    TabOrder = 1
    object SBCheckBox: TCheckBox
      Left = 24
      Height = 20
      Top = 10
      Width = 126
      Caption = 'show background'
      OnClick = SBCheckBoxClick
      TabOrder = 0
    end
    object LoadBackgroundButton: TButton
      Left = 240
      Height = 21
      Top = 10
      Width = 21
      BorderSpacing.InnerBorder = 4
      Caption = '...'
      OnClick = LoadBackgroundButtonClick
      TabOrder = 1
    end
  end
  object GroupBox1: TGroupBox
    Left = 268
    Height = 122
    Top = 316
    Width = 281
    Anchors = [akRight, akBottom]
    Caption = ' Add and remove nodes '
    ClientHeight = 104
    ClientWidth = 277
    TabOrder = 2
    object AddRootButton: TButton
      Left = 105
      Height = 22
      Top = 4
      Width = 156
      BorderSpacing.InnerBorder = 4
      Caption = 'Add node(s) to root'
      OnClick = AddButtonClick
      TabOrder = 0
    end
    object NodeCountEdit: TEdit
      Left = 12
      Height = 24
      Top = 16
      Width = 81
      TabOrder = 1
      Text = '100000'
    end
    object AddChildButton: TButton
      Tag = 1
      Left = 105
      Height = 22
      Top = 28
      Width = 156
      BorderSpacing.InnerBorder = 4
      Caption = 'Add node(s) as children'
      OnClick = AddButtonClick
      TabOrder = 2
    end
    object DeleteSelectionButton: TButton
      Tag = 1
      Left = 8
      Height = 22
      Top = 52
      Width = 253
      BorderSpacing.InnerBorder = 4
      Caption = 'Delete selected nodes'
      OnClick = DeleteSelectionButtonClick
      TabOrder = 3
    end
    object ClearButton: TButton
      Tag = 1
      Left = 8
      Height = 22
      Top = 76
      Width = 253
      BorderSpacing.InnerBorder = 4
      Caption = 'Clear tree'
      OnClick = ClearButtonClick
      TabOrder = 4
    end
  end
  object OPD: TOpenPictureDialog
    FilterIndex = 0
    left = 524
    top = 4
  end
end
