main.dfm

A*算法寻找最短路径

object Form1: TForm1
  Left = 268
  Top = 109
  Caption = #20256#22855#22320#22270#35835#21462#21450#23547#36335#28436#31034'('#28779#20154#24037#20316#23460#65306'Http://www.huosoft.com)'
  ClientHeight = 701
  ClientWidth = 868
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton8: TSpeedButton
    Left = 14
    Top = 183
    Width = 137
    Height = 22
    Caption = #35835#21462#22320#22270
    OnClick = ButtonOpenMap
  end
  object DXDraw1: TDXDraw
    Left = 168
    Top = 0
    Width = 700
    Height = 701
    AutoInitialize = True
    AutoSize = True
    Color = clBtnFace
    Display.FixedBitCount = True
    Display.FixedRatio = False
    Display.FixedSize = False
    Display.Height = 600
    Display.Width = 800
    Options = [doAllowReboot, doWaitVBlank, doFlip, do3D, doDirectX7Mode, doHardware, doSelectDriver]
    SurfaceHeight = 701
    SurfaceWidth = 700
    TabOrder = 0
    OnMouseDown = DXDraw1MouseDown
    OnMouseMove = DXDraw1MouseMove
  end
  object Memo1: TMemo
    Left = 18
    Top = 8
    Width = 129
    Height = 153
    TabStop = False
    BevelInner = bvNone
    BevelOuter = bvNone
    BorderStyle = bsNone
    Color = clScrollBar
    Lines.Strings = (
      #31532'1'#27493#65306
      #35835#21462#22320#22270
      ''
      #31532'2'#27493#65306
      #40736#26631#24038#38190#36873#25321#36215#28857
      ''
      #31532'3'#27493#65306
      #31227#21160#40736#26631#33258#21160#20135#29983#36335#24452
      ''
      #20877#27425#28857#20987#40736#26631#37325#26032#36873#25321
      #36215#28857)
    ReadOnly = True
    TabOrder = 1
  end
  object RadioButton1: TRadioButton
    Left = 18
    Top = 452
    Width = 113
    Height = 17
    Caption = #26368#30701#36335#24452
    TabOrder = 2
    OnClick = OnSelePathType
  end
  object RadioButton2: TRadioButton
    Tag = 1
    Left = 18
    Top = 488
    Width = 113
    Height = 17
    Caption = #31163#38556#30861#29289'1'#35937#32032
    Checked = True
    TabOrder = 3
    TabStop = True
    OnClick = OnSelePathType
  end
  object RadioButton3: TRadioButton
    Tag = 2
    Left = 18
    Top = 524
    Width = 113
    Height = 17
    Caption = #31163#38556#30861#29289'2'#35937#32032
    TabOrder = 4
    OnClick = OnSelePathType
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 224
    Width = 151
    Height = 209
    Caption = #22320#22270#20449#24687
    TabOrder = 5
    object Label1: TLabel
      Left = 10
      Top = 27
      Width = 30
      Height = 13
      Caption = '          '
    end
    object Label2: TLabel
      Left = 10
      Top = 67
      Width = 30
      Height = 13
      Caption = '          '
    end
    object Label3: TLabel
      Left = 10
      Top = 107
      Width = 30
      Height = 13
      Caption = '          '
    end
    object Label4: TLabel
      Left = 10
      Top = 147
      Width = 110
      Height = 13
      AutoSize = False
      Caption = '          '
    end
    object Label5: TLabel
      Left = 10
      Top = 162
      Width = 110
      Height = 31
      AutoSize = False
      Caption = '          '
    end
  end
  object Button1: TButton
    Left = 40
    Top = 576
    Width = 75
    Height = 25
    Caption = #21047#26032
    TabOrder = 6
    OnClick = Button1Click
  end
  object OpenDialog1: TOpenDialog
    Filter = #20256#22855#22320#22270'|*.map'
    Left = 64
    Top = 152
  end
end