object frmMain: TfrmMain
  Left = 192
  Top = 136
  Width = 738
  Height = 476
  Caption = 'UnRar - Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mnuMain
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lstvwMain: TListView
    Left = 0
    Top = 45
    Width = 730
    Height = 358
    Align = alClient
    Columns = <
      item
        Caption = 'FileName'
        Width = 100
      end
      item
        Caption = 'Directory'
        Width = 150
      end
      item
        Caption = 'unpacked'
        Width = 60
      end
      item
        Caption = 'packed'
        Width = 60
      end
      item
        Caption = 'Pass'
        Width = 40
      end
      item
        Caption = 'Dir'
        Width = 30
      end
      item
        Caption = 'Prev'
        Width = 35
      end
      item
        Caption = 'Next'
        Width = 35
      end
      item
        Caption = 'HostOS'
      end
      item
        Caption = 'CRC'
        Width = 55
      end
      item
        Caption = 'DicSize'
        Width = 40
      end
      item
        Caption = 'Time'
      end
      item
        Caption = 'Major'
        Width = 40
      end
      item
        Caption = 'Minor'
        Width = 40
      end
      item
        Caption = 'Method'
      end
      item
        Caption = 'FileAttr'
      end>
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    GridLines = True
    MultiSelect = True
    ReadOnly = True
    RowSelect = True
    ParentFont = False
    TabOrder = 0
    ViewStyle = vsReport
    OnColumnClick = lstvwMainColumnClick
    OnCompare = lstvwMainCompare
  end
  object prgbrUnRar: TProgressBar
    Left = 0
    Top = 29
    Width = 730
    Height = 16
    Align = alTop
    TabOrder = 1
  end
  object tlbrMain: TToolBar
    Left = 0
    Top = 0
    Width = 730
    Height = 29
    Caption = 'tlbrMain'
    Images = imglstMain
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Action = acFileOpen
    end
    object ToolButton2: TToolButton
      Left = 23
      Top = 2
      Action = acFileClose
    end
    object ToolButton6: TToolButton
      Left = 46
      Top = 2
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object ToolButton9: TToolButton
      Left = 54
      Top = 2
      Action = acArchiveInfo
    end
    object ToolButton4: TToolButton
      Left = 77
      Top = 2
      Action = acStatusInfo
    end
    object ToolButton8: TToolButton
      Left = 100
      Top = 2
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object ToolButton7: TToolButton
      Left = 108
      Top = 2
      Action = acExtract
    end
    object ToolButton3: TToolButton
      Left = 131
      Top = 2
      Action = acStop
    end
  end
  object stbrMain: TStatusBar
    Left = 0
    Top = 403
    Width = 730
    Height = 19
    Panels = <>
  end
  object dfUnRar: TDFUnRar
    CanProgress = False
    Mode = DFRAR_EXTRACT
    OverrideEvent = OR_EVENT
    PromptForPass = True
    PromptForVolumn = True
    StopProcessing = False
    OnComment = dfUnRarComment
    OnError = dfUnRarError
    OnFileProcessing = dfUnRarFileProcessing
    OnOverride = dfUnRarOverride
    OnProgress = dfUnRarProgress
    OnRarStatus = dfUnRarRarStatus
    Left = 10
    Top = 176
  end
  object opndlgMain: TOpenDialog
    Filter = 'Rar-Archiv (*.rar)|*.rar|Alle Dateien|*.*'
    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
    Title = 'W'#228'hlen Sie ein Rar-Archiv aus ...'
    Left = 40
    Top = 175
  end
  object mnuMain: TMainMenu
    Images = imglstMain
    Left = 74
    Top = 175
    object miFile: TMenuItem
      Caption = '&Datei'
      object miFileOpen: TMenuItem
        Action = acFileOpen
      end
      object miFileClose: TMenuItem
        Action = acFileClose
      end
      object miSep1: TMenuItem
        Caption = '-'
      end
      object miFileExit: TMenuItem
        Action = acClose
      end
    end
    object miOperations: TMenuItem
      Caption = '&Bearbeiten'
      object miOperationsUnRar: TMenuItem
        Action = acExtract
      end
      object miOperationsArchiveInfo: TMenuItem
        Action = acArchiveInfo
      end
      object miOperationsStatus: TMenuItem
        Action = acStatusInfo
      end
      object miSep3: TMenuItem
        Caption = '-'
      end
      object miOperationsDllInfo: TMenuItem
        Action = acDllInfo
      end
    end
  end
  object acListMain: TActionList
    Images = imglstMain
    Left = 105
    Top = 175
    object acFileOpen: TAction
      Caption = #214'&ffnen'
      Hint = 'Rar-Archive '#246'ffnen'
      ImageIndex = 0
      ShortCut = 16463
      OnExecute = acFileOpenExecute
    end
    object acFileClose: TAction
      Caption = '&Schlie'#223'en'
      Hint = 'Rar-Archive schlie'#223'en'
      ImageIndex = 3
      ShortCut = 16467
      OnExecute = acFileCloseExecute
    end
    object acClose: TAction
      Caption = '&Beenden'
      Hint = 'DF UnRar beenden'
      OnExecute = acCloseExecute
    end
    object acExtract: TAction
      Caption = '&Entpacken'
      Hint = 'Entpacken'
      ImageIndex = 2
      ShortCut = 16453
      OnExecute = acExtractExecute
    end
    object acArchiveInfo: TAction
      Caption = '&Archive-Info'
      Hint = 'Info zum Archiv'
      ImageIndex = 1
      ShortCut = 16449
      OnExecute = acArchiveInfoExecute
    end
    object acDllInfo: TAction
      Caption = '&UnRar-Dll-Info'
      Hint = 'Info zur UnRar.dll'
      OnExecute = acDllInfoExecute
    end
    object acStatusInfo: TAction
      Caption = '&Status-Info'
      Hint = 'Status-Info zum letzten Entpacken'
      ImageIndex = 4
      OnExecute = acStatusInfoExecute
    end
    object acStop: TAction
      Caption = 'Entpacken stoppen'
      Hint = 'Entpacken stoppen'
      ImageIndex = 5
      OnExecute = acStopExecute
    end
  end
  object imglstMain: TImageList
    Left = 136
    Top = 176
    Bitmap = {
      [encoded data, 25664 characters]
      000000000000}
  end
  object appevtMain: TApplicationEvents
    OnIdle = appevtMainIdle
    Left = 167
    Top = 176
  end
end
