home *** CD-ROM | disk | FTP | other *** search
- object CalcForm: TCalcForm
- Left = 234
- Top = 93
- Width = 275
- Height = 384
- Caption = 'CalcForm'
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 120
- OnActivate = FormActivate
- OnClose = FormClose
- TextHeight = 20
- object DisplayEd: TEdit
- Left = 10
- Top = 10
- Width = 251
- Height = 31
- TabOrder = 0
- end
- object Btn8: TButton
- Left = 10
- Top = 51
- Width = 75
- Height = 42
- Caption = '8'
- TabOrder = 1
- OnClick = Btn8Click
- end
- object Btn6: TButton
- Left = 10
- Top = 101
- Width = 75
- Height = 42
- Caption = '6'
- TabOrder = 2
- OnClick = Btn6Click
- end
- object Btn4: TButton
- Left = 10
- Top = 151
- Width = 75
- Height = 42
- Caption = '4'
- TabOrder = 3
- OnClick = Btn4Click
- end
- object Btn2: TButton
- Left = 10
- Top = 201
- Width = 75
- Height = 42
- Caption = '2'
- TabOrder = 4
- OnClick = Btn2Click
- end
- object Btn0: TButton
- Left = 10
- Top = 251
- Width = 75
- Height = 42
- Caption = '0'
- TabOrder = 5
- OnClick = Btn0Click
- end
- object Btn9: TButton
- Left = 100
- Top = 51
- Width = 75
- Height = 42
- Caption = '9'
- TabOrder = 6
- OnClick = Btn9Click
- end
- object Btn7: TButton
- Left = 100
- Top = 101
- Width = 75
- Height = 42
- Caption = '7'
- TabOrder = 7
- OnClick = Btn7Click
- end
- object Btn5: TButton
- Left = 100
- Top = 151
- Width = 75
- Height = 42
- Caption = '5'
- TabOrder = 8
- OnClick = Btn5Click
- end
- object Btn3: TButton
- Left = 100
- Top = 201
- Width = 75
- Height = 42
- Caption = '3'
- TabOrder = 9
- OnClick = Btn3Click
- end
- object Btn1: TButton
- Left = 100
- Top = 251
- Width = 75
- Height = 42
- Caption = '1'
- TabOrder = 10
- OnClick = Btn1Click
- end
- object BtnEquals: TButton
- Left = 100
- Top = 300
- Width = 161
- Height = 41
- Caption = '='
- Font.Color = clRed
- Font.Height = -22
- Font.Name = 'Terminal'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 11
- OnClick = BtnEqualsClick
- end
- object BtnDiv: TButton
- Left = 190
- Top = 50
- Width = 71
- Height = 41
- Caption = '/'
- TabOrder = 12
- OnClick = BtnDivClick
- end
- object BtnMult: TButton
- Left = 190
- Top = 100
- Width = 71
- Height = 41
- Caption = '*'
- TabOrder = 13
- OnClick = BtnMultClick
- end
- object BtnMinus: TButton
- Left = 190
- Top = 150
- Width = 71
- Height = 41
- Caption = '-'
- TabOrder = 14
- OnClick = BtnMinusClick
- end
- object BtnPlus: TButton
- Left = 190
- Top = 200
- Width = 71
- Height = 41
- Caption = '+'
- TabOrder = 15
- OnClick = BtnPlusClick
- end
- object BtnDot: TButton
- Left = 186
- Top = 251
- Width = 75
- Height = 42
- Caption = '.'
- TabOrder = 16
- OnClick = BtnDotClick
- end
- object ClearBtn: TButton
- Left = 10
- Top = 300
- Width = 81
- Height = 41
- Caption = '&Clear'
- TabOrder = 17
- OnClick = ClearBtnClick
- end
- end
-