isomap1.dfm

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

      Checked = True
      ShortCut = 16455
      OnExecute = acShowBackExecute
    end
    object acShowObjects: TAction
      Tag = 4
      Category = 'Show'
      Caption = 'A&fficher les objets'
      Checked = True
      ShortCut = 16456
      OnExecute = acShowBackExecute
    end
    object acResetFPS: TAction
      Category = 'Show'
      Caption = 'Reset FPS'
    end
    object acImportMA2: TFileOpen
      Category = 'File'
      Caption = 'Carte ADK (MA2)'
      Dialog.DefaultExt = 'MA2'
      Dialog.Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
      Dialog.Title = 'Importer une carte MA2'
      Hint = 'Importer|Importer une ancienne carte ADK'
      OnAccept = acImportMA2Accept
    end
    object acFileOpen: TFileOpen
      Category = 'File'
      Caption = '&Ouvrir...'
      Dialog.DefaultExt = 'ADK'
      Dialog.Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
      Dialog.Title = 'Ouvrir une carte...'
      Hint = 'Ouvrir|Ourir une carte'
      ImageIndex = 3
      ShortCut = 16463
      OnAccept = acFileOpenAccept
    end
    object acImportLBA: TFileOpen
      Category = 'File'
      Caption = 'Biblioth'#232'que d'#39'images (LBA)'
      Dialog.DefaultExt = 'LBA'
      Dialog.Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
      Dialog.Title = 'Importer une biblioth'#232'qe d'#39'images'
      Hint = 'Importer|Importer une biblioth'#232'que d'#39'images'
      OnAccept = acImportLBAAccept
    end
    object FileExit1: TFileExit
      Category = 'File'
      Caption = '&Quitter'
      Hint = 'Quitter|Quitter l'#39'application'
      ImageIndex = 1
    end
    object acNew: TAction
      Category = 'File'
      Caption = 'Nouveau...'
      Hint = 'Nouveau|Cr'#233'er une nouvelle carte'
      ImageIndex = 4
      OnExecute = acNewExecute
    end
    object acShowText: TAction
      Tag = 2
      Category = 'Show'
      Caption = 'Afficher le texte'
      Checked = True
    end
    object acShowCurrent: TAction
      Tag = 4
      Category = 'Show'
      Caption = 'Afficher la position'
      Checked = True
    end
    object acShowActive: TAction
      Tag = 8
      Category = 'Show'
      Caption = 'Afficher le cadre'
      Checked = True
    end
    object FileSave: TAction
      Category = 'File'
      Caption = 'Enregistrer'
      Enabled = False
      Hint = 'Enregistrer|Enregistrer la carte'
      ImageIndex = 0
      ShortCut = 16467
      OnExecute = FileSaveExecute
    end
    object FileSaveAs1: TFileSaveAs
      Category = 'File'
      Caption = 'Enregistrer sous...'
      Dialog.DefaultExt = 'ADK'
      Dialog.Filter = 'Carte ADK ISO (*.ADK)|*.ADK|Tous les fichiers (*.*)|*.*'
      Dialog.Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing]
      Hint = 'Save As|Saves the active file with a new name'
      ImageIndex = 5
      OnAccept = FileSaveAs1Accept
    end
    object acShowSelection: TAction
      Tag = 16
      Category = 'Show'
      Caption = 'Afficher s'#233'lection'
      Checked = True
    end
    object FileSaveAs2: TFileSaveAs
      Category = 'File'
      Caption = 'Save &As...'
      Dialog.DefaultExt = 'BMP'
      Dialog.Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing]
      Dialog.Title = 'Enregistre l'#39'image sous...'
      Hint = 'Save As|Saves the active file with a new name'
      ImageIndex = 5
    end
    object acSaveAll: TAction
      Category = 'File'
      Caption = 'acSaveAll'
      Hint = 'Tout enregistrer|Enregistrer toutes les modifications'
      ImageIndex = 17
      OnExecute = acSaveAllExecute
    end
    object acListUp: TAction
      Category = 'Background'
      Caption = 'acListUp'
      Hint = 'Remonter'
      ImageIndex = 18
      OnExecute = acListUpExecute
    end
    object acListDown: TAction
      Category = 'Background'
      Caption = 'acListDown'
      Hint = 'Descendre'
      ImageIndex = 19
      OnExecute = acListDownExecute
    end
    object acListDel: TAction
      Category = 'Background'
      Caption = 'acListDel'
      Hint = 'Supprimer'
      ImageIndex = 10
      ShortCut = 46
      OnExecute = acListDelExecute
    end
    object acShowMiniMap: TAction
      Category = 'Show'
      Caption = 'Mini vue'
      Hint = 'Mini vue|Afficher une vue r'#233'duite de la carte'
      ShortCut = 16470
      OnExecute = acShowMiniMapExecute
    end
    object acBackground: TAction
      Category = 'Show'
      Caption = 'Image de fond'
      Checked = True
      Hint = 'Fond|D'#233'finir les images de fond'
      ImageIndex = 8
      OnExecute = acModesExecute
    end
    object acGrid: TAction
      Tag = 1
      Category = 'Show'
      Caption = 'Grille'
      Hint = 'Grille|D'#233'finir la grille de d'#233'placement'
      ImageIndex = 14
      OnExecute = acModesExecute
    end
    object acObjects: TAction
      Tag = 2
      Category = 'Show'
      Caption = 'Objets'
      Hint = 'Objets|D'#233'finir les objets de la carte'
      ImageIndex = 7
      OnExecute = acModesExecute
    end
    object acImgProperties: TAction
      Caption = 'Propri'#233't'#233's de l'#39'image'
      Hint = 'Propri'#233't'#233's|Propri'#233't'#233's de l'#39'image'
      ImageIndex = 20
      ShortCut = 115
      OnExecute = acImgPropertiesExecute
    end
    object acAddSwitch: TAction
      Category = 'Switch'
      Caption = 'Ajouter'
      ImageIndex = 9
      OnExecute = acAddSwitchExecute
    end
    object acDelSwitch: TAction
      Category = 'Switch'
      Caption = 'Supprimer'
      ImageIndex = 10
    end
    object ColorSelect1: TColorSelect
      Category = 'Dialog'
      Caption = 'Couleur de fond...'
      Dialog.Ctl3D = True
      Hint = 'Color Select'
      OnAccept = ColorSelect1Accept
    end
    object acMergeLib: TFileOpen
      Category = 'File'
      Caption = 'Fusionner une lib (IML)'
      Hint = 'Open|Opens an existing file'
    end
  end
  object MainMenu1: TMainMenu
    Images = Data.ImageList1
    Left = 208
    Top = 88
    object Fichier1: TMenuItem
      AutoHotkeys = maManual
      Caption = 'Fichier'
      object Nouveau1: TMenuItem
        Action = acNew
      end
      object Ouvrir1: TMenuItem
        Action = acFileOpen
      end
      object Enregistrer1: TMenuItem
        Action = FileSave
      end
      object Enregistrersous1: TMenuItem
        Action = FileSaveAs1
      end
      object ReOpen: TMenuItem
        Caption = 'R'#233'ouvrir'
        Visible = False
      end
      object Enregistrerlesimagessous1: TMenuItem
        Action = ImageTree1.acSaveImages
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Importer1: TMenuItem
        Caption = '&Importer'
        Hint = 'Importer|Importer une ancienne carte ADK'
        ImageIndex = 2
        object BibliothquedimageLBA1: TMenuItem
          Action = acImportLBA
        end
        object CarteADKMA21: TMenuItem
          Action = acImportMA2
        end
        object Fusionnerunelibgraphique1: TMenuItem
          Action = acMergeLib
        end
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Quitter1: TMenuItem
        Action = FileExit1
      end
    end
    object Edition1: TMenuItem
      Caption = 'Edition'
      object Copier1: TMenuItem
        Caption = 'Copier'
        ShortCut = 16451
        OnClick = Copier1Click
      end
      object Coller1: TMenuItem
        Caption = 'Coller'
        ShortCut = 16470
        OnClick = Coller1Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object outslectionner1: TMenuItem
        Caption = 'Tout s'#233'lectionner'
        ShortCut = 16449
        OnClick = outslectionner1Click
      end
      object Dslectionner1: TMenuItem
        Caption = 'D'#233's'#233'lectionner'
        ShortCut = 27
        OnClick = Dslectionner1Click
      end
      object Inverserslection1: TMenuItem
        Caption = 'Inverser s'#233'lection'
        OnClick = Inverserslection1Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object miMapProps: TMenuItem
        Caption = 'Propri'#233't'#233's de la carte'
        OnClick = miMapPropsClick
      end
    end
    object Afficher1: TMenuItem
      Caption = 'Affichage'
      object Fond1: TMenuItem
        Action = acShowBack
      end
      object ShowGrid: TMenuItem
        Action = acShowGrid
      end
      object Afficherlesobjets1: TMenuItem
        Action = acShowObjects
      end
      object Minivue1: TMenuItem
        Action = acShowMiniMap
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Affichertout1: TMenuItem
        Tag = 1
        Caption = 'Afficher tout'
      end
      object Cachertout1: TMenuItem
        Caption = 'Cacher tout'
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object Couleurdufond1: TMenuItem
        Action = ColorSelect1
      end
    end
    object Terrain1: TMenuItem
      Caption = 'Terrain'
    end
    object N2: TMenuItem
      Caption = '?'
      object AboutIsoMapper1: TMenuItem
        Caption = 'Aide'
      end
    end
  end
end