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

object Form1: TForm1
  Left = 381
  Height = 401
  Top = 250
  Width = 729
  Caption = 'Chart Axis Click Tool Demo'
  ClientHeight = 401
  ClientWidth = 729
  LCLVersion = '3.99.0.0'
  object Chart: TChart
    Left = 0
    Height = 353
    Top = 0
    Width = 729
    AxisList = <    
      item
        Grid.Color = 12040191
        Grid.Style = psSolid
        AtDataOnly = True
        AxisPen.Color = clRed
        AxisPen.Visible = True
        Group = 1
        Marks.LabelFont.Color = clRed
        Marks.AtDataOnly = True
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.LabelFont.Color = clRed
        Title.LabelFont.Orientation = 900
        Title.Visible = True
        Title.Caption = 'Left axis #1'
        Title.LabelBrush.Style = bsClear
        Title.PositionOnMarks = True
        Transformations = RedAxisTransformations
      end    
      item
        Grid.Color = clSilver
        Grid.Style = psSolid
        Alignment = calBottom
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.Visible = True
        Title.Caption = 'Bottom axis'
        Title.LabelBrush.Style = bsClear
      end    
      item
        Grid.Color = clSilver
        Grid.Visible = False
        Alignment = calRight
        AxisPen.Visible = True
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.LabelFont.Orientation = 450
        Title.Visible = True
        Title.Caption = 'Right axis'
        Title.LabelBrush.Style = bsClear
      end    
      item
        Grid.Color = 16765650
        Grid.Style = psSolid
        AtDataOnly = True
        AxisPen.Color = clBlue
        AxisPen.Visible = True
        Group = 1
        Marks.LabelFont.Color = clBlue
        Marks.AtDataOnly = True
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.LabelFont.Color = clBlue
        Title.LabelFont.Orientation = 900
        Title.Visible = True
        Title.Caption = 'Left axis #2'
        Title.LabelBrush.Style = bsClear
        Title.PositionOnMarks = True
        Transformations = BlueAxisTransformations
      end>
    Frame.Visible = False
    Title.Text.Strings = (
      'Click on various parts of the axes'
      'Colliding parts are detected in the order of the series (left#1-bottom-right-left#2)'
    )
    Title.Visible = True
    Toolset = ChartToolset
    Align = alClient
    object RedSeries: TLineSeries
      AxisIndexY = 0
      LinePen.Color = clRed
      Source = RedChartSource
    end
    object BlueSeries: TLineSeries
      AxisIndexY = 3
      LinePen.Color = clBlue
      Source = BlueChartSource
    end
  end
  object BottomPanel: TPanel
    Left = 6
    Height = 36
    Top = 359
    Width = 717
    Align = alBottom
    AutoSize = True
    BorderSpacing.Around = 6
    BevelOuter = bvNone
    ClientHeight = 36
    ClientWidth = 717
    TabOrder = 1
    object Label1: TLabel
      AnchorSideLeft.Control = BottomPanel
      AnchorSideTop.Control = BottomPanel
      Left = 0
      Height = 15
      Top = 0
      Width = 65
      Caption = 'Clicked axis:'
    end
    object Label2: TLabel
      AnchorSideLeft.Control = BottomPanel
      AnchorSideTop.Control = Label1
      AnchorSideTop.Side = asrBottom
      Left = 0
      Height = 15
      Top = 19
      Width = 66
      BorderSpacing.Top = 4
      Caption = 'Clicked part:'
    end
    object lblClickedAxis: TLabel
      AnchorSideLeft.Control = Label1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Label1
      Left = 73
      Height = 15
      Top = 0
      Width = 36
      BorderSpacing.Left = 8
      Caption = '(none)'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblClickedAxisPart: TLabel
      AnchorSideLeft.Control = Label1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Label2
      Left = 73
      Height = 15
      Top = 19
      Width = 36
      BorderSpacing.Left = 8
      Caption = '(none)'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object cbShowGrid_LeftAxis2: TCheckBox
      AnchorSideLeft.Control = Bevel1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Label1
      AnchorSideTop.Side = asrCenter
      Left = 360
      Height = 19
      Top = -2
      Width = 130
      Caption = 'Show left axis #2 grid'
      Checked = True
      State = cbChecked
      TabOrder = 0
      OnChange = cbShowGrid_LeftAxis2Change
    end
    object Bevel1: TBevel
      AnchorSideLeft.Control = BottomPanel
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = BottomPanel
      Left = 357
      Height = 26
      Top = 0
      Width = 3
      Shape = bsSpacer
    end
    object cbShowGrid_LeftAxis1: TCheckBox
      AnchorSideLeft.Control = Bevel1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Label2
      AnchorSideTop.Side = asrCenter
      Left = 360
      Height = 19
      Top = 17
      Width = 130
      Caption = 'Show left axis #1 grid'
      Checked = True
      State = cbChecked
      TabOrder = 1
      OnChange = cbShowGrid_LeftAxis2Change
    end
    object cbShowGrid_RightAxis: TCheckBox
      AnchorSideLeft.Control = cbShowGrid_LeftAxis2
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Label1
      AnchorSideTop.Side = asrCenter
      Left = 506
      Height = 19
      Top = -2
      Width = 122
      BorderSpacing.Left = 16
      Caption = 'Show right axis grid'
      TabOrder = 2
      OnChange = cbShowGrid_LeftAxis2Change
    end
    object cbShowGrid_BottomAxis: TCheckBox
      AnchorSideLeft.Control = cbShowGrid_LeftAxis2
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Label2
      AnchorSideTop.Side = asrCenter
      Left = 506
      Height = 19
      Top = 17
      Width = 137
      BorderSpacing.Left = 16
      Caption = 'Show bottom axis grid'
      Checked = True
      State = cbChecked
      TabOrder = 3
      OnChange = cbShowGrid_LeftAxis2Change
    end
  end
  object ChartToolset: TChartToolset
    Left = 368
    Top = 128
    object ChartToolsetAxisClickTool1: TAxisClickTool
      Shift = [ssLeft]
      OnClick = ChartToolsetAxisClickTool1Click
    end
    object ChartToolsetUserDefinedTool1: TUserDefinedTool
      Shift = [ssLeft]
      OnAfterMouseDown = ChartToolsetUserDefinedTool1AfterMouseDown
    end
  end
  object RedChartSource: TRandomChartSource
    PointsNumber = 11
    RandSeed = 108757768
    XMax = 1
    YMax = 1
    Left = 240
    Top = 216
  end
  object RedAxisTransformations: TChartAxisTransformations
    Left = 104
    Top = 216
    object RedAxisTransformationsAutoScaleAxisTransform: TAutoScaleAxisTransform
    end
  end
  object BlueAxisTransformations: TChartAxisTransformations
    Left = 104
    Top = 39
    object BlueAxisTransformationsAutoScaleAxisTransform: TAutoScaleAxisTransform
      MaxValue = 2
      MinValue = 1
    end
  end
  object BlueChartSource: TRandomChartSource
    PointsNumber = 21
    RandSeed = 1002808897
    XMax = 1
    YMax = 2
    Left = 240
    Top = 39
  end
end