home *** CD-ROM | disk | FTP | other *** search
- object FormCalc: TFormCalc
- Left = 444
- Top = 98
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = ' FinCalc'
- ClientHeight = 312
- ClientWidth = 181
- Color = clTeal
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- KeyPreview = True
- PixelsPerInch = 96
- OnCreate = FormCreate
- OnKeyDown = FormKeyDown
- OnKeyPress = FormKeyPress
- TextHeight = 16
- object Notebook1: TNotebook
- Left = 0
- Top = -5
- Width = 182
- Height = 318
- Color = clNavy
- ParentColor = False
- TabOrder = 0
- object TPage
- Left = 0
- Top = 0
- Caption = 'REingabe'
- object ZurueckButton: TSpeedButton
- Left = 59
- Top = 104
- Width = 30
- Height = 30
- Glyph.Data = {
- 20020000424D2002000000000000760000002800000019000000190000000100
- 0400000000009001000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777777777000000077777777777777777777777770000000777777777777
- 7777777777777000000077777777777777777777777770000000777777777777
- 7777777777777000000077777777700077777777777770000000777777770007
- 7777777777777000000077777770007777777777777770000000777777000777
- 7777777777777000000077777000777777777777777770000000777700077777
- 7777777777777000000077700000000000000000007770000000770000000000
- 0000000000777000000077700000000000000000007770000000777700077777
- 7777777777777000000077777000777777777777777770000000777777000777
- 7777777777777000000077777770007777777777777770000000777777770007
- 7777777777777000000077777777700077777777777770000000777777777777
- 7777777777777000000077777777777777777777777770000000777777777777
- 7777777777777000000077777777777777777777777770000000777777777777
- 7777777777777000000000000000000000000000000000000000000000000000
- 00000000}
- Spacing = 0
- OnClick = ZurueckButtonClick
- end
- object VorzeichenButton: TSpeedButton
- Left = 94
- Top = 244
- Width = 30
- Height = 30
- Glyph.Data = {
- 20020000424D2002000000000000760000002800000019000000190000000100
- 0400000000009001000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777777777000000077777777777777777777777770000000777777777777
- 7777777777777000000077777777777777777777777770000000777077777777
- 7777777777777000000077770777777770000000000770000000777770777777
- 7000000000077000000077777707777777777777777770000000777777707777
- 7777777777777000000077777777077777777777777770000000777777777077
- 7777777777777000000077777777770777777777777770000000777777777770
- 7777777777777000000077777777777707777777777770000000777777007777
- 7077777777777000000077777700777777077777777770000000777777007777
- 7770777777777000000077777700777777770777777770000000770000000000
- 7777707777777000000077000000000077777707777770000000777777007777
- 7777777077777000000077777700777777777777077770000000777777007777
- 7777777777777000000077777700777777777777777770000000777777777777
- 7777777777777000000000000000000000000000000000000000000000000000
- 00000000}
- OnClick = VorzeichenButtonClick
- end
- object LBDisplay: TListBox
- Left = 24
- Top = 16
- Width = 135
- Height = 76
- Color = clWhite
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ItemHeight = 16
- Items.Strings = (
- '')
- ParentFont = False
- TabOrder = 0
- OnEndDrag = LBDisplayEndDrag
- OnMouseDown = LBDisplayMouseDown
- OnMouseMove = LBDisplayMouseMove
- end
- object ClearButton: TButton
- Left = 24
- Top = 104
- Width = 30
- Height = 30
- Caption = 'C'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = ClearButtonClick
- end
- object ProzentButton: TButton
- Left = 94
- Top = 104
- Width = 30
- Height = 30
- Caption = '%'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = ProzentButtonClick
- end
- object GeteiltButton: TButton
- Left = 129
- Top = 104
- Width = 30
- Height = 30
- Caption = '/'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = Button_OperatorClick
- end
- object Eing7Button: TButton
- Left = 24
- Top = 139
- Width = 30
- Height = 30
- Caption = '7'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnClick = ButtonZahlClick
- end
- object Eing8Button: TButton
- Left = 59
- Top = 139
- Width = 30
- Height = 30
- Caption = '8'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- OnClick = ButtonZahlClick
- end
- object Eing9Button: TButton
- Left = 94
- Top = 139
- Width = 30
- Height = 30
- Caption = '9'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 6
- OnClick = ButtonZahlClick
- end
- object MalButton: TButton
- Left = 129
- Top = 139
- Width = 30
- Height = 30
- Caption = 'x'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 7
- OnClick = Button_OperatorClick
- end
- object Eing4Button: TButton
- Left = 24
- Top = 174
- Width = 30
- Height = 30
- Caption = '4'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 8
- OnClick = ButtonZahlClick
- end
- object Eing5Button: TButton
- Left = 59
- Top = 174
- Width = 30
- Height = 30
- Caption = '5'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 9
- OnClick = ButtonZahlClick
- end
- object Eing6Button: TButton
- Left = 94
- Top = 174
- Width = 30
- Height = 30
- Caption = '6'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 10
- OnClick = ButtonZahlClick
- end
- object MinusButton: TButton
- Left = 129
- Top = 174
- Width = 30
- Height = 30
- Caption = '-'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 11
- OnClick = Button_OperatorClick
- end
- object Eing1Button: TButton
- Left = 24
- Top = 209
- Width = 30
- Height = 30
- Caption = '1'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 12
- OnClick = ButtonZahlClick
- end
- object Eing2Button: TButton
- Left = 59
- Top = 209
- Width = 30
- Height = 30
- Caption = '2'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 13
- OnClick = ButtonZahlClick
- end
- object Eing3Button: TButton
- Left = 94
- Top = 209
- Width = 30
- Height = 30
- Caption = '3'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 14
- OnClick = ButtonZahlClick
- end
- object PlusButton: TButton
- Left = 129
- Top = 209
- Width = 30
- Height = 30
- Caption = '+'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 15
- OnClick = Button_OperatorClick
- end
- object Eing0Button: TButton
- Left = 24
- Top = 244
- Width = 30
- Height = 30
- Caption = '0'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 16
- OnClick = ButtonZahlClick
- end
- object PunktButton: TButton
- Left = 59
- Top = 244
- Width = 30
- Height = 30
- Caption = '.'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 17
- OnClick = PunktButtonClick
- end
- object ErgebnisButton: TButton
- Left = 129
- Top = 244
- Width = 30
- Height = 30
- Caption = '='
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Terminal'
- Font.Style = []
- ParentFont = False
- TabOrder = 18
- OnClick = ErgebnisButtonClick
- end
- object Panel1: TPanel
- Left = 24
- Top = 288
- Width = 137
- Height = 18
- Caption = 'Financial - Calculator'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- TabOrder = 19
- OnClick = Panel1Click
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Info'
- object Label1: TLabel
- Left = 10
- Top = 16
- Width = 159
- Height = 16
- Caption = 'TFinCalcDlg Component '
- Color = clNavy
- Font.Color = clYellow
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object cLabel: TLabel
- Left = 5
- Top = 69
- Width = 87
- Height = 14
- Caption = 'Copyright � 1996 '
- Color = clNavy
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object aLabel: TLabel
- Left = 31
- Top = 110
- Width = 95
- Height = 14
- Caption = 'All Rights Reserved'
- Color = clNavy
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object Label3: TLabel
- Left = 20
- Top = 216
- Width = 145
- Height = 14
- Caption = '101360.756@compuserve.com'
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label5: TLabel
- Left = 20
- Top = 232
- Width = 145
- Height = 14
- Caption = '101365.321@compuserve.com'
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 23
- Top = 168
- Width = 126
- Height = 14
- Caption = 'E-Mail : CIS 101360,756 '
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label4: TLabel
- Left = 10
- Top = 40
- Width = 115
- Height = 16
- Caption = '(V1.21) for Delphi '
- Color = clNavy
- Font.Color = clYellow
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object Label6: TLabel
- Left = 5
- Top = 85
- Width = 167
- Height = 14
- Caption = 'by A.Haeber && S.Unterbarnscheidt'
- Color = clNavy
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object Label7: TLabel
- Left = 70
- Top = 184
- Width = 79
- Height = 14
- Caption = 'CIS 101365,321 '
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label8: TLabel
- Left = 71
- Top = 200
- Width = 43
- Height = 14
- Caption = 'InterNet '
- Font.Color = clYellow
- Font.Height = -11
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Panel2: TPanel
- Left = 5
- Top = 144
- Width = 172
- Height = 5
- Caption = 'Panel2'
- TabOrder = 0
- end
- object Panel3: TPanel
- Left = 24
- Top = 288
- Width = 137
- Height = 18
- Caption = 'Financial - Calculator'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = Panel3Click
- end
- end
- end
- end
-