isomap1.dfm

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

object MainForm: TMainForm
  Left = 205
  Top = 113
  Width = 699
  Height = 534
  Caption = 'IsoMapper v2.0 (c)2003 by Paul TOTH <[e-mail]>'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  ShowHint = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 201
    Top = 24
    Width = 3
    Height = 445
    Cursor = crHSplit
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 24
    Width = 201
    Height = 445
    ActivePage = TabSheet1
    Align = alLeft
    MultiLine = True
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Images'
      inline ImageTree1: TImageTree
        Left = 0
        Top = 0
        Width = 193
        Height = 417
        Align = alClient
        TabOrder = 0
        inherited Splitter2: TSplitter
          Top = 285
          Width = 193
        end
        inherited ToolBar2: TToolBar
          Width = 193
          inherited ToolButton18: TToolButton
            Enabled = False
          end
          inherited ToolButton4: TToolButton
            Enabled = False
          end
        end
        inherited TreeView: TTreeView
          Width = 193
          Height = 263
        end
        inherited ScrollBox1: TScrollBox
          Top = 288
          Width = 193
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'El'#233'ments'
      ImageIndex = 2
      object lbBack: TListBox
        Left = 0
        Top = 25
        Width = 193
        Height = 392
        Style = lbVirtual
        Align = alClient
        DragMode = dmAutomatic
        ItemHeight = 13
        MultiSelect = True
        TabOrder = 0
        OnClick = lbBackClick
        OnData = lbBackData
        OnDblClick = lbBackDblClick
        OnDragDrop = lbBackDragDrop
        OnDragOver = lbBackDragOver
        OnMouseDown = lbBackMouseDown
      end
      object ToolBar2: TToolBar
        Left = 0
        Top = 0
        Width = 193
        Height = 25
        Caption = 'ToolBar2'
        EdgeBorders = []
        Flat = True
        Images = Data.ImageList1
        TabOrder = 1
        object ToolButton5: TToolButton
          Left = 0
          Top = 0
          Action = acListUp
        end
        object ToolButton6: TToolButton
          Left = 23
          Top = 0
          Action = acListDown
        end
        object ToolButton15: TToolButton
          Left = 46
          Top = 0
          Width = 8
          Caption = 'ToolButton15'
          ImageIndex = 20
          Style = tbsSeparator
        end
        object ToolButton16: TToolButton
          Left = 54
          Top = 0
          Action = acListDel
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Commutateurs'
      ImageIndex = 2
      object clbSwitches: TCheckListBox
        Left = 0
        Top = 22
        Width = 193
        Height = 395
        OnClickCheck = clbSwitchesClick
        Align = alClient
        ItemHeight = 13
        TabOrder = 0
        OnData = clbSwitchesData
        OnDblClick = clbSwitchesDblClick
      end
      object ToolBar3: TToolBar
        Left = 0
        Top = 0
        Width = 193
        Height = 22
        AutoSize = True
        Caption = 'ToolBar3'
        EdgeBorders = []
        Flat = True
        Images = Data.ImageList1
        TabOrder = 1
        object ToolButton10: TToolButton
          Left = 0
          Top = 0
          Action = acAddSwitch
        end
        object ToolButton11: TToolButton
          Left = 23
          Top = 0
          Action = acDelSwitch
        end
      end
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 691
    Height = 24
    AutoSize = True
    Caption = 'ToolBar1'
    Flat = True
    Images = Data.ImageList1
    Indent = 4
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 4
      Top = 0
      Action = acNew
    end
    object ToolButton3: TToolButton
      Left = 27
      Top = 0
      Action = acFileOpen
    end
    object ToolButton7: TToolButton
      Left = 50
      Top = 0
      Action = FileSave
    end
    object ToolButton14: TToolButton
      Left = 73
      Top = 0
      Action = acSaveAll
    end
    object ToolButton4: TToolButton
      Left = 96
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton2: TToolButton
      Left = 104
      Top = 0
      Action = FileExit1
    end
    object ToolButton9: TToolButton
      Left = 127
      Top = 0
      Width = 8
      Caption = 'ToolButton9'
      ImageIndex = 21
      Style = tbsSeparator
    end
    object Label1: TLabel
      Left = 135
      Top = 0
      Width = 3
      Height = 22
      Layout = tlCenter
    end
    object ToolButton8: TToolButton
      Left = 138
      Top = 0
      Action = acImgProperties
    end
    object ToolButton12: TToolButton
      Left = 161
      Top = 0
      Width = 8
      Caption = 'ToolButton12'
      ImageIndex = 21
      Style = tbsSeparator
    end
    object ToolButton13: TToolButton
      Left = 169
      Top = 0
      Caption = 'ToolButton13'
      ImageIndex = 6
      Style = tbsCheck
    end
    object cbForeGroundSelect: TToolButton
      Left = 192
      Top = 0
      Hint = 
        'S'#233'lection d'#39'avant plan|Interdit la s'#233'lection des images d'#39'arri'#232'r' +
        'e plan'
      Caption = 'S'#233'lection d'#39'avant plan'
      ImageIndex = 22
      Style = tbsCheck
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 469
    Width = 691
    Height = 19
    Panels = <
      item
        Width = 80
      end
      item
        Width = 80
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 204
    Top = 24
    Width = 487
    Height = 445
    Align = alClient
    BevelOuter = bvLowered
    Caption = 'Panel1'
    TabOrder = 3
    inline MapFrame1: TMapFrame
      Left = 1
      Top = 25
      Width = 485
      Height = 419
      Align = alClient
      Color = clAppWorkSpace
      ParentColor = False
      TabOrder = 0
      inherited PaintBox1: TPaintBox
        Width = 485
        Height = 419
        OnDragDrop = MapFrame1PaintBox1DragDrop
        OnDragOver = MapFrame1PaintBox1DragOver
        OnMouseDown = MapFrame1PaintBox1MouseDown
        OnMouseMove = MapFrame1PaintBox1MouseMove
        OnPaint = MapFrame1PaintBox1Paint
      end
    end
    object TabControl1: TTabControl
      Left = 1
      Top = 1
      Width = 485
      Height = 24
      Align = alTop
      TabOrder = 1
      Tabs.Strings = (
        'Dessin'
        'Grille')
      TabIndex = 0
      OnChange = TabControl1Change
    end
  end
  object ActionList1: TActionList
    Images = Data.ImageList1
    Left = 240
    Top = 88
    object acShowBack: TAction
      Tag = 1
      Category = 'Show'
      Caption = 'Afficher l'#39'image de fond'
      Checked = True
      ShortCut = 16454
      OnExecute = acShowBackExecute
    end
    object acShowGrid: TAction
      Tag = 2
      Category = 'Show'
      Caption = 'Afficher la &grille'