home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 January
/
Chip_1999-01_cd.bin
/
zkuste
/
delphi
/
D1
/
FINCALC.ZIP
/
fincalc.dfm
/
fincalc.txt
next >
Wrap
Text File
|
1996-02-11
|
14KB
|
531 lines
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