home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / zkuste / matemat / Vyssi / MATH2.ZIP / exmpl-3 / cpp / frmcfit.dfm / frmcfit.txt
Encoding:
Text File  |  1997-05-27  |  11.2 KB  |  336 lines

  1. object Form1: TForm1
  2.   Left = 297
  3.   Top = 196
  4.   Width = 640
  5.   Height = 481
  6.   Caption = 'Curve fitting using the class TCurveFit'
  7.   Font.Charset = DEFAULT_CHARSET
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Scaled = False
  13.   OnMouseMove = FormMouseMove
  14.   PixelsPerInch = 120
  15.   TextHeight = 16
  16.   object RChart1: TRChart
  17.     Left = 0
  18.     Top = 41
  19.     Width = 527
  20.     Height = 413
  21.     Align = alClient
  22.     AutoRedraw = True
  23.     RRim = 16
  24.     BackGroundImg.IncludePath = False
  25.     BackGroundImg.FillMode = bfStretch
  26.     ClassDefault = 0
  27.     GridStyle = gsDotLines
  28.     GridDx = 1.000000000000000000
  29.     GridDy = 1.000000000000000000
  30.     RangeHiX = 8.000000000000000000
  31.     RangeHiY = 5.000000000000000000
  32.     GridColor = clSilver
  33.     LogScaleX = False
  34.     LogScaleY = False
  35.     MouseAction = maNone
  36.     MouseCursorFixed = False
  37.     ShadowStyle = ssFlying
  38.     ShadowColor = clGray
  39.     ShadowBakColor = clSilver
  40.     ShortTicksX = True
  41.     ShortTicksY = True
  42.     TextFontStyle = []
  43.     TextBkStyle = tbClear
  44.     TextBkColor = clWhite
  45.     XLabelType = ftNum
  46.     YLabelType = ftNum
  47.     DTXFormat.TimeFormat = tfHHMMSS
  48.     DTXFormat.DateSeparator = '-'
  49.     DTXFormat.TimeSeparator = ':'
  50.     DTXFormat.YearLength = ylYYYY
  51.     DTXFormat.MonthName = True
  52.     DTXFormat.DateOrder = doDDMMYY
  53.     DTXFormat.DateForTime = dtOnePerDay
  54.     DTYFormat.TimeFormat = tfHHMMSS
  55.     DTYFormat.DateSeparator = '-'
  56.     DTYFormat.TimeSeparator = ':'
  57.     DTYFormat.YearLength = ylYYYY
  58.     DTYFormat.MonthName = True
  59.     DTYFormat.DateOrder = doDDMMYY
  60.     DTYFormat.DateForTime = dtOnePerDay
  61.     OnMouseDown = RChart1MouseDown
  62.   end
  63.   object Panel1: TPanel
  64.     Left = 0
  65.     Top = 0
  66.     Width = 632
  67.     Height = 41
  68.     Align = alTop
  69.     TabOrder = 0
  70.     object SBNewPnts: TSpeedButton
  71.       Left = 40
  72.       Top = 6
  73.       Width = 29
  74.       Height = 29
  75.       Hint = 'Enter data points'
  76.       AllowAllUp = True
  77.       GroupIndex = 99
  78.       Glyph.Data = {
  79.         72010000424D7201000000000000760000002800000015000000150000000100
  80.         0400000000000000000000000000000000000000000000000000000000000000
  81.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  82.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
  83.         88888888843B8888888888888888888885378888888888888888008889018888
  84.         888888888880000888EE888888888888880E000883EE88888888888880E00088
  85.         80338888888888880E00088881DC888888888880E000888886C4888888888800
  86.         0008888880008888888880000088888880008888888800000888888884508888
  87.         8880E0008888888880208888880E0008888888888201888880E0008888888888
  88.         8920888800000888888888888199888030008888888888888FFF888003088888
  89.         888888888BB8880300888888888888888FF6880088888888888888888D718088
  90.         88888888888888888EEE888888888888888888888011}
  91.       ParentShowHint = False
  92.       ShowHint = True
  93.       OnClick = SBNewPntsClick
  94.     end
  95.     object NLabFitQual: TNumLab
  96.       Left = 480
  97.       Top = 8
  98.       Width = 145
  99.       Height = 22
  100.       Hint = 
  101.         'NumLab: Unregistered ShareWare Component'#10'(c) 1997 H. Lohninger, ' +
  102.         'POB 123, A-1060 Vienna, Austria'#10'http://www.lohninger.com/'
  103.       LeftSpace = 80
  104.       Empty = False
  105.       FrameStyle = fsLowered
  106.       LabelWidth = 60
  107.       ParentShowHint = False
  108.       ShowHint = True
  109.       Precision = 4
  110.       LeftText = 'quality of fit:'
  111.       Alignment = taCenter
  112.       DisplayType = dtFixP
  113.       ColorLabBakG = clSilver
  114.       ColorLabText = clBlack
  115.       ColorOutBakG = clBtnFace
  116.       ColorOutText = clNavy
  117.       ColorScheme = csBWG
  118.       OverflowIndicator = '*********'
  119.     end
  120.     object SBClear: TSpeedButton
  121.       Left = 8
  122.       Top = 6
  123.       Width = 29
  124.       Height = 29
  125.       Hint = 'Clear all data'
  126.       Glyph.Data = {
  127.         2E060000424D2E06000000000000360400002800000015000000150000000100
  128.         0800000000000000000000000000000000000000000000000000000000000000
  129.         80000080000000808000800000008000800080800000C0C0C000688DA200BBCC
  130.         D500000000000000000000000000000000000000000000000000000000000000
  131.         0000000000000000000000000000000000000000000000000000000000000000
  132.         0000000000000000000000000000000000000000000000000000000000000000
  133.         0000000000000000000000000000000000000000000000000000000000000000
  134.         0000000000000000000000000000000000000000000000000000000000000000
  135.         0000000000000000000000000000000000000000000000000000000000000000
  136.         0000000000000000000000000000000000000000000000000000000000000000
  137.         0000000000000000000000000000000000000000000000000000000000000000
  138.         0000000000000000000000000000000000000000000000000000000000000000
  139.         0000000000000000000000000000000000000000000000000000000000000000
  140.         0000000000000000000000000000000000000000000000000000000000000000
  141.         0000000000000000000000000000000000000000000000000000000000000000
  142.         0000000000000000000000000000000000000000000000000000000000000000
  143.         0000000000000000000000000000000000000000000000000000000000000000
  144.         0000000000000000000000000000000000000000000000000000000000000000
  145.         0000000000000000000000000000000000000000000000000000000000000000
  146.         0000000000000000000000000000000000000000000000000000000000000000
  147.         0000000000000000000000000000000000000000000000000000000000000000
  148.         0000000000000000000000000000000000000000000000000000000000000000
  149.         0000000000000000000000000000000000000000000000000000000000000000
  150.         0000000000000000000000000000000000000000000000000000000000000000
  151.         0000000000000000000000000000000000000000000000000000000000000000
  152.         0000000000000000000000000000000000000000000000000000000000000000
  153.         0000000000000000000000000000000000000000000000000000000000000000
  154.         0000000000000000000000000000000000000000000000000000000000000000
  155.         0000000000000000000000000000000000000000000000000000000000000000
  156.         0000000000000000000000000000000000000000000000000000000000000000
  157.         0000000000000000000000000000000000000000000000000000000000000000
  158.         0000000000000000000000000000000000000000000000000000000000000000
  159.         000000000000000000000000000000000000DDE6EA00A4A0A000808080000000
  160.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707
  161.         07070707070707070707070707070762656E0707070707070707070707070707
  162.         0707070707070761726207070707070707070707070707070707070707070742
  163.         6974070707F907070707070707070707070707F907070707070707070707F907
  164.         07070707070707070707F9F9F907070000000707070707F90707070707070707
  165.         07F9F9F9F907074804000707070707F9F907070707070707F9F9F9F907070700
  166.         0000070707070707F9F90707070707F9F9F90707070707000000070707070707
  167.         07F9F9070707F9F9F9070707070707F9F9F90707070707070707F9F907F9F907
  168.         07070707070707000000070707070707070707F9F9F907070707070707070700
  169.         00000707070707070707F9F9F9F9F90707070707070707000000070707070707
  170.         F9F9F90707F9F9F9070707070707070000000707070707F9F90707070707F9F9
  171.         F907070707070700000007070707F9F907070707070707F9F9F9F90707070700
  172.         0000070707F907070707070707070707F9F9F9F9F90707000000070707070707
  173.         070707070707070707F9F9F90707070000000707070707070707070707070707
  174.         0707070707070700000007070707070707070707070707070707070707070700
  175.         0000070707070707070707070707070707070707070707000000070707070707
  176.         070707070707070707070707070707736B35}
  177.       ParentShowHint = False
  178.       ShowHint = True
  179.       OnClick = SBClearClick
  180.     end
  181.     object LblFormula: TLabel
  182.       Left = 96
  183.       Top = 3
  184.       Width = 353
  185.       Height = 17
  186.       AutoSize = False
  187.       Caption = 'y = kx + d'
  188.       Font.Charset = DEFAULT_CHARSET
  189.       Font.Color = clNavy
  190.       Font.Height = -13
  191.       Font.Name = 'Arial'
  192.       Font.Style = []
  193.       ParentFont = False
  194.       Visible = False
  195.     end
  196.     object LblParams: TLabel
  197.       Left = 96
  198.       Top = 22
  199.       Width = 361
  200.       Height = 16
  201.       AutoSize = False
  202.       Caption = '<---- click here to enter data'
  203.       Font.Charset = DEFAULT_CHARSET
  204.       Font.Color = clNavy
  205.       Font.Height = -13
  206.       Font.Name = 'Arial'
  207.       Font.Style = []
  208.       ParentFont = False
  209.     end
  210.   end
  211.   object Panel2: TPanel
  212.     Left = 527
  213.     Top = 41
  214.     Width = 105
  215.     Height = 413
  216.     Align = alRight
  217.     TabOrder = 1
  218.     object Label1: TLabel
  219.       Left = 8
  220.       Top = 284
  221.       Width = 88
  222.       Height = 16
  223.       Caption = 'corr. coefficient'
  224.       Font.Charset = DEFAULT_CHARSET
  225.       Font.Color = clNavy
  226.       Font.Height = -13
  227.       Font.Name = 'Arial'
  228.       Font.Style = []
  229.       ParentFont = False
  230.     end
  231.     object NLabRXY: TNumLab
  232.       Left = 7
  233.       Top = 304
  234.       Width = 90
  235.       Height = 22
  236.       Hint = 
  237.         'NumLab: Unregistered ShareWare Component'#10'(c) 1997 H. Lohninger, ' +
  238.         'POB 123, A-1060 Vienna, Austria'#10'http://www.lohninger.com/'
  239.       LeftSpace = 0
  240.       Empty = False
  241.       FrameStyle = fsLowered
  242.       LabelWidth = 86
  243.       ParentShowHint = False
  244.       ShowHint = True
  245.       Precision = 4
  246.       LeftText = 'X:'
  247.       Alignment = taCenter
  248.       DisplayType = dtFixP
  249.       ColorLabBakG = clSilver
  250.       ColorLabText = clBlack
  251.       ColorOutBakG = clBtnFace
  252.       ColorOutText = clBlack
  253.       ColorScheme = csBWG
  254.       OverflowIndicator = '*********'
  255.     end
  256.     object BButParabolFit: TBitBtn
  257.       Left = 8
  258.       Top = 52
  259.       Width = 89
  260.       Height = 33
  261.       Caption = 'Parabolic'
  262.       TabOrder = 0
  263.       OnClick = BButParabolFitClick
  264.     end
  265.     object BButCalcReciprLine: TBitBtn
  266.       Left = 8
  267.       Top = 92
  268.       Width = 89
  269.       Height = 33
  270.       Caption = 'Reciprocal'
  271.       ModalResult = 3
  272.       TabOrder = 1
  273.       OnClick = BButCalcReciprLineClick
  274.       NumGlyphs = 2
  275.     end
  276.     object BButHyper: TBitBtn
  277.       Left = 8
  278.       Top = 132
  279.       Width = 89
  280.       Height = 33
  281.       Caption = 'Hyperbolic'
  282.       TabOrder = 2
  283.       OnClick = BButHyperClick
  284.     end
  285.     object BButLogFit: TBitBtn
  286.       Left = 8
  287.       Top = 172
  288.       Width = 89
  289.       Height = 33
  290.       Caption = 'Logarithmic'
  291.       TabOrder = 3
  292.       OnClick = BButLogFitClick
  293.     end
  294.     object BButGaussFit: TBitBtn
  295.       Left = 8
  296.       Top = 212
  297.       Width = 89
  298.       Height = 33
  299.       Caption = 'Gaussian'
  300.       TabOrder = 4
  301.       OnClick = BButGaussFitClick
  302.     end
  303.     object BButLinFit: TBitBtn
  304.       Left = 8
  305.       Top = 12
  306.       Width = 89
  307.       Height = 33
  308.       Caption = 'Linear'
  309.       TabOrder = 5
  310.       OnClick = BButLinFitClick
  311.     end
  312.     object BButExit: TBitBtn
  313.       Left = 8
  314.       Top = 372
  315.       Width = 89
  316.       Height = 33
  317.       Caption = 'Exit'
  318.       TabOrder = 6
  319.       OnClick = BButExitClick
  320.       Glyph.Data = {
  321.         72010000424D7201000000000000760000002800000015000000150000000100
  322.         0400000000000000000000000000000000000000000000000000000000000000
  323.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  324.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
  325.         888888888880880000000000000008888880880EEEEEEEEEEE00088888808806
  326.         66666666E0008888888088066666666E000888888880880666666666E0888888
  327.         88808806666666666E088888888088066666666666E088888880880666666666
  328.         666E088880008806666666666666E088800088066446666666666E0882018806
  329.         40446666666666E0888088040004466666666600030988000080446666666000
  330.         8888880008880446666600088988880088888044666000888910888888888804
  331.         4600088885F08888888888804000888885F08888888888880008888885F08888
  332.         888888888088888885F08888888888888888888885F0}
  333.     end
  334.   end
  335. end
  336.