imagetrees.dfm

N年前有个法国小组用Delphi写了一个2D网游（AD&D类型）

object ImageTree: TImageTree
  Left = 0
  Top = 0
  Width = 443
  Height = 277
  Align = alClient
  TabOrder = 0
  object Splitter2: TSplitter
    Left = 0
    Top = 145
    Width = 443
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object ToolBar2: TToolBar
    Left = 0
    Top = 0
    Width = 443
    Height = 22
    AutoSize = True
    Caption = 'ToolBar2'
    EdgeBorders = []
    EdgeInner = esLowered
    Flat = True
    Images = Data.ImageList1
    Indent = 2
    TabOrder = 0
    object ToolButton19: TToolButton
      Left = 2
      Top = 0
      Action = acOpenImages
    end
    object ToolButton2: TToolButton
      Left = 25
      Top = 0
      Action = acSaveTree
    end
    object ToolButton18: TToolButton
      Left = 48
      Top = 0
      Width = 8
      Caption = 'ToolButton18'
      ImageIndex = 11
      Style = tbsSeparator
    end
    object ToolButton1: TToolButton
      Left = 56
      Top = 0
      Action = acNewFolder
    end
    object ToolButton3: TToolButton
      Left = 79
      Top = 0
      Action = acMoveUp
    end
    object ToolButton4: TToolButton
      Left = 102
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 17
      Style = tbsSeparator
    end
    object ToolButton14: TToolButton
      Left = 110
      Top = 0
      Action = acAddImage
    end
    object ToolButton15: TToolButton
      Left = 133
      Top = 0
      Action = acDelImage
    end
    object ToolButton5: TToolButton
      Left = 156
      Top = 0
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 11
      Style = tbsSeparator
    end
    object ToolButton6: TToolButton
      Left = 164
      Top = 0
      Action = acAnim
    end
  end
  object TreeView: TTreeView
    Left = 0
    Top = 22
    Width = 443
    Height = 123
    Align = alClient
    DragMode = dmAutomatic
    HideSelection = False
    Images = Data.ImageList1
    Indent = 19
    SortType = stBoth
    TabOrder = 1
    OnChange = TreeViewChange
    OnDragDrop = TreeViewDragDrop
    OnDragOver = TreeViewDragOver
    OnEdited = TreeViewEdited
    OnKeyDown = TreeViewKeyDown
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 148
    Width = 443
    Height = 129
    Align = alBottom
    TabOrder = 2
    object Image1: TImage
      Left = 0
      Top = 0
      Width = 105
      Height = 105
      AutoSize = True
    end
  end
  object ActionList1: TActionList
    Images = Data.ImageList1
    Left = 8
    Top = 32
    object acSaveImages: TFileSaveAs
      Category = 'Images'
      Caption = 'Enregistrer les images sous...'
      Dialog.DefaultExt = 'IML'
      Dialog.Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
      Dialog.Title = 'Nouvelle biblioth'#232'que d'#39'images...'
      Hint = 'Cr'#233'er|Cr'#233'er une nouvelle biblioth'#232'que d'#39'images'
      ImageIndex = 5
      OnAccept = acSaveImagesAccept
    end
    object acOpenImages: TFileOpen
      Category = 'Images'
      Caption = '&Open...'
      Dialog.DefaultExt = 'IML'
      Dialog.Title = 'Ouvrir une biblioth'#232'que d'#39'images'
      Hint = 'Ouvrir|Ouvrir une biblioth'#232'que d'#39'images'
      ImageIndex = 3
      OnAccept = acOpenImagesAccept
    end
    object acSaveTree: TAction
      Category = 'Images'
      Caption = 'acSaveTree'
      Enabled = False
      Hint = 'Enregistrer|Enregistrer l'#39'arbre (fichier TRE)'
      ImageIndex = 0
      OnExecute = acSaveTreeExecute
    end
    object acNewFolder: TAction
      Category = 'Images'
      Caption = 'acNewFolder'
      Hint = 'Nouveau dossier|Cr'#233'er un nouveau dossier'
      ImageIndex = 15
      OnExecute = acNewFolderExecute
    end
    object acAddImage: TFileOpen
      Category = 'Images'
      Caption = '&Open...'
      Dialog.DefaultExt = 'BMP'
      Dialog.Filter = 'Image Bitmap (*.BMP)|*.bmp|Tous les fichiers (*.*)|*.*'
      Dialog.Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
      Enabled = False
      Hint = 'Ajouter|Ajouter une image'
      ImageIndex = 9
      OnAccept = acAddImageAccept
    end
    object acDelImage: TAction
      Category = 'Images'
      Caption = 'acDelImage'
      Enabled = False
      Hint = 'Supprimer|Supprimer une image'
      ImageIndex = 10
      OnExecute = acDelImageExecute
    end
    object acMoveUp: TAction
      Category = 'Images'
      Caption = 'acMoveUp'
      Hint = 'Remonter|Remonter d'#39'un niveau'
      ImageIndex = 16
      OnExecute = acMoveUpExecute
    end
    object acAnim: TAction
      Category = 'Images'
      Caption = 'Annimation'
      ImageIndex = 21
      OnExecute = acAnimExecute
    end
  end
end