home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 123
- Top = 75
- ActiveControl = Edit1
- AutoScroll = False
- Caption = 'Add A Column of Numbers'
- ClientHeight = 244
- ClientWidth = 428
- Color = clSilver
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- PixelsPerInch = 96
- OnCreate = FormCreate
- TextHeight = 16
- object Label2: TLabel
- Left = 16
- Top = 16
- Width = 98
- Height = 28
- AutoSize = False
- Caption = 'Add To List'
- end
- object Label1: TLabel
- Left = 16
- Top = 80
- Width = 98
- Height = 17
- AutoSize = False
- Caption = 'Answer:'
- end
- object ListBox1: TListBox
- Left = 240
- Top = 16
- Width = 180
- Height = 218
- Color = clBlue
- Font.Color = clYellow
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = [fsBold]
- ItemHeight = 16
- ParentFont = False
- TabOrder = 5
- OnDblClick = ListBox1DblClick
- end
- object Edit1: TEdit
- Left = 128
- Top = 16
- Width = 100
- Height = 33
- Color = clBlue
- Ctl3D = True
- Font.Color = clYellow
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 0
- Text = 'Edit1'
- end
- object BPut: TButton
- Left = 8
- Top = 136
- Width = 98
- Height = 38
- Caption = '&Put'
- Default = True
- TabOrder = 1
- OnClick = BPutClick
- end
- object BCalc: TButton
- Left = 128
- Top = 136
- Width = 98
- Height = 38
- Caption = '&Calc'
- TabOrder = 2
- OnClick = BCalcClick
- end
- object BClose: TButton
- Left = 8
- Top = 192
- Width = 98
- Height = 38
- Caption = 'Clos&e'
- TabOrder = 3
- OnClick = BCloseClick
- end
- object BClear: TButton
- Left = 128
- Top = 192
- Width = 98
- Height = 38
- Caption = 'C&lear'
- TabOrder = 4
- OnClick = BClearClick
- end
- object Panel1: TPanel
- Left = 128
- Top = 72
- Width = 105
- Height = 33
- Caption = 'Panel1'
- Color = clBlue
- TabOrder = 6
- object LResult: TLabel
- Left = 5
- Top = 5
- Width = 93
- Height = 23
- AutoSize = False
- Caption = 'LResult'
- Color = clBlue
- Font.Color = clYellow
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- end
- end
-