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

object Form1: TForm1
  Left = 292
  Height = 520
  Top = 152
  Width = 599
  AutoSize = True
  Caption = 'Form1'
  ClientHeight = 520
  ClientWidth = 599
  Constraints.MinHeight = 520
  Position = poScreenCenter
  LCLVersion = '2.1.0.0'
  object Chart1: TChart
    Left = 0
    Height = 346
    Top = 0
    Width = 599
    AutoFocus = True
    AxisList = <    
      item
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.LabelFont.Orientation = 900
        Title.LabelBrush.Style = bsClear
      end    
      item
        Alignment = calBottom
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.LabelBrush.Style = bsClear
      end>
    Extent.UseXMax = True
    Extent.UseXMin = True
    Extent.UseYMax = True
    Extent.UseYMin = True
    Extent.XMax = 3
    Extent.XMin = -3
    Extent.YMax = 2
    Extent.YMin = -2
    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
    object Chart1FuncSeries1: TFuncSeries
      Pen.Color = clMaroon
      OnCalculate = Chart1FuncSeries1Calculate
    end
    object Chart1BarSeries1: TBarSeries
      BarBrush.Color = clRed
      Source = RandomChartSource1
    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 = 156
    Top = 346
    Width = 599
    Align = alBottom
    AutoSize = True
    ClientHeight = 156
    ClientWidth = 599
    TabOrder = 1
    object rgZoom: TRadioGroup
      AnchorSideLeft.Control = Panel1
      Left = 9
      Height = 146
      Top = 1
      Width = 252
      AutoFill = True
      AutoSize = True
      BorderSpacing.Left = 8
      BorderSpacing.Bottom = 8
      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 = 126
      ClientWidth = 248
      ItemIndex = 2
      Items.Strings = (
        'Drag to zoom'
        'Drag to zoom proportionally'
        'Click to zoom in, Shift+click to zoom out'
        'Mouse wheel to zoom'
      )
      OnClick = rgZoomClick
      TabOrder = 0
      object cbFixedPoint: TCheckBox
        Left = 6
        Height = 19
        Top = 82
        Width = 236
        Caption = 'Fixed point'
        Checked = True
        OnChange = cbFixedPointChange
        State = cbChecked
        TabOrder = 4
      end
      object cbAnimate: TCheckBox
        Left = 6
        Height = 19
        Top = 101
        Width = 236
        Caption = 'Animate'
        OnClick = cbAnimateClick
        TabOrder = 5
      end
    end
    object rgPan: TRadioGroup
      AnchorSideLeft.Control = rgZoom
      AnchorSideLeft.Side = asrBottom
      Left = 271
      Height = 146
      Top = 1
      Width = 287
      AutoFill = True
      AutoSize = True
      BorderSpacing.Left = 10
      BorderSpacing.Right = 8
      BorderSpacing.Bottom = 8
      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 = 126
      ClientWidth = 283
      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'
        'Shift+mousewheel up/down'
        'Shift+mousewheel right/left'
      )
      OnClick = rgPanClick
      TabOrder = 1
    end
  end
  object Panel2: TPanel
    Left = 0
    Height = 18
    Top = 502
    Width = 599
    Align = alBottom
    Caption = 'Press Ctrl to display crosshairs, 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 ChartToolset1ZoomMouseWheelTool1: TZoomMouseWheelTool
      Enabled = False
      AnimationInterval = 100
      ZoomFactor = 0.75
    end
    object ChartToolset1ZoomDragTool1: TZoomDragTool
      Enabled = False
      Shift = [ssLeft]
      AnimationInterval = 100
      Brush.Style = bsClear
    end
    object ChartToolset1PanAny: TPanDragTool
      Shift = [ssRight]
    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 ChartToolset1PanClickTool1: TPanClickTool
      Enabled = False
      Shift = [ssRight]
      Margins.Left = 30
      Margins.Top = 30
      Margins.Right = 30
      Margins.Bottom = 30
    end
    object ChartToolset1PanMouseWheelTool1: TPanMouseWheelTool
      Enabled = False
      Shift = [ssShift]
      Step = 20
    end
    object ChartToolset1DataPointDragTool1: TDataPointDragTool
      Shift = [ssAlt, ssLeft]
      OnBeforeMouseMove = ChartToolset1DataPointDragTool1BeforeMouseMove
      AffectedSeries = '2,3'
    end
    object ChartToolset1DataPointCrosshairTool1: TDataPointCrosshairTool
      Shift = [ssCtrl]
      OnAfterKeyUp = ChartToolset1DataPointCrosshairTool1AfterKeyUp
      GrabRadius = 200
      OnCustomDraw = ChartToolset1DataPointCrosshairTool1CustomDraw
    end
  end
  object RandomChartSource1: TRandomChartSource
    PointsNumber = 10
    RandSeed = 251061796
    XMax = 9
    XMin = 0
    YMax = 10
    YMin = 0
    left = 124
    top = 152
  end
end