object JvThumbnailMainForm: TJvThumbnailMainForm
  Left = 354
  Height = 741
  Top = 122
  Width = 800
  Caption = 'JvThumbView Demo'
  ClientHeight = 741
  ClientWidth = 800
  Color = clBtnFace
  DefaultMonitor = dmDesktop
  Font.Color = clWindowText
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '2.1.0.0'
  Scaled = False
  object PageControl1: TPageControl
    Left = 0
    Height = 717
    Top = 0
    Width = 800
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'ThumbView Component'
      ClientHeight = 689
      ClientWidth = 792
      object Splitter1: TSplitter
        Left = 205
        Height = 629
        Top = 60
        Width = 3
      end
      object Panel1: TPanel
        Left = 0
        Height = 60
        Top = 0
        Width = 792
        Align = alTop
        AutoSize = True
        BevelOuter = bvNone
        ClientHeight = 60
        ClientWidth = 792
        TabOrder = 0
        object LblThumbSize: TLabel
          AnchorSideLeft.Control = TbThumbSize
          AnchorSideTop.Control = Panel1
          AnchorSideRight.Control = TbThumbSize
          AnchorSideRight.Side = asrBottom
          Left = 0
          Height = 15
          Top = 8
          Width = 150
          Alignment = taCenter
          Anchors = [akTop, akLeft, akRight]
          BorderSpacing.Top = 8
          Caption = 'Thumbnail size'
          ParentColor = False
        end
        object Label3: TLabel
          AnchorSideLeft.Control = EdGap
          AnchorSideRight.Control = EdGap
          AnchorSideRight.Side = asrBottom
          AnchorSideBottom.Control = BtnStopLoading
          AnchorSideBottom.Side = asrBottom
          Left = 631
          Height = 15
          Hint = 'Change the thumbgup to change the space between the thumbnails '
          Top = 12
          Width = 24
          Anchors = [akLeft, akBottom]
          BorderSpacing.Bottom = 2
          Caption = 'Gap:'
          ParentColor = False
          ParentShowHint = False
          ShowHint = True
        end
        object Label4: TLabel
          AnchorSideLeft.Control = EdSelected
          AnchorSideTop.Control = Label3
          AnchorSideRight.Control = EdSelected
          AnchorSideRight.Side = asrBottom
          Left = 711
          Height = 15
          Hint = 'Change the selected to select the Nth element in the list.'
          Top = 12
          Width = 47
          Caption = 'Selected:'
          ParentColor = False
          ParentShowHint = False
          ShowHint = True
        end
        object TbThumbSize: TTrackBar
          AnchorSideLeft.Control = Panel1
          AnchorSideTop.Control = LblThumbSize
          AnchorSideTop.Side = asrBottom
          Left = 0
          Height = 28
          Hint = 'Changes the size of the thumbs, it accepts values between 10 and 100'
          Top = 25
          Width = 150
          Frequency = 10
          Max = 100
          Min = 10
          OnChange = TbThumbSizeChange
          PageSize = 10
          Position = 100
          TickMarks = tmTopLeft
          TickStyle = tsNone
          BorderSpacing.Top = 2
          BorderSpacing.Bottom = 4
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
        end
        object CbAutoScrolling: TCheckBox
          AnchorSideLeft.Control = TbThumbSize
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = Panel1
          Left = 174
          Height = 19
          Hint = 'Set "AutoScrolling" to true to let the ThumbView component scroll the selected thumb into the screen automatically'
          Top = 8
          Width = 92
          BorderSpacing.Left = 24
          BorderSpacing.Top = 8
          Caption = 'AutoScrolling'
          Checked = True
          OnClick = CbAutoScrollingClick
          ParentShowHint = False
          ShowHint = True
          State = cbChecked
          TabOrder = 1
        end
        object CbAutoHandleKeyboard: TCheckBox
          AnchorSideLeft.Control = TbThumbSize
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = CbAutoScrolling
          AnchorSideTop.Side = asrBottom
          Left = 174
          Height = 19
          Hint = 'Set "AutoHandlekeyboard" to true to let the Thumbview capture the cursor key and navigate through the view using them'
          Top = 31
          Width = 134
          BorderSpacing.Left = 24
          BorderSpacing.Top = 4
          Caption = 'AutoHandleKeyboard'
          Checked = True
          OnClick = CbAutoHandleKeyboardClick
          ParentShowHint = False
          ShowHint = True
          State = cbChecked
          TabOrder = 2
        end
        object EdGap: TSpinEdit
          AnchorSideLeft.Control = BtnEditSelThumb
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = BtnEditSelThumb
          Left = 631
          Height = 23
          Hint = 'Changes the space between the thumbnails '
          Top = 31
          Width = 64
          BorderSpacing.Left = 24
          BorderSpacing.Bottom = 4
          MaxValue = 300
          MinValue = 1
          OnChange = EdGapChange
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          Value = 1
        end
        object EdSelected: TSpinEdit
          AnchorSideLeft.Control = EdGap
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = EdGap
          Left = 711
          Height = 23
          Hint = 'Selects the thumbnail with this index'
          Top = 31
          Width = 64
          BorderSpacing.Left = 16
          BorderSpacing.Bottom = 4
          MaxValue = 0
          OnChange = EdSelectedChange
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
        end
        object CbSorted: TCheckBox
          AnchorSideLeft.Control = CbMinMemory
          AnchorSideTop.Control = CbAutoScrolling
          Left = 332
          Height = 19
          Hint = 'Set "Sorted" to true to sort the files found in the directory by name (other posibilities in the next version)'
          Top = 8
          Width = 54
          Caption = 'Sorted'
          Checked = True
          ParentShowHint = False
          ShowHint = True
          State = cbChecked
          TabOrder = 5
        end
        object CbMinMemory: TCheckBox
          AnchorSideLeft.Control = CbAutoHandleKeyboard
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = CbAutoHandleKeyboard
          Left = 332
          Height = 19
          Top = 31
          Width = 117
          BorderSpacing.Left = 24
          Caption = 'Minimize memory'
          Checked = True
          OnClick = CbMinMemoryClick
          ParentShowHint = False
          ShowHint = True
          State = cbChecked
          TabOrder = 6
        end
        object BtnStopLoading: TButton
          AnchorSideLeft.Control = BtnEditSelThumb
          AnchorSideTop.Control = Panel1
          AnchorSideRight.Control = BtnEditSelThumb
          AnchorSideRight.Side = asrBottom
          Left = 473
          Height = 25
          Top = 4
          Width = 134
          Anchors = [akTop, akLeft, akRight]
          AutoSize = True
          BorderSpacing.Top = 4
          Caption = 'Stop Loading'
          Enabled = False
          OnClick = BtnStopLoadingClick
          TabOrder = 8
        end
        object BtnEditSelThumb: TButton
          AnchorSideLeft.Control = CbMinMemory
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = BtnStopLoading
          AnchorSideTop.Side = asrBottom
          Left = 473
          Height = 25
          Top = 31
          Width = 134
          AutoSize = True
          BorderSpacing.Left = 24
          BorderSpacing.Top = 2
          BorderSpacing.Bottom = 4
          Caption = 'Edit Selected Thumb'
          OnClick = BtnEditSelThumbClick
          TabOrder = 7
        end
      end
      object Panel2: TPanel
        Left = 0
        Height = 629
        Top = 60
        Width = 205
        Align = alLeft
        BevelOuter = bvNone
        Caption = 'Panel2'
        ClientHeight = 629
        ClientWidth = 205
        TabOrder = 1
        object ShellTreeView: TShellTreeView
          Left = 0
          Height = 431
          Hint = 'Set directory where your images are located and watch the thumbview creating the thumbs'
          Top = 0
          Width = 205
          Align = alClient
          FileSortType = fstAlphabet
          HideSelection = False
          Images = DataModule1.ImageList1
          ReadOnly = True
          TabOrder = 0
          OnChange = ShellTreeViewChange
          OnGetImageIndex = ShellTreeViewGetImageIndex
          OnGetSelectedIndex = ShellTreeViewGetSelectedIndex
          Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
          ObjectTypes = [otFolders]
        end
        object GroupBox4: TGroupBox
          Left = 0
          Height = 190
          Top = 439
          Width = 205
          Align = alBottom
          AutoSize = True
          BorderSpacing.Top = 8
          Caption = 'File info'
          ClientHeight = 170
          ClientWidth = 201
          TabOrder = 1
          object LblFileSize: TLabel
            AnchorSideLeft.Control = GroupBox4
            AnchorSideTop.Control = InfoFileName
            AnchorSideTop.Side = asrBottom
            Left = 12
            Height = 15
            Top = 34
            Width = 23
            BorderSpacing.Left = 12
            Caption = 'Size:'
            ParentColor = False
          end
          object InfoFileSize: TLabel
            AnchorSideLeft.Control = GroupBox4
            AnchorSideTop.Control = LblFileSize
            AnchorSideTop.Side = asrBottom
            Left = 20
            Height = 15
            Top = 49
            Width = 5
            BorderSpacing.Left = 20
            BorderSpacing.Bottom = 4
            Caption = '-'
            ParentColor = False
          end
          object LblDateCreated: TLabel
            AnchorSideLeft.Control = GroupBox4
            AnchorSideTop.Control = InfoFileSize
            AnchorSideTop.Side = asrBottom
            Left = 12
            Height = 15
            Top = 68
            Width = 69
            BorderSpacing.Left = 12
            BorderSpacing.Top = 4
            Caption = 'Date created:'
            ParentColor = False
          end
          object InfoDateCreated: TLabel
            AnchorSideLeft.Control = GroupBox4
            AnchorSideTop.Control = LblDateCreated
            AnchorSideTop.Side = asrBottom
            Left = 20
            Height = 15
            Top = 83
            Width = 5
            BorderSpacing.Left = 20
            BorderSpacing.Bottom = 4
            Caption = '-'
            ParentColor = False
          end
          object LblDateModified: TLabel
            AnchorSideLeft.Control = GroupBox4
            AnchorSideTop.Control = InfoDateCreated
            AnchorSideTop.Side = asrBottom
            Left = 12
            Height = 15
            Top = 102
            Width = 75
            BorderSpacing.Left = 12
            BorderSpacing.Top = 4
            Caption = 'Date modified'
            ParentColor = False
          end
          object InfoDateModified: TLabel
            AnchorSideLeft.Control = GroupBox4
            AnchorSideTop.Control = LblDateModified
            AnchorSideTop.Side = asrBottom
            Left = 20
            Height = 15
            Top = 117
            Width = 5
            BorderSpacing.Left = 20
            BorderSpacing.Bottom = 4
            Caption = '-'
            ParentColor = False
          end
          object LblDateAccessed: TLabel
            AnchorSideLeft.Control = GroupBox4
            AnchorSideTop.Control = InfoDateModified
            AnchorSideTop.Side = asrBottom
            Left = 12
            Height = 15
            Top = 136
            Width = 77
            BorderSpacing.Left = 12
            BorderSpacing.Top = 4
            Caption = 'Date accessed:'
            ParentColor = False
          end
          object InfoDateAccessed: TLabel
            AnchorSideLeft.Control = GroupBox4
            AnchorSideTop.Control = LblDateAccessed
            AnchorSideTop.Side = asrBottom
            Left = 20
            Height = 15
            Top = 151
            Width = 5
            BorderSpacing.Left = 20
            BorderSpacing.Bottom = 4
            Caption = '-'
            ParentColor = False
          end
          object LblFilename: TLabel
            AnchorSideLeft.Control = GroupBox4
            AnchorSideTop.Control = GroupBox4
            Left = 12
            Height = 15
            Top = 0
            Width = 54
            BorderSpacing.Left = 12
            Caption = 'File name:'
            ParentColor = False
          end
          object InfoFileName: TLabel
            AnchorSideLeft.Control = GroupBox4
            AnchorSideTop.Control = LblFilename
            AnchorSideTop.Side = asrBottom
            Left = 20
            Height = 15
            Top = 15
            Width = 5
            BorderSpacing.Left = 20
            BorderSpacing.Bottom = 4
            Caption = '-'
            ParentColor = False
          end
        end
      end
      object Panel3: TPanel
        Left = 208
        Height = 629
        Top = 60
        Width = 584
        Align = alClient
        BevelOuter = bvNone
        Caption = 'Panel3'
        ClientHeight = 629
        ClientWidth = 584
        TabOrder = 2
        object ThumbView: TJvThumbView
          Left = 0
          Height = 629
          Top = 0
          Width = 417
          HorzScrollBar.Page = 1
          HorzScrollBar.Tracking = True
          VertScrollBar.Page = 1
          VertScrollBar.Tracking = True
          Align = alClient
          TabOrder = 0
          TabStop = True
          OnDblClick = ThumbViewDblClick
          Filter = 'Portable Graphics Network (*.png)|*.png|PCX Image (*.pcx)|*.pcx|ANI Image (*.ani)|*.ani|JPEG Image File (*.jpg)|*.jpg|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf'
          ThumbColor = clNone
          OnChange = ThumbViewChange
          OnScanProgress = ThumbViewScanProgress
          OnStartScanning = ThumbViewStartScanning
          OnStopScanning = ThumbViewStopScanning
        end
        object Panel4: TPanel
          Left = 430
          Height = 629
          Top = 0
          Width = 146
          Align = alRight
          BorderSpacing.Left = 8
          BorderSpacing.Right = 8
          BevelOuter = bvNone
          ClientHeight = 629
          ClientWidth = 146
          TabOrder = 1
          object GroupBox1: TGroupBox
            Left = 0
            Height = 80
            Top = 0
            Width = 146
            Align = alTop
            AutoSize = True
            Caption = 'Colors'
            ClientHeight = 60
            ClientWidth = 142
            TabOrder = 0
            object Label1: TLabel
              AnchorSideLeft.Control = GroupBox1
              AnchorSideTop.Control = CbThumbColor
              AnchorSideTop.Side = asrCenter
              Left = 16
              Height = 15
              Top = 5
              Width = 57
              BorderSpacing.Left = 16
              BorderSpacing.Top = 4
              Caption = 'Thumbnail'
              ParentColor = False
            end
            object Label2: TLabel
              AnchorSideLeft.Control = Label1
              AnchorSideTop.Control = CbTitleColor
              AnchorSideTop.Side = asrCenter
              Left = 16
              Height = 15
              Top = 32
              Width = 22
              Caption = 'Title'
              ParentColor = False
            end
            object CbThumbColor: TColorButton
              AnchorSideLeft.Control = Label1
              AnchorSideLeft.Side = asrBottom
              AnchorSideTop.Control = GroupBox1
              Left = 89
              Height = 25
              Top = 0
              Width = 27
              BorderSpacing.Left = 16
              BorderSpacing.Right = 16
              BorderWidth = 2
              ButtonColorSize = 16
              ButtonColor = clBlack
              OnColorChanged = CbThumbColorColorChanged
            end
            object CbTitleColor: TColorButton
              AnchorSideLeft.Control = CbThumbColor
              AnchorSideTop.Control = CbThumbColor
              AnchorSideTop.Side = asrBottom
              Left = 89
              Height = 25
              Top = 27
              Width = 27
              BorderSpacing.Top = 2
              BorderSpacing.Right = 8
              BorderSpacing.Bottom = 8
              BorderWidth = 2
              ButtonColorSize = 16
              ButtonColor = clBlack
              OnColorChanged = CbTitleColorColorChanged
            end
          end
          object GroupBox2: TGroupBox
            Left = 0
            Height = 164
            Top = 88
            Width = 146
            Align = alTop
            AutoSize = True
            BorderSpacing.Top = 8
            Caption = 'Thumbnail border'
            ClientHeight = 144
            ClientWidth = 142
            TabOrder = 1
            object CbThumbBevelInner: TComboBox
              AnchorSideLeft.Control = Label5
              AnchorSideTop.Control = Label5
              AnchorSideTop.Side = asrBottom
              AnchorSideRight.Control = GroupBox2
              AnchorSideRight.Side = asrBottom
              Left = 16
              Height = 23
              Top = 17
              Width = 110
              Anchors = [akTop, akLeft, akRight]
              BorderSpacing.Top = 2
              BorderSpacing.Right = 16
              ItemHeight = 15
              ItemIndex = 0
              Items.Strings = (
                'bvNone'
                'bvLowered'
                'bvRaised'
              )
              OnChange = CbThumbBevelInnerChange
              Style = csDropDownList
              TabOrder = 0
              Text = 'bvNone'
            end
            object Label5: TLabel
              AnchorSideLeft.Control = GroupBox2
              AnchorSideTop.Control = GroupBox2
              Left = 16
              Height = 15
              Top = 0
              Width = 58
              BorderSpacing.Left = 16
              Caption = 'Inner bevel'
              ParentColor = False
            end
            object Label6: TLabel
              AnchorSideLeft.Control = GroupBox2
              AnchorSideTop.Control = CbThumbBevelInner
              AnchorSideTop.Side = asrBottom
              Left = 16
              Height = 15
              Top = 48
              Width = 61
              BorderSpacing.Left = 16
              BorderSpacing.Top = 8
              Caption = 'Outer bevel'
              ParentColor = False
            end
            object CbThumbBevelOuter: TComboBox
              AnchorSideLeft.Control = Label6
              AnchorSideTop.Control = Label6
              AnchorSideTop.Side = asrBottom
              AnchorSideRight.Control = CbThumbBevelInner
              AnchorSideRight.Side = asrBottom
              Left = 16
              Height = 23
              Top = 65
              Width = 110
              Anchors = [akTop, akLeft, akRight]
              BorderSpacing.Top = 2
              ItemHeight = 15
              ItemIndex = 2
              Items.Strings = (
                'bvNone'
                'bvLowered'
                'bvRaised'
              )
              OnChange = CbThumbBevelOuterChange
              Style = csDropDownList
              TabOrder = 1
              Text = 'bvRaised'
            end
            object Label7: TLabel
              AnchorSideLeft.Control = GroupBox2
              AnchorSideTop.Control = CbThumbBevelOuter
              AnchorSideTop.Side = asrBottom
              Left = 16
              Height = 15
              Top = 96
              Width = 62
              BorderSpacing.Left = 16
              BorderSpacing.Top = 8
              Caption = 'Border style'
              ParentColor = False
            end
            object CbThumbBorderStyle: TComboBox
              AnchorSideLeft.Control = Label7
              AnchorSideTop.Control = Label7
              AnchorSideTop.Side = asrBottom
              AnchorSideRight.Control = CbThumbBevelInner
              AnchorSideRight.Side = asrBottom
              Left = 16
              Height = 23
              Top = 113
              Width = 110
              Anchors = [akTop, akLeft, akRight]
              BorderSpacing.Top = 2
              BorderSpacing.Bottom = 8
              ItemHeight = 15
              ItemIndex = 0
              Items.Strings = (
                'bsNone'
                'bsSingle'
              )
              OnChange = CbThumbBorderStyleChange
              Style = csDropDownList
              TabOrder = 2
              Text = 'bsNone'
            end
          end
          object GroupBox3: TGroupBox
            Left = 0
            Height = 164
            Top = 260
            Width = 146
            Align = alTop
            AutoSize = True
            BorderSpacing.Top = 8
            Caption = 'Title border'
            ClientHeight = 144
            ClientWidth = 142
            TabOrder = 2
            object CbThumbTitleBevelInner: TComboBox
              AnchorSideLeft.Control = Label8
              AnchorSideTop.Control = Label8
              AnchorSideTop.Side = asrBottom
              AnchorSideRight.Control = GroupBox3
              AnchorSideRight.Side = asrBottom
              Left = 16
              Height = 23
              Top = 17
              Width = 110
              Anchors = [akTop, akLeft, akRight]
              BorderSpacing.Top = 2
              BorderSpacing.Right = 16
              ItemHeight = 15
              ItemIndex = 0
              Items.Strings = (
                'bvNone'
                'bvLowered'
                'bvRaised'
              )
              OnChange = CbThumbTitleBevelInnerChange
              Style = csDropDownList
              TabOrder = 0
              Text = 'bvNone'
            end
            object Label8: TLabel
              AnchorSideLeft.Control = GroupBox3
              AnchorSideTop.Control = GroupBox3
              Left = 16
              Height = 15
              Top = 0
              Width = 58
              BorderSpacing.Left = 16
              Caption = 'Inner bevel'
              ParentColor = False
            end
            object Label9: TLabel
              AnchorSideLeft.Control = GroupBox3
              AnchorSideTop.Control = CbThumbTitleBevelInner
              AnchorSideTop.Side = asrBottom
              Left = 16
              Height = 15
              Top = 48
              Width = 61
              BorderSpacing.Left = 16
              BorderSpacing.Top = 8
              Caption = 'Outer bevel'
              ParentColor = False
            end
            object CbThumbTitleBevelOuter: TComboBox
              AnchorSideLeft.Control = Label9
              AnchorSideTop.Control = Label9
              AnchorSideTop.Side = asrBottom
              AnchorSideRight.Control = CbThumbTitleBevelInner
              AnchorSideRight.Side = asrBottom
              Left = 16
              Height = 23
              Top = 65
              Width = 110
              Anchors = [akTop, akLeft, akRight]
              BorderSpacing.Top = 2
              ItemHeight = 15
              ItemIndex = 2
              Items.Strings = (
                'bvNone'
                'bvLowered'
                'bvRaised'
              )
              OnChange = CbThumbTitleBevelOuterChange
              Style = csDropDownList
              TabOrder = 1
              Text = 'bvRaised'
            end
            object Label10: TLabel
              AnchorSideLeft.Control = GroupBox3
              AnchorSideTop.Control = CbThumbTitleBevelOuter
              AnchorSideTop.Side = asrBottom
              Left = 16
              Height = 15
              Top = 96
              Width = 62
              BorderSpacing.Left = 16
              BorderSpacing.Top = 8
              Caption = 'Border style'
              ParentColor = False
            end
            object CbThumbTitleBorderStyle: TComboBox
              AnchorSideLeft.Control = Label10
              AnchorSideTop.Control = Label10
              AnchorSideTop.Side = asrBottom
              AnchorSideRight.Control = CbThumbTitleBevelInner
              AnchorSideRight.Side = asrBottom
              Left = 16
              Height = 23
              Top = 113
              Width = 110
              Anchors = [akTop, akLeft, akRight]
              BorderSpacing.Top = 2
              BorderSpacing.Bottom = 8
              ItemHeight = 15
              ItemIndex = 0
              Items.Strings = (
                'bsNone'
                'bsSingle'
              )
              OnChange = CbThumbTitleBorderStyleChange
              Style = csDropDownList
              TabOrder = 2
              Text = 'bsNone'
            end
          end
          object RgAlignView: TRadioGroup
            Left = 0
            Height = 93
            Hint = 'Change the AlignView property to either use the thumbGup (VTNormal) autocalculate the empty space to equall parts(VTSPACEEQUAL) or Cender the thumbs in the using the htumbgup between them.'
            Top = 432
            Width = 146
            Align = alTop
            AutoFill = False
            AutoSize = True
            BorderSpacing.Top = 8
            BorderSpacing.InnerBorder = 4
            Caption = ' AlignView '
            ChildSizing.LeftRightSpacing = 16
            ChildSizing.VerticalSpacing = 4
            ChildSizing.ShrinkHorizontal = crsScaleChilds
            ChildSizing.ShrinkVertical = crsScaleChilds
            ChildSizing.Layout = cclLeftToRightThenTopToBottom
            ChildSizing.ControlsPerLine = 1
            ClientHeight = 73
            ClientWidth = 142
            ItemIndex = 0
            Items.Strings = (
              'VTNormal'
              'VTCenter'
              'VTFitToScreen'
            )
            OnClick = RgAlignViewClick
            TabOrder = 3
          end
          object RgScrollMode: TRadioGroup
            Left = 0
            Height = 93
            Hint = 'Change the ScrollMode to change the direction the thumb are scrolling in the screen SMVertical You will see a vertical scrollbar SMHorizontal For A horizontal ScrollBar or SMBoth to create a square view '
            Top = 533
            Width = 146
            Align = alTop
            AutoFill = False
            AutoSize = True
            BorderSpacing.Top = 8
            BorderSpacing.InnerBorder = 4
            Caption = ' ScrollMode '
            ChildSizing.LeftRightSpacing = 16
            ChildSizing.VerticalSpacing = 4
            ChildSizing.ShrinkHorizontal = crsScaleChilds
            ChildSizing.ShrinkVertical = crsScaleChilds
            ChildSizing.Layout = cclLeftToRightThenTopToBottom
            ChildSizing.ControlsPerLine = 1
            ClientHeight = 73
            ClientWidth = 142
            ItemIndex = 2
            Items.Strings = (
              'SMHorizontal'
              'SMVertical'
              'SMBoth'
            )
            OnClick = RgScrollModeClick
            TabOrder = 4
          end
        end
        object Splitter2: TSplitter
          Left = 417
          Height = 629
          Top = 0
          Width = 5
          Align = alRight
          ResizeAnchor = akRight
        end
      end
    end
  end
  object Panel5: TPanel
    Left = 0
    Height = 24
    Top = 717
    Width = 800
    Align = alBottom
    BorderWidth = 2
    ClientHeight = 24
    ClientWidth = 800
    TabOrder = 1
    object ProgressBar: TProgressBar
      Left = 5
      Height = 13
      Top = 5
      Width = 284
      Step = 0
      TabOrder = 0
      Visible = False
    end
  end
end