urouting.dfm

实现最短路径算法。 实现最短路径算法。

object RoutingForm: TRoutingForm
  Left = 6
  Top = 134
  Width = 1014
  Height = 480
  Caption = 'RoutingForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object FromPoint: TLabel
    Left = 128
    Top = 88
    Width = 47
    Height = 13
    Caption = 'FromPoint'
  end
  object ToPoint: TLabel
    Left = 128
    Top = 160
    Width = 37
    Height = 13
    Caption = 'ToPoint'
  end
  object X1: TLabel
    Left = 88
    Top = 112
    Width = 13
    Height = 13
    Caption = 'X='
  end
  object y1: TLabel
    Left = 264
    Top = 112
    Width = 13
    Height = 13
    Caption = 'Y='
  end
  object x2: TLabel
    Left = 88
    Top = 192
    Width = 13
    Height = 13
    Caption = 'X='
  end
  object y2: TLabel
    Left = 264
    Top = 192
    Width = 13
    Height = 13
    Caption = 'Y='
  end
  object Label1: TLabel
    Left = 112
    Top = 256
    Width = 53
    Height = 13
    Caption = 'Run Result'
  end
  object Label2: TLabel
    Left = 72
    Top = 24
    Width = 45
    Height = 13
    Caption = 'Node File'
  end
  object Label3: TLabel
    Left = 208
    Top = 24
    Width = 35
    Height = 13
    Caption = 'Arc File'
  end
  object SpeedButton1: TSpeedButton
    Left = 168
    Top = 40
    Width = 23
    Height = 22
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 312
    Top = 40
    Width = 23
    Height = 22
    OnClick = SpeedButton2Click
  end
  object Label4: TLabel
    Left = 352
    Top = 24
    Width = 32
    Height = 13
    Caption = 'AttrFile'
  end
  object SpeedButton3: TSpeedButton
    Left = 448
    Top = 40
    Width = 23
    Height = 22
    OnClick = SpeedButton3Click
  end
  object Label5: TLabel
    Left = 456
    Top = 136
    Width = 25
    Height = 13
    Caption = 'Lines'
  end
  object x1ed: TEdit
    Left = 128
    Top = 112
    Width = 121
    Height = 21
    TabOrder = 0
    Text = '113.26818'
    OnExit = x1edExit
  end
  object y1ed: TEdit
    Left = 304
    Top = 112
    Width = 121
    Height = 21
    TabOrder = 1
    Text = '23.17236'
    OnExit = y1edExit
  end
  object x2ed: TEdit
    Left = 128
    Top = 184
    Width = 121
    Height = 21
    TabOrder = 2
    Text = '113.26739'
    OnChange = x2edChange
  end
  object y2ed: TEdit
    Left = 304
    Top = 184
    Width = 121
    Height = 21
    TabOrder = 3
    Text = '23.12543'
    OnExit = y2edExit
  end
  object Button1: TButton
    Left = 168
    Top = 224
    Width = 75
    Height = 25
    Caption = 'GO'
    TabOrder = 4
    OnClick = Button1Click
  end
  object nodefile: TEdit
    Left = 72
    Top = 40
    Width = 89
    Height = 21
    TabOrder = 5
  end
  object arcfile: TEdit
    Left = 208
    Top = 40
    Width = 97
    Height = 21
    TabOrder = 6
  end
  object attrfile: TEdit
    Left = 352
    Top = 40
    Width = 89
    Height = 21
    TabOrder = 7
  end
  object Memo1: TMemo
    Left = 80
    Top = 280
    Width = 401
    Height = 153
    Lines.Strings = (
      '')
    ScrollBars = ssVertical
    TabOrder = 8
  end
  object Button3: TButton
    Left = 352
    Top = 224
    Width = 75
    Height = 25
    Caption = 'Exit'
    TabOrder = 9
    OnClick = Button3Click
  end
  object lineed: TEdit
    Left = 456
    Top = 152
    Width = 49
    Height = 21
    TabOrder = 10
    Text = '5'
    OnExit = lineedExit
  end
  object ScrollBox1: TScrollBox
    Left = 536
    Top = 24
    Width = 465
    Height = 417
    TabOrder = 11
    object Image1: TImage
      Left = 0
      Top = 0
      Width = 457
      Height = 409
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 312
    Top = 72
  end
end