lazarus/components/tachart/demo/line/Main.lfm

object Form1: TForm1
  Left = 703
  Height = 479
  Top = 364
  Width = 589
  Caption = 'Form1'
  ClientHeight = 479
  ClientWidth = 589
  Position = poScreenCenter
  LCLVersion = '0.9.31'
  object PageControl2: TPageControl
    Left = 0
    Height = 479
    Top = 0
    Width = 589
    ActivePage = tsFast
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object tsFast: TTabSheet
      Caption = 'Fast drawing'
      ClientHeight = 453
      ClientWidth = 581
      object chFast: TChart
        Left = 0
        Height = 411
        Top = 42
        Width = 581
        AxisList = <        
          item
            Title.LabelFont.Orientation = 900
          end        
          item
            Alignment = calBottom
          end>
        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 chFastLineSeries1: TLineSeries
          LinePen.Color = clTeal
          LinePen.Width = 3
          Source = RandomChartSource1
        end
        object chFastConstantLine1: TConstantLine
          LineStyle = lsVertical
          Pen.Color = clAqua
          Pen.Width = 2
          Position = 0
          ZPosition = 1
        end
      end
      object Panel1: TPanel
        Left = 0
        Height = 42
        Top = 0
        Width = 581
        Align = alTop
        ClientHeight = 42
        ClientWidth = 581
        TabOrder = 1
        object cbLineType: TComboBox
          Left = 8
          Height = 21
          Top = 8
          Width = 120
          ItemHeight = 13
          ItemIndex = 1
          Items.Strings = (
            'None'
            'Previous'
            'Origin'
            'StepXY'
            'StepYX'
          )
          OnChange = cbLineTypeChange
          Style = csDropDownList
          TabOrder = 0
          Text = 'Previous'
        end
        object cb3D: TCheckBox
          Left = 136
          Height = 17
          Top = 12
          Width = 33
          Caption = '3D'
          OnChange = cb3DChange
          TabOrder = 1
        end
        object cbRotated: TCheckBox
          Left = 176
          Height = 17
          Top = 12
          Width = 59
          Caption = 'Rotated'
          OnChange = cbRotatedChange
          TabOrder = 2
        end
        object btnAddSeries: TButton
          Left = 296
          Height = 25
          Top = 8
          Width = 75
          Caption = 'More series'
          OnClick = btnAddSeriesClick
          TabOrder = 3
        end
        object edTime: TEdit
          Left = 468
          Height = 21
          Top = 8
          Width = 76
          Alignment = taRightJustify
          TabOrder = 4
        end
        object btnRefresh: TButton
          Left = 376
          Height = 25
          Top = 8
          Width = 88
          Caption = 'Timed refresh:'
          OnClick = btnRefreshClick
          TabOrder = 5
        end
        object cbSorted: TCheckBox
          Left = 240
          Height = 17
          Top = 12
          Width = 52
          Caption = 'Sorted'
          OnChange = cbSortedChange
          TabOrder = 6
        end
        object PageControl1: TPageControl
          Left = 114
          Height = 200
          Top = 41
          Width = 200
          TabOrder = 7
        end
      end
    end
    object tsStats: TTabSheet
      Caption = 'Statistics'
      ClientHeight = 453
      ClientWidth = 581
      object chCalc: TChart
        Left = 0
        Height = 453
        Top = 0
        Width = 581
        AxisList = <        
          item
            Title.LabelFont.Orientation = 900
          end        
          item
            Alignment = calBottom
          end>
        Foot.Brush.Color = clBtnFace
        Foot.Font.Color = clBlue
        Legend.Alignment = laTopLeft
        Legend.MarginX = 40
        Legend.MarginY = 10
        Legend.UseSidebar = False
        Legend.Visible = True
        Title.Brush.Color = clBtnFace
        Title.Font.Color = clBlue
        Title.Text.Strings = (
          'TAChart'
        )
        Align = alClient
        ParentColor = False
        object chCalcLineSeries1: TLineSeries
          Title = 'Data'
          LineType = ltNone
          ShowPoints = True
          Source = RandomChartSource1
        end
        object chCalcLineSeriesSum: TLineSeries
          Title = 'Cumulative'
          LinePen.Color = clMaroon
          LinePen.Width = 2
          Source = ccsSum
        end
        object chCalcLineSeriesAvg: TLineSeries
          Title = 'Running average'
          ZPosition = 1
          LinePen.Color = clTeal
          LinePen.Width = 2
          Source = ccsAvg
        end
      end
    end
  end
  object RandomChartSource1: TRandomChartSource
    PointsNumber = 25
    RandSeed = -840176578
    XMax = 20
    XMin = -10
    YMax = 8
    YMin = 1
    left = 464
    top = 208
  end
  object ChartToolset1: TChartToolset
    left = 464
    top = 264
    object ChartToolset1DataPointDragTool1: TDataPointDragTool
      Shift = [ssLeft]
      AffectedSeries = '1'
    end
    object ChartToolset1ZoomDragTool1: TZoomDragTool
      Shift = [ssShift, ssLeft]
      RatioLimit = zrlFixedY
    end
    object ChartToolset1PanDragTool1: TPanDragTool
      Shift = [ssRight]
    end
  end
  object ccsAvg: TCalculatedChartSource
    AccumulationMethod = camAverage
    AccumulationRange = 5
    Origin = RandomChartSource1
    left = 464
    top = 148
  end
  object ccsSum: TCalculatedChartSource
    AccumulationMethod = camSum
    AccumulationRange = 0
    Origin = RandomChartSource1
    left = 464
    top = 96
  end
end