Chip 1999 March/Chip_1999-03_cd.bin/zkuste/delphi/INFO/DI9806RS.ZIP/DecideF.dfm/DecideF.txt

Text File | 1998-02-05 | 5KB | 276 lines

object DecideForm: TDecideForm
  Left = 248
  Top = 178
  Width = 514
  Height = 313
  Caption = 'Decide'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 116
    Top = 23
    Width = 48
    Height = 13
    Caption = '# Choices'
  end
  object CostLabel1: TLabel
    Left = 8
    Top = 54
    Width = 33
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Cost'
  end
  object ProfitLabel1: TLabel
    Left = 48
    Top = 54
    Width = 33
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Profit'
  end
  object CostLabel2: TLabel
    Left = 104
    Top = 54
    Width = 33
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Cost'
  end
  object ProfitLabel11: TLabel
    Left = 144
    Top = 54
    Width = 33
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Profit'
  end
  object CostLabel21: TLabel
    Left = 200
    Top = 54
    Width = 33
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Cost'
  end
  object ProfitLabel21: TLabel
    Left = 240
    Top = 54
    Width = 33
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Profit'
  end
  object Label2: TLabel
    Left = 380
    Top = 202
    Width = 48
    Height = 13
    Caption = 'Total Cost'
  end
  object Label3: TLabel
    Left = 380
    Top = 226
    Width = 51
    Height = 13
    Caption = 'Total Profit'
  end
  object Label4: TLabel
    Left = 296
    Top = 54
    Width = 33
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Cost'
  end
  object Label5: TLabel
    Left = 336
    Top = 54
    Width = 33
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Profit'
  end
  object Label6: TLabel
    Left = 12
    Top = 7
    Width = 26
    Height = 13
    Caption = 'Costs'
  end
  object Label7: TLabel
    Left = 76
    Top = 7
    Width = 9
    Height = 13
    Caption = 'to'
  end
  object Label8: TLabel
    Left = 12
    Top = 31
    Width = 29
    Height = 13
    Caption = 'Profits'
  end
  object Label9: TLabel
    Left = 76
    Top = 31
    Width = 9
    Height = 13
    Caption = 'to'
  end
  object Label10: TLabel
    Left = 380
    Top = 250
    Width = 65
    Height = 13
    Caption = 'Nodes Visited'
  end
  object Label11: TLabel
    Left = 388
    Top = 144
    Width = 67
    Height = 13
    Caption = 'Available Cost'
  end
  object CmdRandomize: TButton
    Left = 199
    Top = 19
    Width = 75
    Height = 25
    Caption = 'Randomize'
    TabOrder = 0
    OnClick = CmdRandomizeClick
  end
  object NumChoicesText: TEdit
    Left = 168
    Top = 21
    Width = 25
    Height = 21
    TabOrder = 1
    Text = '10'
    OnChange = DisableSearch
  end
  object TotalCostLabel: TStaticText
    Left = 448
    Top = 200
    Width = 57
    Height = 17
    AutoSize = False
    BorderStyle = sbsSunken
    TabOrder = 2
  end
  object TotalProfitLabel: TStaticText
    Left = 448
    Top = 224
    Width = 57
    Height = 17
    AutoSize = False
    BorderStyle = sbsSunken
    TabOrder = 3
  end
  object CmdSearch: TButton
    Left = 407
    Top = 169
    Width = 66
    Height = 25
    Caption = 'Search'
    Enabled = False
    TabOrder = 4
    OnClick = CmdSearchClick
  end
  object AlgorithmOption: TRadioGroup
    Left = 376
    Top = 48
    Width = 129
    Height = 89
    Caption = 'Algorithm'
    ItemIndex = 0
    Items.Strings = (
      'Exhaustive Search'
      'Branch and Bound'
      'Hill Climbing'
      'Random')
    TabOrder = 5
  end
  object MinCostText: TEdit
    Left = 48
    Top = 5
    Width = 25
    Height = 21
    TabOrder = 6
    Text = '10'
    OnChange = DisableSearch
  end
  object MaxCostText: TEdit
    Left = 88
    Top = 5
    Width = 25
    Height = 21
    TabOrder = 7
    Text = '100'
    OnChange = DisableSearch
  end
  object MinProfitText: TEdit
    Left = 48
    Top = 29
    Width = 25
    Height = 21
    TabOrder = 8
    Text = '5'
    OnChange = DisableSearch
  end
  object MaxProfitText: TEdit
    Left = 88
    Top = 29
    Width = 25
    Height = 21
    TabOrder = 9
    Text = '30'
    OnChange = DisableSearch
  end
  object NodesVisitedLabel: TStaticText
    Left = 448
    Top = 248
    Width = 57
    Height = 17
    AutoSize = False
    BorderStyle = sbsSunken
    TabOrder = 10
  end
  object MaxAvailableText: TEdit
    Left = 464
    Top = 141
    Width = 33
    Height = 21
    TabOrder = 11
    Text = '100'
  end
  object MainMenu1: TMainMenu
    Left = 242
    Top = 123
    object File1: TMenuItem
      Caption = '&File'
      object mnuExit: TMenuItem
        Caption = 'E&xit'
        OnClick = mnuExitClick
      end
    end
  end
end