object frmMain: TfrmMain
  Left = 388
  Top = 230
  Width = 463
  Height = 295
  Caption = 'Compound Document Editor'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = mmMain
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 162
    Top = 0
    Width = 5
    Height = 230
    Cursor = crHSplit
    AutoSnap = False
    MinSize = 100
    ResizeStyle = rsUpdate
  end
  object tvDocInfo: TTreeView
    Left = 0
    Top = 0
    Width = 162
    Height = 230
    Align = alLeft
    ChangeDelay = 60
    HideSelection = False
    Images = il16
    Indent = 19
    PopupMenu = popTreeView
    TabOrder = 0
    ToolTips = False
    OnChange = tvDocInfoChange
    OnCollapsed = tvDocInfoCollapsed
    OnDblClick = tvDocInfoDblClick
    OnDeletion = tvDocInfoDeletion
    OnEdited = tvDocInfoEdited
    OnEditing = tvDocInfoEditing
    OnExpanded = tvDocInfoExpanded
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 230
    Width = 455
    Height = 19
    Panels = <
      item
        Width = 400
      end
      item
        Width = 90
      end>
    SimplePanel = False
  end
  object reDetails: TRichEdit
    Left = 167
    Top = 0
    Width = 288
    Height = 230
    Align = alClient
    PlainText = True
    ScrollBars = ssBoth
    TabOrder = 2
    WantTabs = True
    WordWrap = False
  end
  object mmMain: TMainMenu
    Left = 24
    Top = 72
    object File1: TMenuItem
      Caption = 'File'
      object New1: TMenuItem
        Action = acNew
      end
      object Open1: TMenuItem
        Action = acOpen
      end
      object Save1: TMenuItem
        Action = acSave
      end
      object SaveAs1: TMenuItem
        Action = acSaveAs
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object ransacted1: TMenuItem
        Action = acTransacted
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Properties1: TMenuItem
        Action = acProperties
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Action = acExit
      end
    end
    object Edit1: TMenuItem
      Caption = 'Edit'
      object Undo1: TMenuItem
        Action = acUndo
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Cut1: TMenuItem
        Action = acCut
      end
      object Copy1: TMenuItem
        Action = acCopy
      end
      object Paste1: TMenuItem
        Action = acPaste
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object Editstream1: TMenuItem
        Action = acEditData
      end
      object Savechanges1: TMenuItem
        Action = acSaveData
      end
    end
    object Actions1: TMenuItem
      Caption = 'Actions'
      object Addfolder1: TMenuItem
        Action = acAddFolder
      end
      object Addfile1: TMenuItem
        Action = acAddFile
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Rename1: TMenuItem
        Action = acRename
      end
      object Delete1: TMenuItem
        Action = acDelete
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object Refresh1: TMenuItem
        Action = acRefresh
      end
    end
    object Help1: TMenuItem
      Caption = 'Help'
      object About1: TMenuItem
        Action = acAbout
      end
    end
  end
  object OpenDialog: TOpenDialog
    Filter = 
      'Compound files|*.doc;*.xls;*.ppt;*.mpp;*.mdb;*.dot|All Files (*.' +
      '*)|*.*'
    Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Title = 'Open Compound File'
    Left = 24
    Top = 16
  end
  object il16: TImageList
    Left = 24
    Top = 136
    Bitmap = {
[encoded data, 14839 characters]
      000000000000}
  end
  object alMain: TActionList
    OnUpdate = alMainUpdate
    Left = 96
    Top = 136
    object acOpen: TAction
      Category = 'File'
      Caption = 'Open...'
      ShortCut = 16463
      OnExecute = acOpenExecute
    end
    object acExit: TAction
      Category = 'File'
      Caption = 'Exit'
      ShortCut = 32883
      OnExecute = acExitExecute
    end
    object acAddFolder: TAction
      Category = 'Actions'
      Caption = 'Add Folder...'
      ShortCut = 45
      OnExecute = acAddFolderExecute
    end
    object acAddFile: TAction
      Category = 'Actions'
      Caption = 'Add File...'
      ShortCut = 16429
      OnExecute = acAddFileExecute
    end
    object acDelete: TAction
      Category = 'Actions'
      Caption = 'Delete...'
      ShortCut = 16430
      OnExecute = acDeleteExecute
    end
    object acAbout: TAction
      Category = 'Help'
      Caption = 'About...'
      OnExecute = acAboutExecute
    end
    object acEditData: TAction
      Category = 'Edit'
      Caption = 'Edit Data'
      ShortCut = 16453
      OnExecute = acEditDataExecute
    end
    object acSaveData: TAction
      Category = 'Edit'
      Caption = 'Save Edits'
      ShortCut = 24659
      OnExecute = acSaveDataExecute
    end
    object acCut: TEditCut
      Category = 'Edit'
      Caption = 'Cut'
      ImageIndex = 0
      ShortCut = 16472
    end
    object acCopy: TEditCopy
      Category = 'Edit'
      Caption = 'Copy'
      ImageIndex = 1
      ShortCut = 16451
    end
    object acPaste: TEditPaste
      Category = 'Edit'
      Caption = 'Paste'
      ImageIndex = 2
      ShortCut = 16470
    end
    object acUndo: TEditUndo
      Category = 'Edit'
      Caption = 'Undo'
      ImageIndex = 3
      ShortCut = 16474
    end
    object acRename: TAction
      Category = 'Actions'
      Caption = 'Rename'
      ShortCut = 113
      OnExecute = acRenameExecute
    end
    object acRefresh: TAction
      Category = 'Actions'
      Caption = 'Refresh'
      ShortCut = 116
      OnExecute = acRefreshExecute
    end
    object acProperties: TAction
      Category = 'File'
      Caption = 'Properties...'
      ShortCut = 32781
      OnExecute = acPropertiesExecute
    end
    object acTransacted: TAction
      Category = 'File'
      Caption = 'Transacted'
      Checked = True
      ShortCut = 16468
      OnExecute = acTransactedExecute
    end
    object acNew: TAction
      Category = 'File'
      Caption = 'New...'
      ShortCut = 16462
      OnExecute = acNewExecute
    end
    object acSave: TAction
      Category = 'File'
      Caption = 'Save'
      ShortCut = 16467
      OnExecute = acSaveExecute
    end
    object acSaveAs: TAction
      Category = 'File'
      Caption = 'Save As...'
      OnExecute = acSaveAsExecute
    end
  end
  object popTreeView: TPopupMenu
    Left = 96
    Top = 72
    object AddFolder2: TMenuItem
      Action = acAddFolder
    end
    object AddFile2: TMenuItem
      Action = acAddFile
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object Rename2: TMenuItem
      Action = acRename
    end
    object Delete2: TMenuItem
      Action = acDelete
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object acProper1: TMenuItem
      Action = acProperties
      Default = True
    end
  end
  object SaveDialog: TSaveDialog
    Filter = 
      'Compound files|*.doc;*.xls;*.ppt;*.mpp;*.mdb;*.dot|All Files (*.' +
      '*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofCreatePrompt, ofEnableSizing]
    Title = 'Save New File As'
    Left = 96
    Top = 16
  end
end
