lazarus/components/tachart/demo/chartsource/frmderivative.lfm

object DerivativeFrame: TDerivativeFrame
  Left = 0
  Height = 430
  Top = 0
  Width = 631
  ClientHeight = 430
  ClientWidth = 631
  TabOrder = 0
  DesignLeft = 314
  DesignTop = 130
  object ParamsPanel: TPanel
    Left = 0
    Height = 39
    Top = 391
    Width = 631
    Align = alBottom
    AutoSize = True
    BevelOuter = bvNone
    ClientHeight = 39
    ClientWidth = 631
    TabOrder = 0
    object lblAccumulationRange: TLabel
      AnchorSideLeft.Control = ParamsPanel
      AnchorSideTop.Control = ParamsPanel
      AnchorSideTop.Side = asrCenter
      Left = 8
      Height = 15
      Top = 12
      Width = 108
      BorderSpacing.Left = 8
      Caption = 'AccumulationRange'
    end
    object seAccumulationRange: TSpinEdit
      AnchorSideLeft.Control = lblAccumulationRange
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = ParamsPanel
      AnchorSideTop.Side = asrCenter
      Left = 124
      Height = 23
      Top = 8
      Width = 74
      Alignment = taRightJustify
      BorderSpacing.Left = 8
      MaxValue = 10000
      TabOrder = 0
      Value = 2
      OnChange = seAccumulationRangeChange
    end
    object cbAccDirDerivative: TComboBox
      AnchorSideLeft.Control = seAccumulationRange
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = ParamsPanel
      AnchorSideTop.Side = asrCenter
      Left = 214
      Height = 23
      Top = 8
      Width = 100
      BorderSpacing.Left = 16
      BorderSpacing.Top = 8
      BorderSpacing.Bottom = 8
      ItemHeight = 15
      ItemIndex = 0
      Items.Strings = (
        'Backward'
        'Forward'
        'Center'
      )
      Style = csDropDownList
      TabOrder = 1
      Text = 'Backward'
      OnChange = cbAccDirDerivativeChange
    end
    object cbSmooth: TCheckBox
      AnchorSideLeft.Control = cbAccDirDerivative
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = ParamsPanel
      AnchorSideTop.Side = asrCenter
      Left = 330
      Height = 19
      Top = 10
      Width = 60
      BorderSpacing.Left = 16
      Caption = 'Smooth'
      TabOrder = 2
      OnChange = cbSmoothChange
    end
  end
  object rgDataShape: TRadioGroup
    Left = 6
    Height = 51
    Top = 340
    Width = 619
    Align = alBottom
    AutoFill = True
    AutoSize = True
    BorderSpacing.Left = 6
    BorderSpacing.Right = 6
    Caption = 'Functions'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.HorizontalSpacing = 12
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 7
    ClientHeight = 31
    ClientWidth = 615
    Columns = 7
    ItemIndex = 0
    Items.Strings = (
      'y = x'
      'y = sin(x)'
      'y = sin(x) / x'
      'y = exp(-x/3)'
      'Gaussian'
      'Noisy Gaussian'
      'Data from table'
    )
    ParentFont = False
    TabOrder = 1
    OnClick = rgDataShapeClick
  end
  object chDerivative: TChart
    Left = 0
    Height = 340
    Top = 0
    Width = 631
    AxisList = <    
      item
        Grid.Color = clSilver
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.LabelFont.Orientation = 900
        Title.Visible = True
        Title.Caption = 'y, dy/dx'
        Title.LabelBrush.Style = bsClear
      end    
      item
        Grid.Color = clSilver
        Alignment = calBottom
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.Visible = True
        Title.Caption = 'x'
        Title.LabelBrush.Style = bsClear
      end>
    BackColor = clWhite
    Foot.Brush.Color = clBtnFace
    Foot.Font.Color = clBlue
    Legend.Alignment = laTopCenter
    Legend.ColumnCount = 2
    Legend.Visible = True
    Title.Brush.Color = clBtnFace
    Title.Font.Color = clBlue
    Title.Text.Strings = (
      'TAChart'
    )
    Align = alClient
    Color = clWindow
    DoubleBuffered = True
    object chDerivativeLineOrig: TLineSeries
      Title = 'y'
      Source = lcsDerivative
    end
    object chDerivativeLineDeriv: TLineSeries
      Title = 'dy/dx'
      LinePen.Color = clRed
      Source = ccsDerivative
    end
  end
  object lcsDerivative: TListChartSource
    Left = 112
    Top = 64
  end
  object ccsDerivative: TCalculatedChartSource
    AccumulationMethod = camDerivative
    Origin = lcsDerivative
    Left = 112
    Top = 120
  end
end