object SpeedForm: TSpeedForm
  Left = 373
  Height = 528
  Top = 249
  Width = 566
  ActiveControl = VST1
  Caption = 'SpeedForm'
  ClientHeight = 528
  ClientWidth = 566
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  LCLVersion = '0.9.29'
  Visible = True
  object Label1: TLabel
    Left = 7
    Height = 18
    Top = 8
    Width = 156
    Caption = 'Last operation duration:'
    ParentColor = False
  end
  object Label3: TLabel
    Left = 6
    Height = 18
    Top = 508
    Width = 104
    Anchors = [akLeft, akBottom]
    Caption = 'Nodes in tree: 0'
    ParentColor = False
  end
  object Label6: TLabel
    Left = 164
    Height = 18
    Top = 508
    Width = 73
    Anchors = [akLeft, akBottom]
    Caption = 'Selected: 0'
    ParentColor = False
  end
  object Label4: TLabel
    AnchorSideLeft.Control = VST1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = VST1
    Left = 261
    Height = 102
    Top = 24
    Width = 296
    BorderSpacing.Left = 4
    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
    AnchorSideLeft.Control = VST1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Label4
    AnchorSideTop.Side = asrBottom
    Left = 261
    Height = 18
    Top = 136
    Width = 135
    BorderSpacing.Left = 4
    BorderSpacing.Top = 10
    Caption = 'As an orientation:'
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object Label5: TLabel
    AnchorSideLeft.Control = VST1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Label2
    AnchorSideTop.Side = asrBottom
    Left = 265
    Height = 60
    Top = 156
    Width = 292
    BorderSpacing.Left = 8
    BorderSpacing.Top = 2
    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
    AnchorSideLeft.Control = VST1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Label5
    AnchorSideTop.Side = asrBottom
    Left = 265
    Height = 39
    Top = 218
    Width = 292
    BorderSpacing.Left = 8
    BorderSpacing.Top = 2
    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 = 479
    Top = 24
    Width = 251
    Anchors = [akTop, akLeft, akRight, akBottom]
    AutoScrollInterval = 10
    Background.Data = {
[encoded data, 102875 characters]
    }
    Colors.BorderColor = clWindowText
    Colors.HotColor = clBlack
    DefaultText = 'Node'
    Header.AutoSizeIndex = -1
    Header.Columns = <>
    Header.DefaultHeight = 17
    Header.Font.Height = -11
    Header.Font.Name = 'MS Sans Serif'
    Header.MainColumn = -1
    Header.Options = [hoColumnResize, hoDrag, hoHotTrack]
    IncrementalSearch = isAll
    ParentShowHint = False
    ScrollBarOptions.VerticalIncrement = 18
    ShowHint = True
    TabOrder = 0
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoTristateTracking]
    TreeOptions.MiscOptions = [toEditable, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
    TreeOptions.SelectionOptions = [toMultiSelect]
    OnChange = VST1Change
    OnGetText = VST1GetText
    OnStateChange = VST1StateChange
    OnStructureChange = VST1StructureChange
  end
  object GroupBox2: TGroupBox
    AnchorSideBottom.Control = VST1
    AnchorSideBottom.Side = asrBottom
    Left = 268
    Height = 57
    Top = 446
    Width = 281
    Anchors = [akRight, akBottom]
    Caption = ' Background '
    ClientHeight = 38
    ClientWidth = 277
    DragMode = dmAutomatic
    TabOrder = 1
    object SBCheckBox: TCheckBox
      Left = 24
      Height = 22
      Top = 10
      Width = 140
      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
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = GroupBox2
    Left = 268
    Height = 122
    Top = 314
    Width = 281
    Anchors = [akRight, akBottom]
    BorderSpacing.Bottom = 10
    Caption = ' Add and remove nodes '
    ClientHeight = 103
    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 = 27
      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
