home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 March
/
Chip_1999-03_cd.bin
/
zkuste
/
delphi
/
INFO
/
DI9806RS.ZIP
/
DecideF.dfm
/
DecideF.txt
Wrap
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