object Form1: TForm1 Left = 328 Top = 187 Width = 633 Height = 515 Caption = 'Form1' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 16 object RChart1: TRChart Left = 0 Top = 41 Width = 625 Height = 447 Align = alClient AutoRedraw = True RRim = 16 BackGroundImg.IncludePath = False BackGroundImg.FillMode = bfStretch ClassDefault = 0 GridStyle = gsNone GridDx = 1.000000000000000000 GridDy = 1.000000000000000000 RangeHiX = 100.000000000000000000 RangeHiY = 80.000000000000000000 LogScaleX = False LogScaleY = False MouseAction = maNone MouseCursorFixed = False ShadowStyle = ssFlying ShadowColor = clGray ShadowBakColor = clSilver ShortTicksX = True ShortTicksY = True TextFontStyle = [] TextBkStyle = tbClear TextBkColor = clWhite XLabelType = ftNum YLabelType = ftNum DTXFormat.TimeFormat = tfHHMMSS DTXFormat.DateSeparator = '-' DTXFormat.TimeSeparator = ':' DTXFormat.YearLength = ylYYYY DTXFormat.MonthName = True DTXFormat.DateOrder = doDDMMYY DTXFormat.DateForTime = dtOnePerDay DTYFormat.TimeFormat = tfHHMMSS DTYFormat.DateSeparator = '-' DTYFormat.TimeSeparator = ':' DTYFormat.YearLength = ylYYYY DTYFormat.MonthName = True DTYFormat.DateOrder = doDDMMYY DTYFormat.DateForTime = dtOnePerDay end object Panel1: TPanel Left = 0 Top = 0 Width = 625 Height = 41 Align = alTop TabOrder = 0 object NLabProcCnt: TNumLab Left = 384 Top = 8 Width = 233 Height = 22 Hint = 'NumLab: Unregistered ShareWare Component'#10'(c) 1997 H. Lohninger, ' + 'POB 123, A-1060 Vienna, Austria'#10'http://www.lohninger.com/' LeftSpace = 90 Empty = False FrameStyle = fsLowered LabelWidth = 60 ParentShowHint = False ShowHint = True Precision = 1 LeftText = 'X:' Alignment = taCenter DisplayType = dtFixP ColorLabBakG = clSilver ColorLabText = clBlack ColorOutBakG = clBtnFace ColorOutText = clBlack ColorScheme = csBWG OverflowIndicator = '*********' end object BButExit: TBitBtn Left = 8 Top = 4 Width = 89 Height = 33 Caption = 'Exit' TabOrder = 0 OnClick = BButExitClick Glyph.Data = { 72010000424D7201000000000000760000002800000015000000150000000100 040000000000FC00000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 888888888880880000000000000008888880880EEEEEEEEEEE00088888808806 66666666E0008888888088066666666E000888888880880666666666E0888888 88808806666666666E088888888088066666666666E088888880880666666666 666E088880008806666666666666E088800088066446666666666E0882018806 40446666666666E0888088040004466666666600030988000080446666666000 8888880008880446666600088988880088888044666000888910888888888804 4600088885F08888888888804000888885F08888888888880008888885F08888 888888888088888885F08888888888888888888885F0} end object BButCreateD: TBitBtn Left = 112 Top = 4 Width = 89 Height = 33 Caption = 'Create Data' TabOrder = 1 OnClick = BButCreateDClick end object BButCalcCent: TBitBtn Left = 208 Top = 4 Width = 89 Height = 33 Caption = 'Calc.Centers' TabOrder = 2 OnClick = BButCalcCentClick end end end