home *** CD-ROM | disk | FTP | other *** search
- object FunctionsForm: TFunctionsForm
- Left = 159
- Top = 273
- Width = 422
- Height = 353
- HelpContext = 4000
- HorzScrollBar.Range = 428
- HorzScrollBar.Visible = False
- VertScrollBar.Range = 313
- VertScrollBar.Visible = False
- ActiveControl = HelpBitBtn
- AutoScroll = False
- Caption = 'Create New Function'
- Font.Color = clWindowText
- Font.Height = 26
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- PixelsPerInch = 120
- Scaled = False
- ShowHint = True
- OnCreate = FormCreate
- TextHeight = 25
- object SeriesLabel: TLabel
- Left = 8
- Top = 10
- Width = 65
- Height = 16
- Caption = 'SeriesN := '
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object FunctionHintLabel: TLabel
- Left = 10
- Top = 242
- Width = 107
- Height = 16
- Caption = 'FunctionHintLabel'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object HelpBitBtn: TBitBtn
- Left = 8
- Top = 267
- Width = 121
- Height = 31
- HelpContext = 1860
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- Kind = bkHelp
- end
- object CancelBitBtn: TBitBtn
- Left = 138
- Top = 267
- Width = 121
- Height = 31
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- Kind = bkCancel
- end
- object OKBitBtn: TBitBtn
- Left = 268
- Top = 267
- Width = 121
- Height = 31
- Enabled = False
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- Kind = bkOK
- end
- object FunctionMemo: TMemo
- Left = 8
- Top = 31
- Width = 381
- Height = 164
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- end
- object FunctionComboBox: TComboBox
- Left = 138
- Top = 203
- Width = 121
- Height = 24
- Style = csDropDownList
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ItemHeight = 16
- Items.Strings = (
- 'PI'
- 'COS'
- 'SIN'
- 'SINH'
- 'COSH'
- 'TAN'
- 'COTAN'
- 'ARCTAN'
- 'ARG'
- 'EXP'
- 'LN'
- 'LOG10'
- 'LOG2'
- 'LOGN'
- 'SQRT'
- 'SQR'
- 'POWER'
- 'INTPOWER'
- 'MIN'
- 'MAX'
- 'ABS'
- 'TRUNC'
- 'INT'
- 'CEIL'
- 'FLOOR'
- 'HEAV (=1 for x=>0, 0 for x<0),'
- 'SIGN (= 1 for x>1, 0 for x=0, -1 for x<0),'
- 'ZERO (= 0 for x=0, 1 for x<>0),'
- 'PH (= x - 2*pi*round(x/2/pi))'
- 'RND (= int(x) * Random)'
- 'RANDOM')
- ParentFont = False
- TabOrder = 4
- OnClick = FunctionComboBoxClick
- end
- object InsertBitBtn: TBitBtn
- Left = 8
- Top = 203
- Width = 121
- Height = 32
- Caption = '&Insert:'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- OnClick = InsertBitBtnClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333333FF33333333FF333993333333300033377F3333333777333993333333
- 300033F77FFF3333377739999993333333333777777F3333333F399999933333
- 33003777777333333377333993333333330033377F3333333377333993333333
- 3333333773333333333F333333333333330033333333F33333773333333C3333
- 330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
- 993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
- 333333333337733333FF3333333C333330003333333733333777333333333333
- 3000333333333333377733333333333333333333333333333333}
- NumGlyphs = 2
- end
- object TestBitBtn: TBitBtn
- Left = 268
- Top = 203
- Width = 121
- Height = 32
- Caption = '&Test'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 6
- OnClick = TestBitBtnClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00370777033333
- 3330337F3F7F33333F3787070003333707303F737773333373F7007703333330
- 700077337F3333373777887007333337007733F773F333337733700070333333
- 077037773733333F7F37703707333300080737F373333377737F003333333307
- 78087733FFF3337FFF7F33300033330008073F3777F33F777F73073070370733
- 078073F7F7FF73F37FF7700070007037007837773777F73377FF007777700730
- 70007733FFF77F37377707700077033707307F37773F7FFF7337080777070003
- 3330737F3F7F777F333778080707770333333F7F737F3F7F3333080787070003
- 33337F73FF737773333307800077033333337337773373333333}
- NumGlyphs = 2
- end
- end
-