unit1.dfm

研究生算法作业分支界限法求解货郎担问题

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 753
  Height = 617
  Caption = #36135#37070#25285#38382#39064#27714#35299'  (GS0206263)'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 745
    Height = 298
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 745
      Height = 41
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object RxLabel1: TRxLabel
        Left = 16
        Top = 8
        Width = 106
        Height = 16
        Caption = #35831#36755#20837#38382#39064#35268#27169#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 272
        Top = 8
        Width = 78
        Height = 16
        Caption = #39044#32622#20195#20215#20540#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object gmEdit: TRxCalcEdit
        Left = 120
        Top = 8
        Width = 121
        Height = 21
        AutoSize = False
        NumGlyphs = 2
        TabOrder = 0
        Value = 5
        OnChange = gmEditChange
      end
      object MaxNumEdit: TEdit
        Left = 384
        Top = 8
        Width = 65
        Height = 24
        TabOrder = 1
        Text = '1'
      end
      object CheckBox1: TCheckBox
        Left = 598
        Top = 16
        Width = 97
        Height = 17
        Caption = #20351#29992#23567#20869#23384
        Checked = True
        State = cbChecked
        TabOrder = 2
      end
    end
    object StringGrid1: TStringGrid
      Left = 0
      Top = 41
      Width = 745
      Height = 257
      Align = alClient
      Enabled = False
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
      TabOrder = 1
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 301
    Width = 745
    Height = 289
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 745
      Height = 41
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object ConfirmBtn: TDsFancyButton
        Left = 24
        Top = 8
        Width = 97
        Height = 25
        ButtonColor = clBtnFace
        Caption = #30830#35748#36755#20837
        Enabled = False
        FrameColor = clTeal
        FrameWidth = 6
        CornerRadius = 10
        TextStyle = txRaised
        OnClick = ConfirmBtnClick
      end
      object HLDWTBtn: TDsFancyButton
        Left = 208
        Top = 8
        Width = 97
        Height = 25
        ButtonColor = clBtnFace
        Caption = #27714#35299#36135#37070#25285
        Enabled = False
        FrameColor = clTeal
        FrameWidth = 6
        CornerRadius = 10
        TextStyle = txRaised
        OnClick = HLDWTBtnClick
      end
      object AboutBtn: TDsFancyButton
        Left = 608
        Top = 8
        Width = 97
        Height = 25
        ButtonColor = clBtnFace
        Caption = #20851#20110
        FrameColor = clYellow
        FrameWidth = 6
        CornerRadius = 10
        TextStyle = txRaised
        OnClick = AboutBtnClick
      end
      object Label1: TLabel
        Left = 368
        Top = 17
        Width = 65
        Height = 16
        Caption = #32467#26524#31383#21475#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
    end
    object Panel5: TPanel
      Left = 0
      Top = 41
      Width = 352
      Height = 248
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 1
      object Panel6: TPanel
        Left = 0
        Top = 114
        Width = 352
        Height = 134
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 0
        object LoadBtn: TDsFancyButton
          Left = 31
          Top = 5
          Width = 97
          Height = 25
          ButtonColor = clBtnFace
          Caption = #25991#20214#36733#20837
          FrameColor = clPurple
          FrameWidth = 6
          CornerRadius = 10
          TextStyle = txRaised
          OnClick = LoadBtnClick
        end
        object SaveBtn: TDsFancyButton
          Left = 199
          Top = 5
          Width = 97
          Height = 25
          ButtonColor = clBtnFace
          Caption = #25991#20214#20445#23384
          FrameColor = clMaroon
          FrameWidth = 6
          CornerRadius = 10
          TextStyle = txRaised
          OnClick = SaveBtnClick
        end
        object Label3: TLabel
          Left = 16
          Top = 38
          Width = 216
          Height = 80
          Caption = 
            #20808#36733#20837#25991#20214#25110#30830#23450#35268#27169#21450#21021#20540#65292#13#10#20877#21487#20197#20462#25913#20540#65292#27880#24847' '#34920#26684#20013#30340#13#10#34892#21015#19982#25991#20214#20013#30340#30697#38453#34892#21015#20851#31995'('#36716#32622')'#12290#13#10#30830#35748#36755#20837#21518#65292#23601#21487#27714#35299#20102#12290 +
            #13#10'(INF=Infinity)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clTeal
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object abcMailToLabel1: TabcMailToLabel
          Left = 240
          Top = 113
          Width = 80
          Height = 13
          Caption = '[e-mail]'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Mail.Address = '[e-mail]'
          Mail.Subject = #36135#37070#25285#38382#39064
        end
      end
      object Memo2: TMemo
        Left = 0
        Top = 0
        Width = 352
        Height = 114
        Align = alClient
        TabOrder = 1
        Visible = False
      end
    end
    object Memo1: TMemo
      Left = 355
      Top = 41
      Width = 390
      Height = 248
      Align = alClient
      TabOrder = 2
    end
    object RxSplitter1: TRxSplitter
      Left = 352
      Top = 41
      Width = 3
      Height = 248
      ControlFirst = Panel5
      Align = alLeft
    end
  end
  object RxSplitter2: TRxSplitter
    Left = 0
    Top = 298
    Width = 745
    Height = 3
    ControlFirst = Panel3
    Align = alBottom
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 8
    Top = 8
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.txt'
    Filter = #25991#26412#25991#20214'|*.txt'
    Left = 40
    Top = 8
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '*.txt'
    Filter = #25991#26412#25991#20214'|*.txt'
    Left = 72
    Top = 8
  end
end