lazarus/components/tachart/demo/func/main.lfm

object Form1: TForm1
  Left = 653
  Height = 362
  Top = 209
  Width = 461
  Caption = 'Form1'
  ClientHeight = 362
  ClientWidth = 461
  Position = poScreenCenter
  LCLVersion = '0.9.31'
  object PageControl1: TPageControl
    Left = 0
    Height = 362
    Top = 0
    Width = 461
    ActivePage = tsDomain
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object tsDomain: TTabSheet
      Caption = 'Domain'
      ClientHeight = 336
      ClientWidth = 453
      object Chart1: TChart
        Left = 0
        Height = 336
        Top = 0
        Width = 453
        AxisList = <        
          item
            Title.LabelFont.Orientation = 900
          end        
          item
            Alignment = calBottom
          end>
        ExpandPercentage = 10
        Extent.YMin = -6
        Extent.YMax = 6
        Extent.UseYMin = True
        Extent.UseYMax = True
        Foot.Brush.Color = clBtnFace
        Foot.Font.Color = clBlue
        Legend.Visible = True
        Title.Brush.Color = clBtnFace
        Title.Font.Color = clBlue
        Title.Text.Strings = (
          'TAChart'
        )
        Align = alClient
        ParentColor = False
        object Chart1FuncSeries1: TFuncSeries
          Extent.XMin = -6.28
          Extent.YMin = -2
          Extent.XMax = 6.28
          Extent.YMax = 2
          Extent.UseXMin = True
          Extent.UseYMin = True
          Extent.UseXMax = True
          Title = '1 / Sin(x)'
          OnCalculate = Chart1FuncSeries1Calculate
          Pen.Color = clOlive
          Pen.Width = 2
          Step = 4
        end
        object Chart1XAxis: TConstantLine
          Legend.Visible = False
          Position = 0
          SeriesColor = clBlack
        end
        object Chart1YAxis: TConstantLine
          Legend.Visible = False
          LineStyle = lsVertical
          Position = 0
          SeriesColor = clBlack
        end
        object Chart1BarSeries1: TBarSeries
          Title = 'Cos(x)'
          BarBrush.Color = clMoneyGreen
          Source = UserDefinedChartSource1
        end
        object Chart1UserDrawnSeries1: TUserDrawnSeries
          OnDraw = Chart1UserDrawnSeries1Draw
        end
      end
      object cbDomain: TCheckBox
        Left = 388
        Height = 17
        Top = 298
        Width = 55
        Anchors = [akRight, akBottom]
        Caption = 'Domain'
        OnChange = cbDomainChange
        TabOrder = 1
      end
      object cbRotate: TCheckBox
        Left = 388
        Height = 17
        Top = 274
        Width = 53
        Anchors = [akRight, akBottom]
        Caption = 'Rotate'
        OnChange = cbRotateChange
        TabOrder = 2
      end
    end
    object tsColorMap: TTabSheet
      Caption = 'Color map'
      ClientHeight = 336
      ClientWidth = 453
      object ChartColorMap: TChart
        Left = 0
        Height = 336
        Top = 0
        Width = 327
        AxisList = <        
          item
            Title.LabelFont.Orientation = 900
            ZPosition = 1
          end        
          item
            Alignment = calBottom
            ZPosition = 1
          end>
        Extent.XMin = -1
        Extent.XMax = 1
        Extent.UseXMin = True
        Extent.UseXMax = True
        Foot.Brush.Color = clBtnFace
        Foot.Font.Color = clBlue
        Title.Brush.Color = clBtnFace
        Title.Font.Color = clBlue
        Title.Text.Strings = (
          'TAChart'
        )
        Toolset = ChartToolset1
        Align = alClient
        DoubleBuffered = True
        ParentColor = False
        object ChartColorMapColorMapSeries1: TColorMapSeries
          Extent.XMin = -0.5
          Extent.XMax = 0.5
          Extent.UseXMin = True
          Extent.UseXMax = True
          Title = 'sin(10x + 17y)'
          ColorSource = ListChartSource1
          OnCalculate = ChartColorMapColorMapSeries1Calculate
        end
      end
      object Panel1: TPanel
        Left = 332
        Height = 336
        Top = 0
        Width = 121
        Align = alRight
        BevelOuter = bvNone
        ClientHeight = 336
        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 = 306
          Width = 74
          Anchors = [akLeft, akBottom]
          Caption = 'Interpolate'
          OnChange = cbInterpolateChange
          TabOrder = 1
        end
        object cbMultLegend: TCheckBox
          Left = 8
          Height = 17
          Top = 278
          Width = 91
          Anchors = [akLeft, akBottom]
          Caption = 'Expand legend'
          OnChange = cbMultLegendChange
          TabOrder = 2
        end
      end
      object Splitter1: TSplitter
        Left = 327
        Height = 336
        Top = 0
        Width = 5
        Align = alRight
        ResizeAnchor = akRight
      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 = 114
  end
  object ChartToolset1: TChartToolset
    left = 280
    top = 180
    object ChartToolset1ZoomDragTool1: TZoomDragTool
      Shift = [ssLeft]
    end
    object ChartToolset1PanDragTool1: TPanDragTool
      Shift = [ssRight]
    end
  end
end