unit1.~dfm

A*算法的优化范例

object frmMain: TfrmMain
  Left = 193
  Top = 128
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'A*'#31639#27861'v2'
  ClientHeight = 519
  ClientWidth = 617
  Color = clBtnFace
  Constraints.MaxWidth = 633
  Constraints.MinWidth = 633
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object imgMAP: TImage
    Left = 0
    Top = 0
    Width = 500
    Height = 500
    Cursor = crHandPoint
    OnMouseDown = imgMAPMouseDown
    OnMouseMove = imgMAPMouseMove
    OnMouseUp = imgMAPMouseUp
  end
  object stbMAP: TStatusBar
    Left = 0
    Top = 500
    Width = 617
    Height = 19
    Panels = <
      item
        Width = 50
      end
      item
        Width = 50
      end
      item
        Text = '0ms'
        Width = 50
      end
      item
        Text = 'Cost=0'
        Width = 50
      end>
    SimplePanel = False
  end
  object btnClearPath: TButton
    Left = 504
    Top = 240
    Width = 113
    Height = 41
    Caption = #28165#38500#36335#24452
    TabOrder = 9
    OnClick = btnClearPathClick
  end
  object btnOpenMap: TButton
    Left = 504
    Top = 56
    Width = 113
    Height = 41
    Caption = #25171#24320#22320#22270
    TabOrder = 1
    OnClick = btnOpenMapClick
  end
  object btnDRAW: TButton
    Left = 504
    Top = 336
    Width = 113
    Height = 41
    Caption = #38556#30861
    TabOrder = 4
    OnClick = btnDRAWClick
  end
  object btnERASER: TButton
    Left = 504
    Top = 376
    Width = 113
    Height = 41
    Caption = #25830#38500
    TabOrder = 5
    OnClick = btnERASERClick
  end
  object btnSETSTART: TButton
    Left = 504
    Top = 416
    Width = 113
    Height = 41
    Caption = #35774#32622#36215#28857
    TabOrder = 6
    OnClick = btnSETSTARTClick
  end
  object btnSETFINISH: TButton
    Left = 504
    Top = 456
    Width = 113
    Height = 41
    Caption = #35774#32622#32456#28857
    TabOrder = 7
    OnClick = btnSETFINISHClick
  end
  object btnSaveMap: TButton
    Left = 504
    Top = 96
    Width = 113
    Height = 41
    Caption = #20445#23384#22320#22270
    TabOrder = 2
    OnClick = btnSaveMapClick
  end
  object btnFindPath: TButton
    Left = 504
    Top = 0
    Width = 113
    Height = 41
    Caption = #24320#22987#23547#36335
    Default = True
    TabOrder = 0
    OnClick = btnFindPathClick
  end
  object btnClearMap: TButton
    Left = 504
    Top = 280
    Width = 113
    Height = 41
    Caption = #28165#31354#22320#22270
    TabOrder = 3
    OnClick = btnClearMapClick
  end
  object pgbMAP: TProgressBar
    Left = 517
    Top = 502
    Width = 100
    Height = 17
    Min = 0
    Max = 100
    TabOrder = 10
  end
  object rdgALG: TRadioGroup
    Left = 504
    Top = 144
    Width = 105
    Height = 89
    Caption = #31639#27861#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemIndex = 1
    Items.Strings = (
      #22235#26041#21521
      #20843#26041#21521'1'
      #20843#26041#21521'2')
    ParentFont = False
    TabOrder = 11
  end
  object dlgMapSave: TSaveDialog
    FileName = 'map.txt'
    Filter = #22320#22270#25991#20214'(*.txt)|*.txt|'#25152#26377#25991#20214'(*.*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 24
  end
  object dlgOpenMap: TOpenDialog
    FileName = 'map.txt'
    Filter = #22320#22270#25991#20214'(*.txt)|*.txt|'#25152#26377#25991#20214'(*.*)|*.*'
  end
end