object Form1: TForm1
  Left = 261
  Top = 168
  BorderStyle = bsSingle
  Caption = 'File Association Demo'
  ClientHeight = 359
  ClientWidth = 403
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 341
    Width = 403
    Height = 18
    Panels = <
      item
        Width = 170
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel2: TPanel
    Left = 0
    Top = 288
    Width = 403
    Height = 53
    Align = alBottom
    TabOrder = 1
    object Image1: TImage
      Left = 348
      Top = 10
      Width = 41
      Height = 37
    end
    object Label5: TLabel
      Left = 149
      Top = 18
      Width = 51
      Height = 13
      Caption = 'Extension:'
    end
    object bttGetIcon: TButton
      Left = 6
      Top = 13
      Width = 121
      Height = 21
      Caption = 'Icon of extension'
      TabOrder = 0
      OnClick = bttGetIconClick
    end
    object edtIcon: TEdit
      Left = 206
      Top = 13
      Width = 121
      Height = 21
      TabOrder = 1
      Text = 'html'
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 403
    Height = 137
    Align = alTop
    TabOrder = 2
    object Label1: TLabel
      Left = 151
      Top = 16
      Width = 51
      Height = 13
      Caption = 'Extension:'
    end
    object Label2: TLabel
      Left = 151
      Top = 40
      Width = 51
      Height = 13
      Caption = 'Extension:'
    end
    object Label3: TLabel
      Left = 151
      Top = 67
      Width = 51
      Height = 13
      Caption = 'Extension:'
    end
    object btnExecute: TButton
      Left = 11
      Top = 13
      Width = 105
      Height = 21
      Caption = 'Execute Extension'
      TabOrder = 0
      OnClick = btnExecuteClick
    end
    object btnRemove: TButton
      Left = 11
      Top = 40
      Width = 105
      Height = 21
      Caption = 'Remove Extension'
      TabOrder = 1
      OnClick = btnRemoveClick
    end
    object edtExt: TEdit
      Left = 208
      Top = 13
      Width = 177
      Height = 21
      TabOrder = 2
      Text = 'bsalsa'
    end
    object edtRemove: TEdit
      Left = 208
      Top = 40
      Width = 177
      Height = 21
      TabOrder = 3
    end
    object btnCheck: TButton
      Left = 11
      Top = 67
      Width = 105
      Height = 21
      Caption = 'Check Extensions'
      TabOrder = 4
      OnClick = btnCheckClick
    end
    object edtCheck: TEdit
      Left = 208
      Top = 67
      Width = 177
      Height = 21
      TabOrder = 5
    end
    object edtPath: TEdit
      Left = 6
      Top = 98
      Width = 379
      Height = 21
      TabOrder = 6
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 137
    Width = 403
    Height = 151
    Align = alClient
    TabOrder = 3
    object Image2: TImage
      Left = 332
      Top = 52
      Width = 41
      Height = 37
    end
    object Label4: TLabel
      Left = 317
      Top = 95
      Width = 68
      Height = 13
      Caption = 'Image Numer:'
    end
    object Label7: TLabel
      Left = 332
      Top = 33
      Width = 21
      Height = 13
      Caption = 'Icon'
    end
    object lbNum: TLabel
      Left = 352
      Top = 107
      Width = 29
      Height = 13
      Caption = 'lbNum'
    end
    object MemoFileInfo: TMemo
      Left = 11
      Top = 34
      Width = 300
      Height = 85
      TabOrder = 0
    end
    object edtPath2: TEdit
      Left = 133
      Top = 6
      Width = 252
      Height = 21
      TabOrder = 1
    end
    object btnFileType: TButton
      Left = 8
      Top = 7
      Width = 119
      Height = 21
      Caption = 'File Info By Path'
      TabOrder = 2
      OnClick = btnFileTypeClick
    end
  end
  object FileExtAssociate1: TFileExtAssociate
    About = 
      'File Extension Associate component by bsalsa. Help & Support: ht' +
      'tp://www.bsalsa.com/'
    ExtensionAssociate.Extensions.Strings = (
      'bsalsa'
      'bsalsa1')
    ApplicationDetails.Title = 'File Extension Demo'
    ApplicationDetails.Icon.Data = {
      [encoded data, 8512 characters]
      0003C00000070000000F0000001F8000003FC00000FFF00003FFFC001FFF}
    ApplicationShortcuts.Options = [SendTo, StartMenu, StartUp, Desktop, OpenWith, Programs, QuickLaunch, ProgramsSubDir]
    ApplicationShortcuts.MenuSubDir = 'File Extension '
    OnBusyStateChange = FileExtAssociate1BusyStateChange
    OnErrorText = FileExtAssociate1ErrorText
    OnSuccessText = FileExtAssociate1SuccessText
    OnComplete = FileExtAssociate1Complete
    Left = 248
    Top = 184
  end
end
