isocanvasunit.~dfm

45度tile的一个演示

object mainForm: TmainForm
  Left = 396
  Top = 155
  Width = 640
  Height = 480
  Caption = 'IsoCanvas'
  Color = clBtnFace
  Constraints.MinHeight = 480
  Constraints.MinWidth = 640
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyUp = FormKeyUp
  PixelsPerInch = 96
  TextHeight = 13
  object leftrightsplit: TSplitter
    Left = 496
    Top = 30
    Width = 6
    Height = 404
    Cursor = crHSplit
    Align = alRight
    Beveled = True
    Constraints.MinWidth = 3
    MinSize = 3
  end
  object pagecontrolpanel: TPanel
    Left = 502
    Top = 30
    Width = 130
    Height = 404
    Align = alRight
    BevelOuter = bvLowered
    BevelWidth = 2
    Caption = 'pagecontrolpanel'
    Constraints.MaxWidth = 250
    Constraints.MinWidth = 130
    TabOrder = 0
    object PageControl: TPageControl
      Left = 2
      Top = 2
      Width = 126
      Height = 400
      ActivePage = tilessheet
      Align = alClient
      Images = iconImageList
      MultiLine = True
      TabOrder = 0
      object tilessheet: TTabSheet
        Caption = 'Tiles'
        ImageIndex = 39
        object tilepreview: TImage
          Left = 0
          Top = 0
          Width = 118
          Height = 170
          Hint = 'Current Selected Item'
          Align = alTop
          Center = True
          Constraints.MaxHeight = 170
          Constraints.MinHeight = 170
          ParentShowHint = False
          ShowHint = True
        end
        object tilelist: TCheckListBox
          Left = 0
          Top = 170
          Width = 118
          Height = 201
          Hint = 'Building Sections'
          Align = alClient
          ItemHeight = 13
          Items.Strings = (
            'Dirt'
            'Grass'
            'Tree'
            'Box'
            'Blacktop'
            'West Road'
            'East Road'
            'Road w/Corner'
            'Road w/Corner 2')
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnClick = tilelistClick
          OnKeyDown = FormKeyDown
          OnKeyUp = FormKeyUp
        end
      end
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 632
    Height = 30
    BorderWidth = 1
    Caption = 'ToolBar1'
    EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
    Flat = True
    Images = iconImageList
    TabOrder = 1
    object aboutbutton: TToolButton
      Left = 0
      Top = 0
      Hint = 'Welcome Info'
      Caption = 'aboutbutton'
      ImageIndex = 50
      ParentShowHint = False
      ShowHint = True
      OnClick = aboutbuttonClick
    end
    object ToolButton2: TToolButton
      Left = 23
      Top = 0
      Width = 8
      Caption = 'spacer2'
      ImageIndex = 52
      Style = tbsSeparator
    end
    object gridbutton: TToolButton
      Left = 31
      Top = 0
      Hint = 'Enable Grid'
      Caption = 'gridbutton'
      ImageIndex = 38
      ParentShowHint = False
      ShowHint = True
      Style = tbsCheck
    end
    object ToolButton1: TToolButton
      Left = 54
      Top = 0
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 39
      Style = tbsSeparator
    end
    object ToolButton4: TToolButton
      Left = 62
      Top = 0
      Caption = 'ToolButton4'
      ImageIndex = 9
      OnClick = ToolButton4Click
    end
    object ToolButton5: TToolButton
      Left = 85
      Top = 0
      Caption = 'ToolButton5'
      ImageIndex = 83
      OnClick = ToolButton5Click
    end
    object ToolButton3: TToolButton
      Left = 108
      Top = 0
      Caption = 'ToolButton3'
      ImageIndex = 98
      OnClick = ToolButton3Click
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 434
    Width = 632
    Height = 19
    Panels = <
      item
        Text = 'Info Bar'
        Width = 450
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object DXDraw1: TDXDraw
    Left = 0
    Top = 30
    Width = 496
    Height = 404
    AutoInitialize = True
    AutoSize = True
    Color = clBtnFace
    Display.FixedBitCount = True
    Display.FixedRatio = True
    Display.FixedSize = False
    Options = [doAllowReboot, doWaitVBlank, doCenter, doRetainedMode, doHardware, doSelectDriver]
    SurfaceHeight = 404
    SurfaceWidth = 496
    OnInitialize = DXDraw1Initialize
    Align = alClient
    TabOrder = 3
    OnMouseDown = DXDraw1MouseDown
    OnMouseMove = DXDraw1MouseMove
    OnMouseUp = DXDraw1MouseUp
  end
  object openDXG: TOpenDialog
    Filter = 'DelphiX ImageLib|*.dxg'
    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
    Title = 'Open DXG file'
    Left = 80
    Top = 392
  end
  object savedialogmap: TSaveDialog