object Form1: TForm1
  Left = 203
  Top = 177
  Width = 703
  Height = 502
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Shell Dlg 2'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 225
    Top = 0
    Width = 6
    Height = 466
    ResizeStyle = rsUpdate
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 225
    Height = 466
    Align = alLeft
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 209
      Height = 65
      AutoSize = False
      Caption = 
        'This demo shows the Popup Hint Capabilites of CoolControl.  The ' +
        'Hints support Unicode and custom draw.'
      WordWrap = True
    end
    object Label2: TLabel
      Left = 16
      Top = 272
      Width = 84
      Height = 13
      Caption = 'Pause Delay Time'
      FocusControl = CheckBoxAllowOnItemsOnly
    end
    object Label3: TLabel
      Left = 80
      Top = 296
      Width = 13
      Height = 13
      Caption = 'ms'
    end
    object RadioGroupHintType: TRadioGroup
      Left = 8
      Top = 136
      Width = 153
      Height = 73
      Caption = 'Hint Type'
      ItemIndex = 0
      Items.Strings = (
        'Text'
        'ToolTip'
        'CustomDraw')
      TabOrder = 0
      OnClick = RadioGroupHintTypeClick
    end
    object CheckBoxAllowOnItemsOnly: TCheckBox
      Left = 8
      Top = 240
      Width = 153
      Height = 17
      Hint = 'Bob'
      Caption = 'Only Allow Hints on Items'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object cbViews: TComboBox
      Left = 8
      Top = 72
      Width = 145
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 2
      OnChange = cbViewsChange
    end
    object CheckBoxCustomizeText: TCheckBox
      Left = 8
      Top = 224
      Width = 185
      Height = 17
      Caption = 'Customize Text based on Postion'
      TabOrder = 3
      OnClick = CheckBoxCustomizeTextClick
    end
    object EditPauseDelayTime: TEdit
      Left = 24
      Top = 288
      Width = 49
      Height = 21
      TabOrder = 4
      Text = '100'
    end
    object CheckBoxHeader: TCheckBox
      Left = 32
      Top = 104
      Width = 89
      Height = 17
      Caption = 'Show Header'
      TabOrder = 5
      OnClick = CheckBoxHeaderClick
    end
  end
  object VCLv: TEasyListview
    Left = 231
    Top = 0
    Width = 456
    Height = 466
    Hint = 'Default Window Hint'
    Align = alClient
    BevelKind = bkTile
    CacheDoubleBufferBits = False
    CellSizes.List.AutoSize = True
    EditManager.Font.Charset = DEFAULT_CHARSET
    EditManager.Font.Color = clWindowText
    EditManager.Font.Height = -11
    EditManager.Font.Name = 'MS Sans Serif'
    EditManager.Font.Style = []
    UseDockManager = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Shell Dlg 2'
    Font.Style = []
    GroupFont.Charset = DEFAULT_CHARSET
    GroupFont.Color = clWindowText
    GroupFont.Height = -11
    GroupFont.Name = 'MS Shell Dlg 2'
    GroupFont.Style = []
    Header.Font.Charset = DEFAULT_CHARSET
    Header.Font.Color = clWindowText
    Header.Font.Height = -11
    Header.Font.Name = 'MS Shell Dlg 2'
    Header.Font.Style = []
    Header.Visible = True
    ImagesGroup = ImageList1
    ImagesSmall = ImageList1
    ImagesLarge = ImageList2
    ImagesExLarge = ImageList2
    PaintInfoGroup.MarginBottom.CaptionIndent = 4
    ParentFont = False
    ParentShowHint = False
    ShowGroupMargins = True
    ShowHint = True
    TabOrder = 1
    View = elsIcon
    OnHintCustomInfo = VCLvHintCustomInfo
    OnHintCustomDraw = VCLvHintCustomDraw
    OnHintPauseTime = VCLvHintPauseTime
    OnHintPopup = VCLvHintPopup
  end
  object ImageList1: TImageList
    Left = 264
    Top = 72
    Bitmap = {
[encoded data, 47215 characters]
      000000000000}
  end
  object ImageList2: TImageList
    Height = 32
    Width = 32
    Left = 296
    Top = 72
    Bitmap = {
[encoded data, 187795 characters]
      000000000000}
  end
end
