object Form1: TForm1
  Left = 329
  Top = 152
  Width = 523
  Height = 542
  Caption = 'TCompress Demonstration'
  Color = clGreen
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    088888888888888888888880000000000F4F7777777777777777078000000000
    0F0F78877777777777770780000000000F0F7FFFFFFFFFFFFFF7078000000000
    0F0F70000000000000070780000000000F0F7FFFFFFFFFFFFFF7078000000000
    0F0F70000000000000070780000000000F0F7777777777777777078000000000
    0F0FFFFFFFFFFFFFFFFF0780000000000F000000000000000000078000000000
    0F7777777777777777777780000000000F700700007007070070778000000000
    0F7000000000000000007780000000000F700000000090000000778000000000
    0F7000000099990000007780000000000F777777099090907777778000000000
    0F7777770000900077777780000000000F777777000090007777778000000000
    0F7777770000900077777780000000000F777777000090007777778000000000
    0F7777770000000077777780000000000FFFFFFFFFFFFFFFFFFFFF7000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF000000FF000000FF000
    000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000
    000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000
    000FF000000FF000000FF000000FF000000FFFFFFFFFFFFFFFFFFFFFFFFF}
  OldCreateOrder = True
  Position = poScreenCenter
  Scaled = False
  OnClick = FormClick
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 16
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 515
    Height = 508
    Align = alClient
    BevelOuter = bvNone
    Color = clGreen
    TabOrder = 0
    object Shape1: TShape
      Left = 1
      Top = 322
      Width = 502
      Height = 1
    end
    object DBText1: TDBText
      Left = 184
      Top = 327
      Width = 138
      Height = 17
      Alignment = taCenter
      DataField = 'Common_Name'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Image1: TImage
      Left = 171
      Top = 210
      Width = 165
      Height = 105
      DragMode = dmAutomatic
      Stretch = True
      OnDragDrop = CDBImage1DragDrop
      OnDragOver = CDBImage1DragOver
    end
    object Memo1: TMemo
      Left = 177
      Top = 245
      Width = 154
      Height = 32
      Cursor = crArrow
      TabStop = False
      Alignment = taCenter
      BorderStyle = bsNone
      Color = clBtnFace
      DragMode = dmAutomatic
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      Lines.Strings = (
        'Drag images here to display'
        'them in a simple TImage')
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      OnDragDrop = CDBImage1DragDrop
      OnDragOver = CDBImage1DragOver
    end
    object Memo2: TMemo
      Left = 74
      Top = 351
      Width = 354
      Height = 96
      Alignment = taCenter
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      Lines.Strings = (
        'BLOB Database compression demonstration'
        'currently disabled...'
        ''
        'Set the DBDEMOS alias to point to the location of'
        'the BIOLIFE.DB table (usually \DELPHI\DEMOS\DATA).')
      ParentFont = False
      TabOrder = 1
      Visible = False
    end
    object DBNavigator1: TDBNavigator
      Left = 207
      Top = 480
      Width = 88
      Height = 21
      DataSource = DataSource1
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 2
    end
    object CMethod: TRadioGroup
      Left = 202
      Top = 0
      Width = 102
      Height = 89
      Hint = 'Select the desired compression method'
      Caption = 'Compression'
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ItemIndex = 3
      Items.Strings = (
        'None'
        'RLE'
        'LZH1'
        'LZH5')
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = CMethodClick
    end
    object GroupBox1: TGroupBox
      Left = 5
      Top = 0
      Width = 162
      Height = 263
      Hint = 'Drag files to and from the file list'
      Caption = 'Disk Files'
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = GroupBox1Click
      OnDragDrop = DLDragDrop
      OnDragOver = DLDragOver
      object FL: TFileListBox
        Left = 3
        Top = 112
        Width = 155
        Height = 113
        DragMode = dmAutomatic
        ItemHeight = 16
        MultiSelect = True
        ShowGlyphs = True
        TabOrder = 0
        OnClick = FLClick
        OnDragDrop = DLDragDrop
        OnDragOver = DLDragOver
      end
      object DL: TDirectoryListBox
        Left = 3
        Top = 43
        Width = 155
        Height = 67
        FileList = FL
        ItemHeight = 16
        TabOrder = 1
        OnDragDrop = DLDragDrop
        OnDragOver = DLDragOver
      end
      object DCB: TDriveComboBox
        Left = 3
        Top = 19
        Width = 155
        Height = 22
        DirList = DL
        TabOrder = 2
        OnDragDrop = DLDragDrop
        OnDragOver = DLDragOver
      end
      object Memo3: TMemo
        Left = 3
        Top = 227
        Width = 155
        Height = 33
        Cursor = crArrow
        TabStop = False
        Alignment = taCenter
        BorderStyle = bsNone
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        Lines.Strings = (
          'Drag these files to the archive,'
          'images or memo, & vice versa')
        ParentFont = False
        ReadOnly = True
        TabOrder = 3
      end
    end
    object ArchiveGroup: TGroupBox
      Left = 348
      Top = 0
      Width = 162
      Height = 263
      Hint = 'Drag the entire archive too if you wish...'
      Caption = 'Archived Files'
      Color = clBtnFace
      DragMode = dmAutomatic
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnDragDrop = archivefileDragDrop
      OnDragOver = archivefileDragOver
      object ArchiveLabel: TLabel
        Left = 57
        Top = 22
        Width = 46
        Height = 16
        Caption = 'Archive:'
        DragMode = dmAutomatic
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 54
        Top = 70
        Width = 55
        Height = 16
        Caption = 'Contains:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object archivefile: TEdit
        Left = 4
        Top = 40
        Width = 155
        Height = 24
        Hint = 'Edit archive name as required'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        Text = 'C:\COMPDEMO.ARC'
        OnChange = archivefileChange
        OnDragDrop = archivefileDragDrop
        OnDragOver = archivefileDragOver
      end
      object ListBox1: TListBox
        Left = 4
        Top = 88
        Width = 155
        Height = 137
        Hint = 'Click filename for file compression information'
        DragMode = dmAutomatic
        ItemHeight = 16
        MultiSelect = True
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = ListBox1Click