fea_tsp.~dfm

蚁群算法的Delphi实现 绝对可用

object FormGA: TFormGA
  Left = 269
  Top = 113
  Width = 731
  Height = 559
  Caption = '  GA TSP'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object PanelFit: TPanel
    Left = 0
    Top = 425
    Width = 723
    Height = 81
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 723
    Height = 425
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Panel3: TPanel
      Left = 407
      Top = 0
      Width = 316
      Height = 425
      Align = alRight
      BevelInner = bvLowered
      TabOrder = 0
      object Panel5: TPanel
        Left = 168
        Top = 2
        Width = 146
        Height = 421
        Align = alRight
        BevelInner = bvLowered
        TabOrder = 0
        object Label2: TLabel
          Left = 2
          Top = 2
          Width = 62
          Height = 13
          Caption = 'City Numbers'
        end
        object Bevel1: TBevel
          Left = 8
          Top = 267
          Width = 129
          Height = 9
        end
        object Bevel2: TBevel
          Left = 8
          Top = 154
          Width = 129
          Height = 9
        end
        object Label3: TLabel
          Left = 8
          Top = 88
          Width = 73
          Height = 13
          Caption = 'Population Size'
        end
        object Label4: TLabel
          Left = 8
          Top = 168
          Width = 71
          Height = 13
          Caption = 'Kill Percentage'
        end
        object Label5: TLabel
          Left = 8
          Top = 216
          Width = 55
          Height = 13
          Caption = 'Transpos %'
        end
        object Label6: TLabel
          Left = 80
          Top = 216
          Width = 54
          Height = 13
          Caption = 'Inversion %'
        end
        object Label7: TLabel
          Left = 8
          Top = 336
          Width = 88
          Height = 13
          Caption = 'Generations / Run'
        end
        object Bevel3: TBevel
          Left = 8
          Top = 76
          Width = 129
          Height = 8
        end
        object EditNoCities: TSpinEdit
          Left = 8
          Top = 24
          Width = 129
          Height = 22
          MaxValue = 0
          MinValue = 0
          TabOrder = 0
          Value = 40
        end
        object EditPopulationSize: TSpinEdit
          Left = 8
          Top = 104
          Width = 129
          Height = 22
          MaxValue = 0
          MinValue = 0
          TabOrder = 1
          Value = 50
        end
        object EditKill: TSpinEdit
          Left = 8
          Top = 184
          Width = 129
          Height = 22
          MaxValue = 0
          MinValue = 0
          TabOrder = 2
          Value = 50
          OnChange = EditKillChange
        end
        object EditInversion: TSpinEdit
          Left = 80
          Top = 232
          Width = 57
          Height = 22
          MaxValue = 0
          MinValue = 0
          TabOrder = 3
          Value = 20
          OnChange = EditInversionChange
        end
        object EditTransposition: TSpinEdit
          Left = 8
          Top = 232
          Width = 57
          Height = 22
          MaxValue = 0
          MinValue = 0
          TabOrder = 4
          Value = 50
          OnChange = EditTranspositionChange
        end
        object EditGens: TSpinEdit
          Left = 8
          Top = 360
          Width = 129
          Height = 22
          MaxValue = 0
          MinValue = 0
          TabOrder = 5
          Value = 50
        end
        object ButtonRun: TButton
          Left = 8
          Top = 312
          Width = 129
          Height = 21
          Caption = 'Run'
          Enabled = False
          TabOrder = 6
          OnClick = ButtonRunClick
        end
        object ButtonStep: TButton
          Left = 8
          Top = 288
          Width = 129
          Height = 21
          Caption = 'Single Generation'
          Enabled = False
          TabOrder = 7
          OnClick = ButtonStepClick
        end
        object ButtonCreateCities: TButton
          Left = 8
          Top = 48
          Width = 129
          Height = 21
          Caption = 'Creat'
          TabOrder = 8
          OnClick = ButtonCreateCitiesClick
        end
        object ButtonCreatePop: TButton
          Left = 8
          Top = 128
          Width = 129
          Height = 21
          Caption = 'Creat'
          Enabled = False
          TabOrder = 9
          OnClick = ButtonCreatePopClick
        end
      end
      object Panel6: TPanel
        Left = 2
        Top = 2
        Width = 166
        Height = 421
        Align = alClient
        BevelInner = bvLowered
        TabOrder = 1
        object Panel7: TPanel
          Left = 2
          Top = 2
          Width = 162
          Height = 31
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          object Label1: TLabel
            Left = 8
            Top = 8
            Width = 96
            Height = 13
            Caption = 'Population Members'
          end
        end
        object ListBox1: TListBox
          Left = 2
          Top = 33
          Width = 162
          Height = 386
          Align = alClient
          ItemHeight = 13
          TabOrder = 1
          OnClick = ListBox1Click
        end
      end
    end
    object PanelDisp: TPanel
      Left = 0
      Top = 0
      Width = 407
      Height = 425
      Align = alClient
      BevelInner = bvLowered
      TabOrder = 1
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 506
    Width = 723
    Height = 19
    Panels = <
      item
        Text = ' '
        Width = 50
      end>
  end
end