object Form1: TForm1 Left = 653 Height = 459 Top = 209 Width = 550 Caption = 'Form1' ClientHeight = 459 ClientWidth = 550 Position = poScreenCenter LCLVersion = '0.9.31' object PageControl1: TPageControl Left = 0 Height = 459 Top = 0 Width = 550 ActivePage = tsDomain Align = alClient TabIndex = 0 TabOrder = 0 object tsDomain: TTabSheet Caption = 'Domain' ClientHeight = 433 ClientWidth = 542 object Chart1: TChart Left = 0 Height = 433 Top = 0 Width = 542 AxisList = < item Grid.Color = clGray TickLength = 0 Minors = <> Title.LabelFont.Orientation = 900 end item Grid.Color = clGray TickLength = 0 Alignment = calBottom Minors = <> end> ExpandPercentage = 5 Extent.UseYMax = True Extent.UseYMin = True Extent.YMax = 6 Extent.YMin = -6 Foot.Brush.Color = clBtnFace Foot.Font.Color = clBlue Frame.Visible = False Legend.Visible = True Title.Brush.Color = clBtnFace Title.Font.Color = clBlue Title.Text.Strings = ( 'TAChart' ) Align = alClient ParentColor = False object Chart1FuncSeries1: TFuncSeries Extent.UseXMax = True Extent.UseXMin = True Extent.UseYMin = True Extent.XMax = 6.28 Extent.XMin = -6.28 Extent.YMax = 2 Extent.YMin = -2 Title = '1 / Sin(x)' OnCalculate = Chart1FuncSeries1Calculate Pen.Color = clOlive Pen.Width = 2 Step = 4 end object Chart1XAxis: TConstantLine Legend.Visible = False Arrow.BaseLength = 5 Arrow.Length = 12 Arrow.Visible = True Arrow.Width = 4 Position = 0 end object Chart1YAxis: TConstantLine Legend.Visible = False Arrow.BaseLength = 5 Arrow.Length = 12 Arrow.Visible = True Arrow.Width = 4 LineStyle = lsVertical Position = 0 end object Chart1BarSeries1: TBarSeries Title = 'Cos(x)' BarBrush.Color = clMoneyGreen Source = UserDefinedChartSource1 end object Chart1UserDrawnSeries1: TUserDrawnSeries OnDraw = Chart1UserDrawnSeries1Draw end end object cbDomain: TCheckBox Left = 477 Height = 17 Top = 395 Width = 55 Anchors = [akRight, akBottom] Caption = 'Domain' OnChange = cbDomainChange TabOrder = 1 end object cbRotate: TCheckBox Left = 477 Height = 17 Top = 371 Width = 53 Anchors = [akRight, akBottom] Caption = 'Rotate' OnChange = cbRotateChange TabOrder = 2 end end object tsColorMap: TTabSheet Caption = 'Color map' ClientHeight = 433 ClientWidth = 542 object ChartColorMap: TChart Left = 0 Height = 433 Top = 0 Width = 416 AxisList = < item Minors = <> Title.LabelFont.Orientation = 900 ZPosition = 1 end item Alignment = calBottom Minors = <> ZPosition = 1 end> Extent.UseXMax = True Extent.UseXMin = True Extent.XMax = 1 Extent.XMin = -1 Foot.Brush.Color = clBtnFace Foot.Font.Color = clBlue Title.Brush.Color = clBtnFace Title.Font.Color = clBlue Title.Text.Strings = ( 'TAChart' ) Toolset = chtsColorMap Align = alClient DoubleBuffered = True ParentColor = False object ChartColorMapColorMapSeries1: TColorMapSeries Extent.UseXMax = True Extent.UseXMin = True Extent.XMax = 0.5 Extent.XMin = -0.5 Title = 'sin(10x + 17y)' ColorSource = ListChartSource1 OnCalculate = ChartColorMapColorMapSeries1Calculate end end object Panel1: TPanel Left = 421 Height = 433 Top = 0 Width = 121 Align = alRight BevelOuter = bvNone ClientHeight = 433 ClientWidth = 121 TabOrder = 1 object ChartLegendPanel1: TChartLegendPanel Left = 0 Height = 197 Top = 0 Width = 121 Chart = ChartColorMap Align = alTop end object cbInterpolate: TCheckBox Left = 8 Height = 17 Top = 403 Width = 74 Anchors = [akLeft, akBottom] Caption = 'Interpolate' OnChange = cbInterpolateChange TabOrder = 1 end object cbMultLegend: TCheckBox Left = 8 Height = 17 Top = 375 Width = 91 Anchors = [akLeft, akBottom] Caption = 'Expand legend' OnChange = cbMultLegendChange TabOrder = 2 end end object Splitter1: TSplitter Left = 416 Height = 433 Top = 0 Width = 5 Align = alRight ResizeAnchor = akRight end end object tsSpline: TTabSheet Caption = 'Spline' ClientHeight = 433 ClientWidth = 542 object ChartSpline: TChart Left = 0 Height = 395 Top = 0 Width = 542 AxisList = < item Grid.Color = clGray Grid.Cosmetic = False Intervals.Options = [aipGraphCoords, aipUseCount, aipUseMinLength, aipUseNiceSteps] Intervals.Tolerance = 2 Minors = <> Title.LabelFont.Orientation = 900 Transformations = catSpline end item Grid.Color = clGray Grid.Cosmetic = False Alignment = calBottom Minors = <> end> ExpandPercentage = 5 Foot.Brush.Color = clBtnFace Foot.Font.Color = clBlue Title.Brush.Color = clBtnFace Title.Font.Color = clBlue Title.Text.Strings = ( 'TAChart' ) Align = alClient DoubleBuffered = True ParentColor = False object ChartSplineLineSeries1: TLineSeries AxisIndexX = 1 AxisIndexY = 0 Source = RandomChartSource1 end object ChartSplineBSplineSeries1: TBSplineSeries Active = False AxisIndexX = 1 AxisIndexY = 0 Source = RandomChartSource1 Pen.Color = clLime Pen.Width = 3 Pointer.Brush.Color = clLime end object ChartSplineCubicSplineSeries1: TCubicSplineSeries ZPosition = 1 AxisIndexX = 1 AxisIndexY = 0 Pointer.Brush.Color = clAqua Source = RandomChartSource1 Options = [csoDrawFewPoints, csoDrawUnorderedX] Pen.Color = clAqua Pen.Width = 2 end end object pnSpline: TPanel Left = 0 Height = 38 Top = 395 Width = 542 Align = alBottom ClientHeight = 38 ClientWidth = 542 TabOrder = 1 object iseSplineDegree: TTISpinEdit Left = 60 Height = 21 Top = 4 Width = 50 Link.TIObject = ChartSplineBSplineSeries1 Link.TIPropertyName = 'Degree' MinValue = 1 OnChange = iseSplineDegreeChange TabOrder = 0 end object icbSplineRandomX: TTICheckBox Left = 128 Height = 23 Top = 4 Width = 90 Caption = 'Random X' Link.TIObject = RandomChartSource1 Link.TIPropertyName = 'RandomX' PropertyNameAsCaption = False TabOrder = 1 end object lblSplineDegree: TLabel Left = 12 Height = 14 Top = 8 Width = 36 Caption = 'Degree' ParentColor = False end object cbCubic: TTICheckBox Left = 312 Height = 23 Top = 4 Width = 90 Caption = 'Cubic' Link.TIObject = ChartSplineCubicSplineSeries1 Link.TIPropertyName = 'Active' PropertyNameAsCaption = False State = cbChecked TabOrder = 2 end object cbBSpline: TTICheckBox Left = 220 Height = 23 Top = 4 Width = 90 Caption = 'B-Spline' Link.TIObject = ChartSplineBSplineSeries1 Link.TIPropertyName = 'Active' PropertyNameAsCaption = False TabOrder = 3 end object cbLogY: TTICheckBox Left = 404 Height = 23 Top = 4 Width = 90 Caption = 'Log Y' Link.TIObject = catSplineLogarithmAxisTransform Link.TIPropertyName = 'Enabled' PropertyNameAsCaption = False TabOrder = 4 end end end end object UserDefinedChartSource1: TUserDefinedChartSource OnGetChartDataItem = UserDefinedChartSource1GetChartDataItem PointsNumber = 14 left = 135 top = 114 end object ListChartSource1: TListChartSource DataPoints.Strings = ( '-1|0|$0000FF|' '-0.5|0|$C00000|' '0|0|$808000|' '0.5|0|$00C000|' '1|0|$00FF00|' ) left = 280 top = 112 end object chtsColorMap: TChartToolset left = 280 top = 180 object chtsColorMapZoomDragTool1: TZoomDragTool Shift = [ssLeft] end object chtsColorMapPanDragTool1: TPanDragTool Shift = [ssRight] end end object RandomChartSource1: TRandomChartSource PointsNumber = 21 RandSeed = 1859411043 XMax = 10 XMin = 0 YMax = 1000 YMin = 1 left = 280 top = 56 end object catSpline: TChartAxisTransformations left = 135 top = 56 object catSplineLogarithmAxisTransform: TLogarithmAxisTransform Enabled = False Base = 10 end end end