93e37e8e76
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6140 8e941d3f-bd1b-0410-a28a-d453659cc2b4
517 lines
10 KiB
Plaintext
517 lines
10 KiB
Plaintext
object FinCalForm: TFinCalForm
|
|
Left = 197
|
|
Height = 674
|
|
Top = 59
|
|
Width = 754
|
|
VertScrollBar.Range = 1000
|
|
VertScrollBar.Visible = False
|
|
Caption = 'Financial Calculator'
|
|
ClientHeight = 674
|
|
ClientWidth = 754
|
|
Color = clBtnFace
|
|
Font.Color = clNavy
|
|
OnCreate = FormCreate
|
|
Position = poScreenCenter
|
|
LCLVersion = '1.9.0.0'
|
|
Visible = True
|
|
object Functions: TRadioGroup
|
|
Left = 8
|
|
Height = 265
|
|
Top = 8
|
|
Width = 553
|
|
AutoFill = True
|
|
Caption = 'Functions'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 3
|
|
ClientHeight = 245
|
|
ClientWidth = 549
|
|
Columns = 3
|
|
Items.Strings = (
|
|
'AccruedInterestMaturity'
|
|
'AccruedInterestPeriodic'
|
|
'BondDuration'
|
|
'BondPrice'
|
|
'CumulativeInterest'
|
|
'CumulativePrincipal'
|
|
'DecliningBalance'
|
|
'DiscountRate'
|
|
'DollarToDecimal'
|
|
'DollarToDecimalText'
|
|
'DollarToFraction'
|
|
'DollarToFractionStr'
|
|
'EffectiveInterestRate'
|
|
'FutureValue'
|
|
'FutureValueSchedule'
|
|
'InterestRate'
|
|
'InternalRateOfReturn'
|
|
'IsCardValid'
|
|
'ModifiedDuration'
|
|
'ModifiedIRR'
|
|
'NetPresentValue'
|
|
'NominalInterestRate'
|
|
'NonPeriodicIRR'
|
|
'NonPeriodicNPV'
|
|
'Payment'
|
|
'PresentValue'
|
|
'ReceivedAtMaturity'
|
|
'RoundToDecimal'
|
|
'TBillEquivYield'
|
|
'TBillPrice'
|
|
'TBillYield'
|
|
'VariableDecliningBalance'
|
|
'YieldPeriodic'
|
|
'YieldDiscounted'
|
|
'YieldMaturity'
|
|
)
|
|
OnClick = FunctionsClick
|
|
TabOrder = 0
|
|
TabStop = True
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 8
|
|
Height = 272
|
|
Top = 280
|
|
Width = 553
|
|
Caption = 'Arguments'
|
|
ClientHeight = 252
|
|
ClientWidth = 549
|
|
TabOrder = 1
|
|
object Label2: TLabel
|
|
Left = 29
|
|
Height = 15
|
|
Top = 48
|
|
Width = 6
|
|
Caption = '1'
|
|
ParentColor = False
|
|
end
|
|
object Label4: TLabel
|
|
Left = 29
|
|
Height = 15
|
|
Top = 80
|
|
Width = 6
|
|
Caption = '2'
|
|
ParentColor = False
|
|
end
|
|
object Label5: TLabel
|
|
Left = 29
|
|
Height = 15
|
|
Top = 112
|
|
Width = 6
|
|
Caption = '3'
|
|
ParentColor = False
|
|
end
|
|
object Label6: TLabel
|
|
Left = 29
|
|
Height = 15
|
|
Top = 144
|
|
Width = 6
|
|
Caption = '4'
|
|
ParentColor = False
|
|
end
|
|
object Label7: TLabel
|
|
Left = 21
|
|
Height = 15
|
|
Top = 216
|
|
Width = 31
|
|
Caption = 'String'
|
|
ParentColor = False
|
|
end
|
|
object Label3: TLabel
|
|
Left = 342
|
|
Height = 15
|
|
Top = 24
|
|
Width = 24
|
|
Caption = 'Date'
|
|
ParentColor = False
|
|
end
|
|
object Label1: TLabel
|
|
Left = 237
|
|
Height = 15
|
|
Top = 24
|
|
Width = 37
|
|
Caption = 'Integer'
|
|
ParentColor = False
|
|
end
|
|
object Label20: TLabel
|
|
Left = 109
|
|
Height = 15
|
|
Top = 24
|
|
Width = 48
|
|
Caption = 'Extended'
|
|
ParentColor = False
|
|
end
|
|
object Label10: TLabel
|
|
Left = 438
|
|
Height = 15
|
|
Top = 24
|
|
Width = 75
|
|
Caption = 'Miscellaneous'
|
|
ParentColor = False
|
|
end
|
|
object Label13: TLabel
|
|
Left = 29
|
|
Height = 15
|
|
Top = 176
|
|
Width = 6
|
|
Caption = '5'
|
|
ParentColor = False
|
|
end
|
|
object StrEdit: TEdit
|
|
Left = 69
|
|
Height = 23
|
|
Top = 216
|
|
Width = 468
|
|
Enabled = False
|
|
MaxLength = 80
|
|
OnExit = StrEditExit
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 19
|
|
end
|
|
object E1Edit: TEdit
|
|
Tag = 1
|
|
Left = 69
|
|
Height = 23
|
|
Top = 48
|
|
Width = 130
|
|
Enabled = False
|
|
OnExit = ExtEditExit
|
|
TabOrder = 0
|
|
end
|
|
object E2Edit: TEdit
|
|
Tag = 2
|
|
Left = 69
|
|
Height = 23
|
|
Top = 80
|
|
Width = 130
|
|
Enabled = False
|
|
OnExit = ExtEditExit
|
|
TabOrder = 1
|
|
end
|
|
object E3Edit: TEdit
|
|
Tag = 3
|
|
Left = 69
|
|
Height = 23
|
|
Top = 112
|
|
Width = 130
|
|
Enabled = False
|
|
OnExit = ExtEditExit
|
|
TabOrder = 2
|
|
end
|
|
object E4Edit: TEdit
|
|
Tag = 4
|
|
Left = 69
|
|
Height = 23
|
|
Top = 144
|
|
Width = 130
|
|
Color = clWhite
|
|
Enabled = False
|
|
OnExit = ExtEditExit
|
|
TabOrder = 3
|
|
end
|
|
object I1Edit: TEdit
|
|
Tag = 1
|
|
Left = 221
|
|
Height = 23
|
|
Top = 48
|
|
Width = 73
|
|
Enabled = False
|
|
OnExit = IntEditExit
|
|
TabOrder = 5
|
|
end
|
|
object I2Edit: TEdit
|
|
Tag = 2
|
|
Left = 221
|
|
Height = 23
|
|
Top = 80
|
|
Width = 73
|
|
Enabled = False
|
|
OnExit = IntEditExit
|
|
TabOrder = 6
|
|
end
|
|
object I3Edit: TEdit
|
|
Tag = 3
|
|
Left = 221
|
|
Height = 23
|
|
Top = 112
|
|
Width = 73
|
|
Enabled = False
|
|
OnExit = IntEditExit
|
|
TabOrder = 7
|
|
end
|
|
object I4Edit: TEdit
|
|
Tag = 4
|
|
Left = 221
|
|
Height = 23
|
|
Top = 144
|
|
Width = 73
|
|
Enabled = False
|
|
OnExit = IntEditExit
|
|
TabOrder = 8
|
|
end
|
|
object D1Edit: TEdit
|
|
Tag = 1
|
|
Left = 317
|
|
Height = 23
|
|
Top = 48
|
|
Width = 73
|
|
Color = clWhite
|
|
Enabled = False
|
|
OnExit = DateEditExit
|
|
TabOrder = 10
|
|
end
|
|
object D2Edit: TEdit
|
|
Tag = 2
|
|
Left = 317
|
|
Height = 23
|
|
Top = 80
|
|
Width = 73
|
|
Color = clWhite
|
|
Enabled = False
|
|
OnExit = DateEditExit
|
|
TabOrder = 11
|
|
end
|
|
object D3Edit: TEdit
|
|
Tag = 3
|
|
Left = 317
|
|
Height = 23
|
|
Top = 112
|
|
Width = 73
|
|
Color = clWhite
|
|
Enabled = False
|
|
OnExit = DateEditExit
|
|
TabOrder = 12
|
|
end
|
|
object D4Edit: TEdit
|
|
Tag = 4
|
|
Left = 317
|
|
Height = 23
|
|
Top = 144
|
|
Width = 73
|
|
Color = clWhite
|
|
Enabled = False
|
|
OnExit = DateEditExit
|
|
TabOrder = 13
|
|
end
|
|
object FreqEdit: TComboBox
|
|
Left = 416
|
|
Height = 23
|
|
Top = 48
|
|
Width = 121
|
|
DropDownCount = 4
|
|
ItemHeight = 15
|
|
Items.Strings = (
|
|
'Annual'
|
|
'SemiAnnual'
|
|
'Quarterly'
|
|
'Monthly'
|
|
)
|
|
OnExit = FreqEditExit
|
|
Style = csDropDownList
|
|
TabOrder = 15
|
|
end
|
|
object BasEdit: TComboBox
|
|
Left = 416
|
|
Height = 23
|
|
Top = 80
|
|
Width = 121
|
|
DropDownCount = 6
|
|
ItemHeight = 15
|
|
Items.Strings = (
|
|
'30/360 NASD'
|
|
'ACT/ACT'
|
|
'ACT/360'
|
|
'ACT/365'
|
|
'30/360 EUR'
|
|
'30/360 PSA'
|
|
)
|
|
OnExit = BasEditExit
|
|
Style = csDropDownList
|
|
TabOrder = 16
|
|
end
|
|
object TimEdit: TComboBox
|
|
Left = 416
|
|
Height = 23
|
|
Top = 112
|
|
Width = 121
|
|
DropDownCount = 2
|
|
ItemHeight = 15
|
|
Items.Strings = (
|
|
'End of Period'
|
|
'Start of Period'
|
|
)
|
|
OnExit = TimEditExit
|
|
Style = csDropDownList
|
|
TabOrder = 17
|
|
end
|
|
object E5Edit: TEdit
|
|
Tag = 5
|
|
Left = 69
|
|
Height = 23
|
|
Top = 176
|
|
Width = 130
|
|
Color = clWhite
|
|
Enabled = False
|
|
OnExit = ExtEditExit
|
|
TabOrder = 4
|
|
end
|
|
object I5Edit: TEdit
|
|
Tag = 5
|
|
Left = 221
|
|
Height = 23
|
|
Top = 176
|
|
Width = 73
|
|
Enabled = False
|
|
OnExit = IntEditExit
|
|
TabOrder = 9
|
|
end
|
|
object D5Edit: TEdit
|
|
Tag = 5
|
|
Left = 317
|
|
Height = 23
|
|
Top = 176
|
|
Width = 73
|
|
Color = clWhite
|
|
Enabled = False
|
|
OnExit = DateEditExit
|
|
TabOrder = 14
|
|
end
|
|
object BoolEdit: TCheckBox
|
|
Left = 424
|
|
Height = 19
|
|
Top = 152
|
|
Width = 75
|
|
Caption = 'True/False'
|
|
OnExit = BoolEditExit
|
|
TabOrder = 18
|
|
end
|
|
end
|
|
object Arrays: TGroupBox
|
|
Left = 568
|
|
Height = 536
|
|
Top = 8
|
|
Width = 177
|
|
Caption = 'Arrays'
|
|
ClientHeight = 516
|
|
ClientWidth = 173
|
|
TabOrder = 2
|
|
object Label8: TLabel
|
|
Left = 68
|
|
Height = 15
|
|
Top = 264
|
|
Width = 33
|
|
Caption = 'Values'
|
|
ParentColor = False
|
|
end
|
|
object Label9: TLabel
|
|
Left = 68
|
|
Height = 15
|
|
Top = 24
|
|
Width = 29
|
|
Caption = 'Dates'
|
|
ParentColor = False
|
|
end
|
|
object VAEdit: TStringGrid
|
|
Tag = 50
|
|
Left = 32
|
|
Height = 215
|
|
Top = 288
|
|
Width = 121
|
|
Color = clWhite
|
|
ColCount = 1
|
|
DefaultColWidth = 118
|
|
DefaultRowHeight = 20
|
|
FixedCols = 0
|
|
FixedRows = 0
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goAlwaysShowEditor]
|
|
RowCount = 30
|
|
ScrollBars = ssVertical
|
|
TabOrder = 1
|
|
TitleFont.Color = clNavy
|
|
TitleFont.Height = -13
|
|
TitleFont.Name = 'Arial'
|
|
OnEnter = VAEditEnter
|
|
OnExit = VAEditExit
|
|
end
|
|
object DAEdit: TStringGrid
|
|
Left = 32
|
|
Height = 182
|
|
Top = 48
|
|
Width = 121
|
|
Color = clWhite
|
|
ColCount = 1
|
|
DefaultColWidth = 118
|
|
DefaultRowHeight = 20
|
|
FixedCols = 0
|
|
FixedRows = 0
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goAlwaysShowEditor]
|
|
RowCount = 30
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
TitleFont.Color = clNavy
|
|
TitleFont.Height = -13
|
|
TitleFont.Name = 'Arial'
|
|
OnEnter = DAEditEnter
|
|
OnExit = DAEditExit
|
|
end
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 8
|
|
Height = 105
|
|
Top = 560
|
|
Width = 737
|
|
BevelInner = bvRaised
|
|
BevelOuter = bvLowered
|
|
ClientHeight = 105
|
|
ClientWidth = 737
|
|
TabOrder = 3
|
|
object GoBtn: TButton
|
|
Left = 248
|
|
Height = 33
|
|
Top = 60
|
|
Width = 241
|
|
Caption = 'Evaluate'
|
|
Default = True
|
|
OnClick = GoBtnClick
|
|
TabOrder = 2
|
|
end
|
|
object SResult: TEdit
|
|
Left = 184
|
|
Height = 23
|
|
Top = 25
|
|
Width = 529
|
|
Color = clAqua
|
|
ReadOnly = True
|
|
TabStop = False
|
|
TabOrder = 1
|
|
end
|
|
object BitBtn1: TBitBtn
|
|
Left = 632
|
|
Height = 33
|
|
Top = 60
|
|
Width = 81
|
|
Cancel = True
|
|
Caption = 'Close'
|
|
NumGlyphs = 2
|
|
OnClick = BitBtn1Click
|
|
TabOrder = 3
|
|
TabStop = False
|
|
end
|
|
object FResult: TEdit
|
|
Left = 24
|
|
Height = 23
|
|
Top = 24
|
|
Width = 137
|
|
Color = clAqua
|
|
ReadOnly = True
|
|
TabStop = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|