unit1.dfm

游戏地图编辑器游戏地图编辑器游戏地图编辑器游戏地图编辑器

object Form1: TForm1
  Left = -4
  Top = -4
  Width = 808
  Height = 574
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 65
    Height = 501
    Align = alLeft
    TabOrder = 0
    object ToolBar2: TToolBar
      Left = 11
      Top = 2
      Width = 46
      Height = 230
      Cursor = crHandPoint
      Align = alClient
      ButtonHeight = 38
      ButtonWidth = 41
      Caption = 'ToolBar2'
      Customizable = True
      DockSite = True
      EdgeInner = esNone
      EdgeOuter = esNone
      Images = ObjectImage
      List = True
      TabOrder = 0
      object ToolButton8: TToolButton
        Left = 0
        Top = 2
        Caption = #22320#26495
        Grouped = True
        ImageIndex = 0
        MenuItem = MenuFloor
        Wrap = True
        Style = tbsCheck
      end
      object ToolButton6: TToolButton
        Left = 0
        Top = 40
        Caption = #22681#22721
        Down = True
        Grouped = True
        ImageIndex = 1
        MenuItem = MenuWall
        Wrap = True
        Style = tbsCheck
      end
      object ToolButton7: TToolButton
        Left = 0
        Top = 78
        Caption = #38376
        Grouped = True
        ImageIndex = 2
        MenuItem = MenuDoor
        Wrap = True
        Style = tbsCheck
      end
      object ToolButton9: TToolButton
        Left = 0
        Top = 116
        Caption = #30005#26799
        Grouped = True
        ImageIndex = 3
        MenuItem = MenuLift
        Wrap = True
        Style = tbsCheck
      end
      object ToolButton11: TToolButton
        Left = 0
        Top = 154
        Caption = #35774#32622#21021#22987#20301#32622
        Grouped = True
        ImageIndex = 6
        MenuItem = MenuInit
        Style = tbsCheck
      end
    end
  end
  object Panel1: TPanel
    Left = 65
    Top = 0
    Width = 735
    Height = 501
    Align = alClient
    TabOrder = 1
    object ToolBar1: TToolBar
      Left = 1
      Top = 1
      Width = 733
      Height = 29
      Anchors = [akLeft, akBottom]
      Caption = 'ToolBar1'
      EdgeBorders = [ebLeft, ebTop]
      Images = ImageList1
      Indent = 5
      TabOrder = 0
      object ToolButton10: TToolButton
        Left = 5
        Top = 2
        Width = 8
        Caption = 'ToolButton10'
        ImageIndex = 20
        Style = tbsSeparator
      end
      object ToolButton2: TToolButton
        Left = 13
        Top = 2
        Caption = #26032#24314
        ImageIndex = 3
        MenuItem = MenuFileNew
      end
      object ToolButton3: TToolButton
        Left = 36
        Top = 2
        Caption = #25171#24320
        ImageIndex = 0
        MenuItem = MenuFileOpen
      end
      object ToolButton4: TToolButton
        Left = 59
        Top = 2
        Caption = #20445#23384
        ImageIndex = 1
        MenuItem = MenuFileSave
      end
      object ToolButton5: TToolButton
        Left = 82
        Top = 2
        Width = 8
        Caption = 'ToolButton5'
        ImageIndex = 20
        Style = tbsSeparator
      end
      object ToolButton1: TToolButton
        Left = 90
        Top = 2
        Caption = #36864#20986
        ImageIndex = 19
        MenuItem = MenuExit
      end
    end
    object Panel2: TPanel
      Left = 1
      Top = 30
      Width = 733
      Height = 470
      Align = alClient
      TabOrder = 1
      object Panel3: TPanel
        Left = 1
        Top = 1
        Width = 731
        Height = 468
        Align = alClient
        BevelInner = bvLowered
        BorderWidth = 5
        BorderStyle = bsSingle
        TabOrder = 0
        object ScrollBox1: TScrollBox
          Left = 7
          Top = 7
          Width = 713
          Height = 450
          Align = alClient
          TabOrder = 0
          object Image1: TImage
            Left = 0
            Top = 0
            Width = 834
            Height = 1189
            Cursor = crHandPoint
            OnMouseDown = Image1MouseDown
            OnMouseMove = Image1MouseMove
            OnMouseUp = Image1MouseUp
          end
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 501
    Width = 800
    Height = 19
    Panels = <
      item
        Width = 50
      end
      item
        Width = 100
      end
      item
        Width = 50
      end>
  end
  object MainMenu1: TMainMenu
    Images = ObjectImage
    Left = 427
    Top = 64
    object N1: TMenuItem
      Caption = #25991#20214
      SubMenuImages = ImageList1
      object MenuFileNew: TMenuItem
        Caption = #26032#24314
        ImageIndex = 3
        OnClick = MenuFileNewClick
      end
      object MenuFileOpen: TMenuItem
        Caption = #25171#24320