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

object Form1: TForm1
  Left = 292
  Height = 442
  Top = 152
  Width = 554
  Caption = 'Form1'
  ClientHeight = 442
  ClientWidth = 554
  LCLVersion = '0.9.29'
  object Chart1: TChart
    Left = 0
    Height = 376
    Top = 0
    Width = 554
    AxisList = <    
      item
        Alignment = calLeft
        Title.Font.Orientation = 900
        Transformation.Offset = 0
        Transformation.Scale = 1
      end    
      item
        Alignment = calBottom
        Transformation.Offset = 0
        Transformation.Scale = 1
      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
      SeriesColor = clRed
      Source = RandomChartSource1
      UseReticule = True
    end
  end
  object Panel1: TPanel
    Left = 0
    Height = 66
    Top = 376
    Width = 554
    Align = alBottom
    ClientHeight = 66
    ClientWidth = 554
    TabOrder = 1
    object rgZoom: TRadioGroup
      Left = 1
      Height = 64
      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 = 46
      ClientWidth = 251
      ItemIndex = 1
      Items.Strings = (
        'Drag to zoom'
        'Click to zoom in, Shift+click to zoom out'
      )
      OnClick = rgZoomClick
      TabOrder = 0
    end
    object rgPan: TRadioGroup
      Left = 256
      Height = 64
      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 = 46
      ClientWidth = 288
      ItemIndex = 0
      Items.Strings = (
        'Right-drag in any direction'
        'Right-drag left/right, Shift+right-drag up/down'
      )
      OnClick = rgPanClick
      TabOrder = 1
    end
  end
  object ChartToolset1: TChartToolset
    left = 124
    top = 75
    object ChartToolset1ZoomOut: TZoomClickTool
      Shift = [ssShift, ssLeft]
      ZoomFactor = 0.5
    end
    object ChartToolset1ZoomIn: TZoomClickTool
      Shift = [ssLeft]
      ZoomFactor = 2
    end
    object ChartToolset1PanAny: TPanDragTool
      Shift = [ssRight]
    end
    object ChartToolset1ZoomDragTool1: TZoomDragTool
      Enabled = False
      Shift = [ssLeft]
    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
  end
  object RandomChartSource1: TRandomChartSource
    PointsNumber = 10
    RandSeed = 251061796
    XMax = 9
    XMin = 0
    YMax = 10
    YMin = 0
    left = 124
    top = 152
  end
end