unit1.dfm

这又是一个路径探索算法

object Form1: TForm1
  Left = 199
  Top = 108
  BorderStyle = bsSingle
  Caption = '路径算法A*演示 - 林伟 2001/12/22'
  ClientHeight = 315
  ClientWidth = 536
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 4
    Top = 4
    Width = 370
    Height = 242
  end
  object Image1: TImage
    Left = 5
    Top = 5
    Width = 368
    Height = 240
    OnMouseDown = Image1MouseDown
    OnMouseMove = Image1MouseMove
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 248
    Width = 529
    Height = 45
    Caption = '搜索规模设置'
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 20
      Width = 93
      Height = 13
      Caption = 'Open表的上限：'
    end
    object Label2: TLabel
      Left = 232
      Top = 20
      Width = 100
      Height = 13
      Caption = 'Close表的上限：'
    end
    object Edit1: TEdit
      Left = 100
      Top = 16
      Width = 121
      Height = 21
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 332
      Top = 16
      Width = 121
      Height = 21
      TabOrder = 1
    end
    object Button1: TButton
      Left = 460
      Top = 16
      Width = 65
      Height = 21
      Caption = '设 定'
      TabOrder = 2
      OnClick = Button1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 380
    Top = 0
    Width = 153
    Height = 245
    Caption = '估价函数设置'
    TabOrder = 1
    object Label3: TLabel
      Left = 8
      Top = 16
      Width = 98
      Height = 13
      Caption = 'dx=abs(endx-x)'
    end
    object Label4: TLabel
      Left = 8
      Top = 32
      Width = 98
      Height = 13
      Caption = 'dy=abs(endy-y)'
    end
    object Label5: TLabel
      Left = 8
      Top = 48
      Width = 140
      Height = 13
      Caption = 'IF dx>dy mx=m1,my=m2'
    end
    object Label6: TLabel
      Left = 8
      Top = 64
      Width = 112
      Height = 13
      Caption = 'ELSE mx=m2,my=m1'
    end
    object Label7: TLabel
      Left = 8
      Top = 88
      Width = 119
      Height = 13
      Caption = 'Judge=mx*dx+my*dy'
    end
    object Label8: TLabel
      Left = 8
      Top = 120
      Width = 130
      Height = 13
      Caption = '根据上面计算公式设定'
    end
    object Label9: TLabel
      Left = 8
      Top = 140
      Width = 21
      Height = 13
      Caption = 'm1='
    end
    object Label10: TLabel
      Left = 8
      Top = 164
      Width = 21
      Height = 13
      Caption = 'm2='
    end
    object Edit3: TEdit
      Left = 32
      Top = 140
      Width = 97
      Height = 21
      TabOrder = 0
    end
    object Edit4: TEdit
      Left = 32
      Top = 164
      Width = 97
      Height = 21
      TabOrder = 1
    end
    object Button2: TButton
      Left = 84
      Top = 216
      Width = 65
      Height = 21
      Caption = '恢复默认'
      TabOrder = 2
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 8
      Top = 216
      Width = 65
      Height = 21
      Caption = '随机地图'
      TabOrder = 3
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 8
      Top = 188
      Width = 65
      Height = 21
      Caption = '清除地图'
      TabOrder = 4
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 84
      Top = 188
      Width = 65
      Height = 21
      Caption = '速度测试'
      TabOrder = 5
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 296
    Width = 536
    Height = 19
    Panels = <
      item
        Width = 70
      end
      item
        Width = 300
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
end