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

object MainForm: TMainForm
  Left = 280
  Height = 452
  Top = 130
  Width = 656
  Caption = 'HTML demo'
  ClientHeight = 452
  ClientWidth = 656
  OnCreate = FormCreate
  LCLVersion = '1.9.0.0'
  object BottomPanel: TPanel
    Left = 8
    Height = 105
    Top = 339
    Width = 640
    Align = alBottom
    AutoSize = True
    BorderSpacing.Left = 8
    BorderSpacing.Right = 8
    BorderSpacing.Bottom = 8
    BevelOuter = bvNone
    ClientHeight = 105
    ClientWidth = 640
    TabOrder = 0
    object CgHTML: TCheckGroup
      Left = 0
      Height = 78
      Top = 8
      Width = 333
      AutoFill = True
      AutoSize = True
      BorderSpacing.InnerBorder = 4
      Caption = 'Show HTML codes'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 4
      ClientHeight = 58
      ClientWidth = 329
      Columns = 4
      Items.Strings = (
        'title'
        'footer'
        'legend'
        'series labels'
        'x axis labels'
        'x axis title'
        'y axis title'
        'distance tool'
      )
      OnItemClick = CgHTMLItemClick
      TabOrder = 0
      Data = {
        080000000202020202020202
      }
    end
    object BtnCopyToClipboard: TButton
      AnchorSideTop.Control = BottomPanel
      AnchorSideRight.Control = BottomPanel
      AnchorSideRight.Side = asrBottom
      Left = 511
      Height = 25
      Top = 8
      Width = 121
      Anchors = [akTop, akRight]
      AutoSize = True
      BorderSpacing.Top = 8
      BorderSpacing.Right = 8
      Caption = 'Copy to clipboard'
      OnClick = BtnCopyToClipboardClick
      TabOrder = 1
    end
    object BtnSaveWMF: TButton
      AnchorSideLeft.Control = BtnCopyToClipboard
      AnchorSideTop.Control = BtnCopyToClipboard
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = BtnCopyToClipboard
      AnchorSideRight.Side = asrBottom
      Left = 511
      Height = 25
      Top = 37
      Width = 121
      Anchors = [akTop, akLeft, akRight]
      AutoSize = True
      BorderSpacing.Top = 4
      Caption = 'Save to WMF'
      OnClick = BtnSaveWMFClick
      TabOrder = 2
    end
    object BtnSaveSVG: TButton
      AnchorSideLeft.Control = BtnCopyToClipboard
      AnchorSideTop.Control = BtnSaveWMF
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = BtnCopyToClipboard
      AnchorSideRight.Side = asrBottom
      Left = 511
      Height = 25
      Top = 66
      Width = 121
      Anchors = [akTop, akLeft, akRight]
      AutoSize = True
      BorderSpacing.Top = 4
      Caption = 'Save to SVG'
      OnClick = BtnSaveSVGClick
      TabOrder = 3
    end
    object CbRTL: TCheckBox
      AnchorSideLeft.Control = CbRotateXLabels
      AnchorSideTop.Control = CbRotateXLabels
      AnchorSideTop.Side = asrBottom
      Left = 349
      Height = 19
      Top = 38
      Width = 86
      BorderSpacing.Top = 8
      Caption = 'Right-to-left'
      OnChange = CbRTLChange
      TabOrder = 4
      Visible = False
    end
    object CbRotateXLabels: TCheckBox
      AnchorSideLeft.Control = CgHTML
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = BtnCopyToClipboard
      AnchorSideTop.Side = asrCenter
      Left = 349
      Height = 19
      Top = 11
      Width = 131
      BorderSpacing.Left = 16
      Caption = 'Rotate x labels by 45°'
      OnChange = CbRotateXLabelsChange
      TabOrder = 5
    end
    object Label1: TLabel
      AnchorSideLeft.Control = BottomPanel
      AnchorSideTop.Control = CgHTML
      AnchorSideTop.Side = asrBottom
      Left = 0
      Height = 15
      Top = 90
      Width = 305
      BorderSpacing.Top = 4
      Caption = 'Measure distance: drag with left mouse button held down'
      ParentColor = False
    end
  end
  object Chart: TChart
    Left = 8
    Height = 323
    Top = 8
    Width = 640
    AxisList = <    
      item
        Grid.Color = clSilver
        Grid.Style = psSolid
        Minors = <>
        Title.LabelFont.Height = -16
        Title.LabelFont.Orientation = 900
        Title.Visible = True
        Title.Caption = 'Area A, cm<sup>2</sup>'
        Title.TextFormat = tfHTML
      end    
      item
        Grid.Color = clSilver
        Grid.Style = psSolid
        Grid.Visible = False
        Alignment = calBottom
        Marks.TextFormat = tfHTML
        Minors = <>
        Title.LabelFont.Height = -16
        Title.Visible = True
        Title.Caption = 'Angle &alpha;, &deg;'
        Title.TextFormat = tfHTML
        OnMarkToText = ChartAxisList1MarkToText
      end>
    BackColor = clWhite
    Foot.Alignment = taLeftJustify
    Foot.Brush.Color = clBtnFace
    Foot.Brush.Style = bsClear
    Foot.Font.Color = clGray
    Foot.Text.Strings = (
      '<u>Reference</u>:'
      'W. Shakespeare, <i>"J. Irreprod. Res."</i>, <b>38</b>, 512 (2017)'
    )
    Foot.TextFormat = tfHTML
    Foot.Visible = True
    Legend.Alignment = laTopCenter
    Legend.ColumnCount = 2
    Legend.TextFormat = tfHTML
    Legend.Visible = True
    Title.Brush.Color = clBtnFace
    Title.Brush.Style = bsClear
    Title.Font.Color = clNavy
    Title.Font.Height = -19
    Title.Font.Style = [fsBold]
    Title.Text.Strings = (
      'Plot of area (cm<sup>2</sup>) <i>vs.</i> angle &alpha;'
    )
    Title.TextFormat = tfHTML
    Title.Visible = True
    Toolset = ChartTools
    Align = alClient
    BorderSpacing.Around = 8
    Color = clWhite
    object DataSeries: TLineSeries
      Marks.Alignment = taCenter
      Marks.Format = '%2:s'
      Marks.Frame.Color = clGray
      Marks.LinkPen.Color = clGray
      Marks.Style = smsLabel
      Marks.TextFormat = tfHTML
      Title = '<font color="red">Measured data points</font>'
      LinePen.Color = clRed
      LineType = ltNone
      Pointer.Brush.Color = clRed
      Pointer.Style = psCircle
      ShowPoints = True
    end
    object FitSeries: TFitSeries
      Marks.TextFormat = tfHTML
      Title = 'Fit curve (<font color="blue">blue</font>)'
      Pen.Color = clBlue
      Pointer.Visible = False
      Source = ListChartSource
      OnFitComplete = FitSeriesFitComplete
    end
  end
  object ListChartSource: TListChartSource
    left = 224
    top = 88
  end
  object ListChartSource_Fit: TListChartSource
    left = 224
    top = 153
  end
  object ChartTools: TChartToolset
    left = 368
    top = 88
    object DistanceTool: TDataPointDistanceTool
      Shift = [ssLeft]
      DistanceMode = cdmOnlyX
      DrawingMode = tdmNormal
      Marks.Alignment = taCenter
      Marks.Distance = 15
      Marks.Format = '%0:.9g'
      Marks.Frame.Color = clTeal
      Marks.LabelBrush.Color = clMoneyGreen
      Marks.LinkPen.Color = clSilver
      Marks.LinkPen.Visible = False
      Marks.TextFormat = tfHTML
      MeasureMode = cdmOnlyX
      Options = [dpdoLabelAbove]
      OnGetDistanceText = DistanceToolGetDistanceText
    end
  end
end