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

object Form1: TForm1
  Left = 495
  Height = 590
  Top = 225
  Width = 803
  Caption = 'Form1'
  ClientHeight = 590
  ClientWidth = 803
  OnCreate = FormCreate
  LCLVersion = '1.1'
  object PageControl1: TPageControl
    Left = 0
    Height = 590
    Top = 0
    Width = 803
    ActivePage = tsMain
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object tsMain: TTabSheet
      Caption = 'Main'
      ClientHeight = 564
      ClientWidth = 795
      object StatusBar1: TStatusBar
        Left = 0
        Height = 20
        Top = 544
        Width = 795
        Panels = <>
      end
      object Panel2: TPanel
        Left = 0
        Height = 36
        Top = 508
        Width = 795
        Align = alBottom
        BevelOuter = bvNone
        Caption = 'Left-drag --> measure 1st distance, Shift to zoom while dragging         Ctrl+left-drag --> measure 2nd distance          Right-drag --> show values'
        Color = clGray
        Font.Color = clWhite
        ParentColor = False
        ParentFont = False
        TabOrder = 1
      end
      object Panel1: TPanel
        Left = 0
        Height = 108
        Top = 400
        Width = 795
        Align = alBottom
        BevelOuter = bvNone
        ClientHeight = 108
        ClientWidth = 795
        TabOrder = 2
        object rgSnapMode: TRadioGroup
          Left = 8
          Height = 101
          Top = 5
          Width = 96
          AutoFill = True
          Caption = 'Snapping mode'
          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 = 83
          ClientWidth = 92
          ItemIndex = 0
          Items.Strings = (
            'cdmXY'
            'cdmOnlyX'
            'cdmOnlyY'
          )
          OnClick = rgSnapModeClick
          TabOrder = 0
        end
        object rgDrawingMode: TRadioGroup
          Left = 208
          Height = 101
          Top = 5
          Width = 97
          AutoFill = True
          Caption = 'Drawing mode'
          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 = 83
          ClientWidth = 93
          ItemIndex = 1
          Items.Strings = (
            'tdmDefault'
            'tdmNormal'
            'tdmXor'
          )
          OnClick = rgDrawingModeClick
          TabOrder = 1
        end
        object cbRotateLabel: TCheckBox
          Left = 428
          Height = 17
          Top = 29
          Width = 78
          Caption = 'Rotate label'
          Checked = True
          OnClick = cbRotateLabelClick
          State = cbChecked
          TabOrder = 2
        end
        object cbShowLabel: TCheckBox
          Left = 428
          Height = 17
          Top = 5
          Width = 71
          Caption = 'Show label'
          Checked = True
          OnClick = cbShowLabelClick
          State = cbChecked
          TabOrder = 3
        end
        object clrPenColor: TColorButton
          Left = 708
          Height = 25
          Top = 41
          Width = 78
          BorderWidth = 2
          ButtonColorAutoSize = False
          ButtonColorSize = 16
          ButtonColor = clBlack
          Caption = 'Pen'
          Margin = 4
          OnColorChanged = clrPenColorColorChanged
        end
        object clrFontColor: TColorButton
          Left = 708
          Height = 25
          Top = 70
          Width = 78
          BorderWidth = 2
          ButtonColorAutoSize = False
          ButtonColorSize = 16
          ButtonColor = clBlack
          Caption = 'Font'
          Margin = 4
          OnColorChanged = clrFontColorColorChanged
        end
        object clrBackgroundColor: TColorButton
          Left = 708
          Height = 25
          Top = 8
          Width = 78
          BorderWidth = 2
          ButtonColorAutoSize = False
          ButtonColorSize = 16
          ButtonColor = clBtnFace
          Caption = 'Backgr'
          Margin = 4
          OnColorChanged = clrBackgroundColorColorChanged
        end
        object edEndbarLength: TSpinEdit
          Left = 628
          Height = 21
          Top = 5
          Width = 50
          MaxValue = 1000
          OnChange = edEndbarLengthChange
          TabOrder = 4
          Value = 1000
        end
        object lblEndBarLength: TLabel
          Left = 548
          Height = 13
          Top = 8
          Width = 67
          Caption = 'Endbar length'
          ParentColor = False
        end
        object cbHide: TCheckBox
          Left = 428
          Height = 17
          Top = 81
          Width = 103
          Caption = 'Hide at mouse up'
          OnClick = cbHideClick
          TabOrder = 5
        end
        object rgMeasureMode: TRadioGroup
          Left = 108
          Height = 101
          Top = 5
          Width = 97
          AutoFill = True
          Caption = 'Measure mode'
          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 = 83
          ClientWidth = 93
          ItemIndex = 0
          Items.Strings = (
            'cdmXY'
            'cdmOnlyX'
            'cdmOnlyY'
          )
          OnClick = rgMeasureModeClick
          TabOrder = 6
        end
        object mDistanceText: TMemo
          Left = 536
          Height = 53
          Top = 42
          Width = 138
          Lines.Strings = (
            'axis dist = %0:.4g'
            'graph dist = %1:.4g'
          )
          OnChange = mDistanceTextChange
          TabOrder = 7
        end
        object rgDataPointMode: TRadioGroup
          Left = 308
          Height = 101
          Top = 5
          Width = 97
          AutoFill = True
          Caption = 'Data point mode'
          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 = 83
          ClientWidth = 93
          ItemIndex = 0
          Items.Strings = (
            'Free'
            'Snap'
            'Lock'
          )
          OnClick = rgDataPointModeClick
          TabOrder = 8
        end
        object cbFlipLabel: TCheckBox
          Left = 428
          Height = 17
          Top = 53
          Width = 61
          Caption = 'Flip label'
          OnClick = cbFlipLabelClick
          TabOrder = 9
        end
      end
      object Chart1: TChart
        Left = 0
        Height = 400
        Top = 0
        Width = 795
        AutoFocus = True
        AxisList = <        
          item
            TickColor = clBlue
            AxisPen.Color = clBlue
            AxisPen.Visible = True
            Marks.LabelFont.Color = clBlue
            Minors = <>
            Title.LabelFont.Orientation = 900
            Transformations = ChartAxisTransformations1
          end        
          item
            Alignment = calBottom
            Minors = <>
          end        
          item
            Grid.Visible = False
            TickColor = clTeal
            Alignment = calRight
            AxisPen.Color = clTeal
            AxisPen.Visible = True
            Marks.LabelFont.Color = clTeal
            Minors = <>
            Transformations = ChartAxisTransformations3
          end>
        BackColor = clCream
        Foot.Brush.Color = clBtnFace
        Foot.Font.Color = clBlue
        MarginsExternal.Left = 8
        MarginsExternal.Top = 8
        MarginsExternal.Right = 8
        MarginsExternal.Bottom = 8
        Title.Brush.Color = clBtnFace
        Title.Font.Color = clBlue
        Title.Text.Strings = (
          'TAChart'
        )
        Toolset = ctDist
        Align = alClient
        DoubleBuffered = True
        ParentColor = False
        object Chart1LineSeries1: TLineSeries
          AxisIndexX = 1
          AxisIndexY = 0
          LinePen.Color = clBlue
          Source = RandomChartSource1
        end
        object Chart1LineSeries2: TLineSeries
          AxisIndexX = 1
          AxisIndexY = 0
          LinePen.Color = clBlue
          LinePen.Style = psDash
          Source = RandomChartSource2
        end
        object Chart1LineSeries3: TLineSeries
          AxisIndexX = 1
          AxisIndexY = 2
          LinePen.Color = clTeal
          LinePen.Width = 3
          Pointer.Brush.Color = clMoneyGreen
          Pointer.Style = psCircle
          ShowPoints = True
          Source = RandomChartSource3
        end
      end
    end
    object tsFit: TTabSheet
      Caption = 'Fit'
      ClientHeight = 564
      ClientWidth = 795
      object pnlFit: TPanel
        Left = 0
        Height = 66
        Top = 0
        Width = 795
        Align = alTop
        ClientHeight = 66
        ClientWidth = 795
        TabOrder = 0
        object rgFitParamCount: TRadioGroup
          Left = 12
          Height = 50
          Top = 6
          Width = 450
          AutoFill = True
          Caption = 'Measure (by dragging right mouse button)'
          ChildSizing.LeftRightSpacing = 6
          ChildSizing.TopBottomSpacing = 6
          ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
          ChildSizing.EnlargeVertical = crsHomogenousChildResize
          ChildSizing.ShrinkHorizontal = crsScaleChilds
          ChildSizing.ShrinkVertical = crsScaleChilds
          ChildSizing.Layout = cclLeftToRightThenTopToBottom
          ChildSizing.ControlsPerLine = 3
          ClientHeight = 32
          ClientWidth = 446
          Columns = 3
          ItemIndex = 0
          Items.Strings = (
            'Mean value'
            'Slope'
            'Find peak'
          )
          OnClick = rgFitParamCountClick
          TabOrder = 0
        end
        object lblFit: TLabel
          Left = 472
          Height = 13
          Top = 8
          Width = 22
          Caption = 'lblFit'
          ParentColor = False
          Visible = False
        end
      end
      object chFit: TChart
        Left = 0
        Height = 498
        Top = 66
        Width = 795
        AxisList = <        
          item
            Minors = <>
            Title.LabelFont.Orientation = 900
          end        
          item
            Alignment = calBottom
            Minors = <>
          end>
        Foot.Brush.Color = clBtnFace
        Foot.Font.Color = clBlue
        Title.Brush.Color = clBtnFace
        Title.Font.Color = clBlue
        Title.Text.Strings = (
          'TAChart'
        )
        Toolset = ctFit
        Align = alClient
        DoubleBuffered = True
        ParentColor = False
        object chFitLineSeries1: TLineSeries
          LineType = ltNone
          Pointer.Brush.Color = clRed
          Pointer.HorizSize = 3
          Pointer.VertSize = 3
          ShowPoints = True
        end
        object chFitFitSeries1: TFitSeries
          Active = False
          FitRange.Min = 1
          FitRange.UseMax = True
          FitRange.UseMin = True
          ParamCount = 1
          Pen.Color = clLime
          Pen.Width = 3
        end
      end
    end
  end
  object RandomChartSource1: TRandomChartSource
    PointsNumber = 100
    RandSeed = 2143215771
    XMax = 10
    XMin = 0
    YMax = 10
    YMin = 4
    left = 73
    top = 28
  end
  object RandomChartSource2: TRandomChartSource
    PointsNumber = 15
    RandSeed = 2143294090
    XMax = 10
    XMin = 0
    YMax = 5
    YMin = 0
    left = 73
    top = 97
  end
  object ctDist: TChartToolset
    left = 72
    top = 232
    object ctCrosshair: TDataPointCrosshairTool
      Shift = [ssRight]
      OnDraw = ctCrosshairDraw
      Size = 16
    end
    object ctDistance1: TDataPointDistanceTool
      Shift = [ssLeft]
      OnBeforeKeyDown = ctDistance1BeforeKeyDown
      OnBeforeKeyUp = ctDistance1BeforeKeyUp
      LinePen.Width = 2
      Marks.Distance = 30
      Marks.Format = 'dist='#13#10'%0:.9g / %1:.9g'
      Marks.LinkPen.Color = clBlue
      PointerEnd.Brush.Style = bsClear
      PointerEnd.VertSize = 1000
      PointerStart.Brush.Style = bsClear
      PointerStart.Pen.Color = clRed
      PointerStart.VertSize = 1000
      Transparency = 128
      OnMeasure = ctDistance1Measure
    end
    object ctDistance2: TDataPointDistanceTool
      Shift = [ssCtrl, ssLeft]
      Marks.Format = '%0:.9g'
      PointerEnd.HorizSize = 8
      PointerEnd.Style = psRightTriangle
      PointerEnd.VertSize = 8
      PointerStart.Brush.Style = bsClear
      PointerStart.Style = psLeftBracket
      PointerStart.VertSize = 8
      OnMeasure = ctDistance1Measure
    end
    object ctDistPanMouseWheelTool1: TPanMouseWheelTool
    end
  end
  object ChartAxisTransformations1: TChartAxisTransformations
    left = 260
    top = 128
    object ChartAxisTransformations1LogarithmAxisTransform1: TLogarithmAxisTransform
      Enabled = False
      Base = 10
    end
  end
  object RandomChartSource3: TRandomChartSource
    PointsNumber = 16
    RandSeed = 1603408474
    XMax = 10
    XMin = 0
    YMax = 1000
    YMin = 900
    left = 72
    top = 169
  end
  object ChartAxisTransformations3: TChartAxisTransformations
    left = 440
    top = 128
    object ChartAxisTransformations3AutoScaleAxisTransform1: TAutoScaleAxisTransform
      MaxValue = 20
      MinValue = 10
    end
  end
  object ctFit: TChartToolset
    left = 260
    top = 192
    object ctFitDataPointDistanceTool1: TDataPointDistanceTool
      Shift = [ssRight]
      DrawingMode = tdmNormal
      LinePen.Visible = False
      Marks.Format = '%0:.9g'
      Marks.LinkPen.Visible = False
      MeasureMode = cdmOnlyX
      PointerEnd.VertSize = 10000
      PointerStart.VertSize = 10000
      OnGetDistanceText = ctFitDataPointDistanceTool1GetDistanceText
      OnMeasure = ctFitDataPointDistanceTool1Measure
    end
    object ctFitZoomDragTool1: TZoomDragTool
      Shift = [ssLeft]
    end
  end
end