frmmain.dfm

来自「模拟退火算法求解TSP问题.求解TSP问题的模拟退火算法」· DFM 代码 · 共 98 行

object FormMain: TFormMain
  Left = 182
  Top = 225
  Width = 730
  Height = 456
  Caption = 'Experiment for TSPSA by Amber'
  Color = clBtnFace
  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 Graph: TImage
    Left = 8
    Top = 16
    Width = 400
    Height = 400
  end
  object Label1: TLabel
    Left = 416
    Top = 88
    Width = 51
    Height = 13
    Caption = 'Parameter:'
  end
  object Label2: TLabel
    Left = 416
    Top = 248
    Width = 28
    Height = 13
    Caption = 'State:'
  end
  object Label3: TLabel
    Left = 416
    Top = 16
    Width = 3
    Height = 13
  end
  object BitBtn1: TBitBtn
    Left = 632
    Top = 232
    Width = 75
    Height = 25
    Caption = 'Compute'
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object Info: TMemo
    Left = 417
    Top = 264
    Width = 290
    Height = 149
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    Lines.Strings = (
      ''
      ''
      ''
      ''
      ''
      ''
      '')
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object ValueList: TValueListEditor
    Left = 416
    Top = 104
    Width = 289
    Height = 121
    Strings.Strings = (
      'CityNum=100'
      'DataFile='
      'PrimeTemperature=300'
      'MarkovLength=13000'
      'DiminishedRate=0.9'
      'AIM_Limit=100'
      'Diminish_Times_Limit=2000')
    TabOrder = 2
    ColWidths = (
      150
      117)
  end
  object BitBtn2: TBitBtn
    Left = 552
    Top = 232
    Width = 75
    Height = 25
    Caption = 'Step'
    TabOrder = 3
    OnClick = BitBtn2Click
  end
end