home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / zkuste / matemat / Vyssi / MATH2.ZIP / exmpl-3 / pas / FRMCFIT.dfm / FRMCFIT.txt
Encoding:
Text File  |  1997-05-27  |  10.7 KB  |  324 lines
  1. object FrmMain: TFrmMain
  2.   Left = 209
  3.   Top = 188
  4.   Width = 640
  5.   Height = 480
  6.   Caption = 'Curve fitting'
  7.   Font.Color = clBlack
  8.   Font.Height = -13
  9.   Font.Name = 'Arial'
  10.   Font.Style = []
  11.   OnCreate = FormCreate
  12.   OnMouseMove = FormMouseMove
  13.   PixelsPerInch = 120
  14.   TextHeight = 16
  15.   object RChart1: TRChart
  16.     Left = 0
  17.     Top = 41
  18.     Width = 527
  19.     Height = 412
  20.     Align = alClient
  21.     AutoRedraw = True
  22.     RRim = 16
  23.     BackGroundImg.IncludePath = False
  24.     BackGroundImg.FillMode = bfStretch
  25.     ClassDefault = 0
  26.     GridStyle = gsDotLines
  27.     GridDx = 1.000000000000000000
  28.     GridDy = 1.000000000000000000
  29.     RangeHiX = 8.000000000000000000
  30.     RangeHiY = 5.000000000000000000
  31.     GridColor = clSilver
  32.     LogScaleX = False
  33.     LogScaleY = False
  34.     MouseAction = maNone
  35.     MouseCursorFixed = False
  36.     ShadowStyle = ssFlying
  37.     ShadowColor = clGray
  38.     ShadowBakColor = clSilver
  39.     ShortTicksX = True
  40.     ShortTicksY = True
  41.     TextFontStyle = []
  42.     TextBkStyle = tbClear
  43.     TextBkColor = clWhite
  44.     XLabelType = ftNum
  45.     YLabelType = ftNum
  46.     DTXFormat.TimeFormat = tfHHMMSS
  47.     DTXFormat.DateSeparator = '-'
  48.     DTXFormat.TimeSeparator = ':'
  49.     DTXFormat.YearLength = ylYYYY
  50.     DTXFormat.MonthName = True
  51.     DTXFormat.DateOrder = doDDMMYY
  52.     DTXFormat.DateForTime = dtOnePerDay
  53.     DTYFormat.TimeFormat = tfHHMMSS
  54.     DTYFormat.DateSeparator = '-'
  55.     DTYFormat.TimeSeparator = ':'
  56.     DTYFormat.YearLength = ylYYYY
  57.     DTYFormat.MonthName = True
  58.     DTYFormat.DateOrder = doDDMMYY
  59.     DTYFormat.DateForTime = dtOnePerDay
  60.     OnMouseDown = RChart1MouseDown
  61.   end
  62.   object Panel1: TPanel
  63.     Left = 0
  64.     Top = 0
  65.     Width = 632
  66.     Height = 41
  67.     Align = alTop
  68.     TabOrder = 0
  69.     OnMouseMove = FormMouseMove
  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.       LeftSpace = 80
  101.       Empty = False
  102.       FrameStyle = fsLowered
  103.       LabelWidth = 60
  104.       Precision = 3
  105.       LeftText = 'quality of fit:'
  106.       Alignment = taCenter
  107.       DisplayType = dtFixP
  108.       ColorLabBakG = clSilver
  109.       ColorLabText = clBlack
  110.       ColorOutBakG = clBtnFace
  111.       ColorOutText = clNavy
  112.       ColorScheme = csBWG
  113.       OverflowIndicator = '*********'
  114.     end
  115.     object SBClear: TSpeedButton
  116.       Left = 8
  117.       Top = 6
  118.       Width = 29
  119.       Height = 29
  120.       Hint = 'Clear all data'
  121.       Glyph.Data = {
  122.         2E060000424D2E06000000000000360400002800000015000000150000000100
  123.         0800000000000000000000000000000000000000000000000000000000000000
  124.         80000080000000808000800000008000800080800000C0C0C000688DA200BBCC
  125.         D500000000000000000000000000000000000000000000000000000000000000
  126.         0000000000000000000000000000000000000000000000000000000000000000
  127.         0000000000000000000000000000000000000000000000000000000000000000
  128.         0000000000000000000000000000000000000000000000000000000000000000
  129.         0000000000000000000000000000000000000000000000000000000000000000
  130.         0000000000000000000000000000000000000000000000000000000000000000
  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.         000000000000000000000000000000000000DDE6EA00A4A0A000808080000000
  155.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707
  156.         07070707070707070707070707070762656E0707070707070707070707070707
  157.         0707070707070761726207070707070707070707070707070707070707070742
  158.         6974070707F907070707070707070707070707F907070707070707070707F907
  159.         07070707070707070707F9F9F907070000000707070707F90707070707070707
  160.         07F9F9F9F907074804000707070707F9F907070707070707F9F9F9F907070700
  161.         0000070707070707F9F90707070707F9F9F90707070707000000070707070707
  162.         07F9F9070707F9F9F9070707070707F9F9F90707070707070707F9F907F9F907
  163.         07070707070707000000070707070707070707F9F9F907070707070707070700
  164.         00000707070707070707F9F9F9F9F90707070707070707000000070707070707
  165.         F9F9F90707F9F9F9070707070707070000000707070707F9F90707070707F9F9
  166.         F907070707070700000007070707F9F907070707070707F9F9F9F90707070700
  167.         0000070707F907070707070707070707F9F9F9F9F90707000000070707070707
  168.         070707070707070707F9F9F90707070000000707070707070707070707070707
  169.         0707070707070700000007070707070707070707070707070707070707070700
  170.         0000070707070707070707070707070707070707070707000000070707070707
  171.         070707070707070707070707070707736B35}
  172.       ParentShowHint = False
  173.       ShowHint = True
  174.       OnClick = SBClearClick
  175.     end
  176.     object LblFormula: TLabel
  177.       Left = 96
  178.       Top = 3
  179.       Width = 353
  180.       Height = 17
  181.       AutoSize = False
  182.       Caption = 'y = kx + d'
  183.       Font.Color = clNavy
  184.       Font.Height = -13
  185.       Font.Name = 'Arial'
  186.       Font.Style = []
  187.       ParentFont = False
  188.       Visible = False
  189.     end
  190.     object LblParams: TLabel
  191.       Left = 96
  192.       Top = 22
  193.       Width = 361
  194.       Height = 16
  195.       AutoSize = False
  196.       Caption = '<---- click here to enter data'
  197.       Font.Color = clNavy
  198.       Font.Height = -13
  199.       Font.Name = 'Arial'
  200.       Font.Style = []
  201.       ParentFont = False
  202.     end
  203.   end
  204.   object Panel2: TPanel
  205.     Left = 527
  206.     Top = 41
  207.     Width = 105
  208.     Height = 412
  209.     Align = alRight
  210.     TabOrder = 1
  211.     OnMouseMove = FormMouseMove
  212.     object Label1: TLabel
  213.       Left = 8
  214.       Top = 284
  215.       Width = 88
  216.       Height = 16
  217.       Caption = 'corr. coefficient'
  218.       Font.Color = clNavy
  219.       Font.Height = -13
  220.       Font.Name = 'Arial'
  221.       Font.Style = []
  222.       ParentFont = False
  223.     end
  224.     object NLabRXY: TNumLab
  225.       Left = 7
  226.       Top = 304
  227.       Width = 90
  228.       Height = 22
  229.       LeftSpace = 0
  230.       Empty = False
  231.       FrameStyle = fsLowered
  232.       LabelWidth = 86
  233.       Precision = 3
  234.       LeftText = 'X:'
  235.       Alignment = taCenter
  236.       DisplayType = dtFixP
  237.       ColorLabBakG = clSilver
  238.       ColorLabText = clBlack
  239.       ColorOutBakG = clBtnFace
  240.       ColorOutText = clBlack
  241.       ColorScheme = csBWG
  242.       OverflowIndicator = '*********'
  243.     end
  244.     object BButParabolFit: TBitBtn
  245.       Left = 8
  246.       Top = 52
  247.       Width = 89
  248.       Height = 33
  249.       Caption = 'Parabolic'
  250.       TabOrder = 0
  251.       OnClick = BButParabolFitClick
  252.     end
  253.     object BButCalcReciprLine: TBitBtn
  254.       Left = 8
  255.       Top = 92
  256.       Width = 89
  257.       Height = 33
  258.       Caption = 'Reciprocal'
  259.       ModalResult = 3
  260.       TabOrder = 1
  261.       OnClick = BButCalcReciprLineClick
  262.       NumGlyphs = 2
  263.     end
  264.     object BButHyper: TBitBtn
  265.       Left = 8
  266.       Top = 132
  267.       Width = 89
  268.       Height = 33
  269.       Caption = 'Hyperbolic'
  270.       TabOrder = 2
  271.       OnClick = BButHyperClick
  272.     end
  273.     object BButLogFit: TBitBtn
  274.       Left = 8
  275.       Top = 172
  276.       Width = 89
  277.       Height = 33
  278.       Caption = 'Logarithmic'
  279.       TabOrder = 3
  280.       OnClick = BButLogFitClick
  281.     end
  282.     object BButGaussFit: TBitBtn
  283.       Left = 8
  284.       Top = 212
  285.       Width = 89
  286.       Height = 33
  287.       Caption = 'Gaussian'
  288.       TabOrder = 4
  289.       OnClick = BButGaussFitClick
  290.     end
  291.     object BButLinFit: TBitBtn
  292.       Left = 8
  293.       Top = 12
  294.       Width = 89
  295.       Height = 33
  296.       Caption = 'Linear'
  297.       TabOrder = 5
  298.       OnClick = BButLinFitClick
  299.     end
  300.     object BButExit: TBitBtn
  301.       Left = 8
  302.       Top = 372
  303.       Width = 89
  304.       Height = 33
  305.       Caption = 'Exit'
  306.       TabOrder = 6
  307.       OnClick = BButExitClick
  308.       Glyph.Data = {
  309.         72010000424D7201000000000000760000002800000015000000150000000100
  310.         0400000000000000000000000000000000000000000000000000000000000000
  311.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  312.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
  313.         888888888880880000000000000008888880880EEEEEEEEEEE00088888808806
  314.         66666666E0008888888088066666666E000888888880880666666666E0888888
  315.         88808806666666666E088888888088066666666666E088888880880666666666
  316.         666E088880008806666666666666E088800088066446666666666E0882018806
  317.         40446666666666E0888088040004466666666600030988000080446666666000
  318.         8888880008880446666600088988880088888044666000888910888888888804
  319.         4600088885F08888888888804000888885F08888888888880008888885F08888
  320.         888888888088888885F08888888888888888888885F0}
  321.     end
  322.   end
  323. end
  324.