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

object Form1: TForm1
  Left = 292
  Height = 484
  Top = 152
  Width = 554
  Caption = 'Form1'
  ClientHeight = 484
  ClientWidth = 554
  Position = poScreenCenter
  LCLVersion = '0.9.31'
  object Chart1: TChart
    Left = 0
    Height = 360
    Top = 0
    Width = 554
    AxisList = <    
      item
        Title.LabelFont.Orientation = 900
      end    
      item
        Alignment = calBottom
      end>
    Extent.XMin = -3
    Extent.YMin = -2
    Extent.XMax = 3
    Extent.YMax = 2
    Extent.UseXMin = True
    Extent.UseYMin = True
    Extent.UseXMax = True
    Extent.UseYMax = True
    Foot.Brush.Color = clBtnFace
    Foot.Font.Color = clBlue
    ReticuleMode = rmCross
    Title.Brush.Color = clBtnFace
    Title.Font.Color = clBlue
    Title.Text.Strings = (
      'TAChart'
    )
    Toolset = ChartToolset1
    Align = alClient
    DoubleBuffered = True
    ParentColor = False
    object Chart1FuncSeries1: TFuncSeries
      OnCalculate = Chart1FuncSeries1Calculate
      Pen.Color = clMaroon
    end
    object Chart1BarSeries1: TBarSeries
      BarBrush.Color = clRed
      Source = RandomChartSource1
      UseReticule = True
    end
    object ChartLine1: TConstantLine
      LineStyle = lsVertical
      Pen.Color = clLime
      Pen.Style = psDash
      Pen.Width = 2
      Position = -1.5
    end
    object ChartLine2: TConstantLine
      LineStyle = lsVertical
      Pen.Color = clFuchsia
      Pen.Style = psDash
      Pen.Width = 2
      Position = 1.5
    end
  end
  object Panel1: TPanel
    Left = 0
    Height = 106
    Top = 360
    Width = 554
    Align = alBottom
    ClientHeight = 106
    ClientWidth = 554
    TabOrder = 1
    object rgZoom: TRadioGroup
      Left = 1
      Height = 104
      Top = 1
      Width = 255
      Align = alLeft
      AutoFill = True
      Caption = ' Zooming '
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 86
      ClientWidth = 251
      ItemIndex = 2
      Items.Strings = (
        'Drag to zoom'
        'Drag to zoom proportionally'
        'Click to zoom in, Shift+click to zoom out'
      )
      OnClick = rgZoomClick
      TabOrder = 0
      object cbFixedPoint: TCheckBox
        Left = 6
        Height = 15
        Top = 50
        Width = 239
        Caption = 'Fixed point'
        OnChange = cbFixedPointChange
        TabOrder = 4
      end
      object cbAnimate: TCheckBox
        Left = 6
        Height = 15
        Top = 65
        Width = 239
        Caption = 'Animate'
        OnClick = cbAnimateClick
        TabOrder = 5
      end
    end
    object rgPan: TRadioGroup
      Left = 256
      Height = 104
      Top = 1
      Width = 292
      Align = alLeft
      AutoFill = True
      Caption = 'Panning'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 86
      ClientWidth = 288
      ItemIndex = 0
      Items.Strings = (
        'Right-drag in any direction'
        'Right-drag left/right, Shift+right-drag up/down'
        'Right-click near the margin'
        'Right-click near the margin and hold'
      )
      OnClick = rgPanClick
      TabOrder = 1
    end
  end
  object Panel2: TPanel
    Left = 0
    Height = 18
    Top = 466
    Width = 554
    Align = alBottom
    Caption = 'Press Ctrl to activate reticlue, Alt-drag to move vertical lines'
    TabOrder = 2
  end
  object ChartToolset1: TChartToolset
    left = 124
    top = 75
    object ChartToolset1ZoomOut: TZoomClickTool
      Shift = [ssShift, ssLeft]
      AnimationInterval = 100
      ZoomFactor = 0.5
    end
    object ChartToolset1ZoomIn: TZoomClickTool
      Shift = [ssLeft]
      AnimationInterval = 100
      ZoomFactor = 2
    end
    object ChartToolset1PanAny: TPanDragTool
      Shift = [ssRight]
    end
    object ChartToolset1ZoomDragTool1: TZoomDragTool
      Enabled = False
      Shift = [ssLeft]
      AnimationInterval = 100
    end
    object ChartToolset1PanHor: TPanDragTool
      Enabled = False
      Shift = [ssRight]
      ActiveCursor = crSizeWE
      Directions = [pdLeft, pdRight]
    end
    object ChartToolset1PanVert: TPanDragTool
      Enabled = False
      Shift = [ssShift, ssRight]
      ActiveCursor = crSizeNS
      Directions = [pdUp, pdDown]
    end
    object ChartToolset1ReticuleTool1: TReticuleTool
      Shift = [ssCtrl]
    end
    object ChartToolset1DataPointDragTool1: TDataPointDragTool
      Shift = [ssAlt, ssLeft]
      OnBeforeMouseMove = ChartToolset1DataPointDragTool1BeforeMouseMove
      AffectedSeries = '2,3'
    end
    object ChartToolset1PanClickTool1: TPanClickTool
      Enabled = False
      Shift = [ssRight]
      Margins.Left = 30
      Margins.Top = 30
      Margins.Right = 30
      Margins.Bottom = 30
    end
  end
  object RandomChartSource1: TRandomChartSource
    PointsNumber = 10
    RandSeed = 251061796
    XMax = 9
    XMin = 0
    YMax = 10
    YMin = 0
    left = 124
    top = 152
  end
end