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

object Form1: TForm1
  Left = 343
  Height = 430
  Top = 184
  Width = 533
  Caption = 'TAChart axis demo'
  ClientHeight = 430
  ClientWidth = 533
  OnCreate = FormCreate
  Position = poScreenCenter
  LCLVersion = '0.9.31'
  object PageControl1: TPageControl
    Left = 0
    Height = 430
    Top = 0
    Width = 533
    ActivePage = tsCustomMarks
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object tsCustomMarks: TTabSheet
      Caption = 'Customized marks'
      ClientHeight = 404
      ClientWidth = 525
      object ChartCustomMarks: TChart
        Left = 0
        Height = 404
        Top = 0
        Width = 525
        AxisList = <        
          item
            Marks.Distance = 0
            Marks.Format = '$%0:.9g'
            Marks.Frame.Style = psSolid
            Marks.LabelBrush.Color = clMoneyGreen
            Marks.LabelBrush.Style = bsSolid
            Marks.Source = lcsMarks
            Marks.Style = smsCustom
            Minors = <>
            Title.LabelFont.Orientation = 900
          end        
          item
            Grid.Visible = False
            TickLength = 0
            Alignment = calBottom
            AxisPen.Color = clRed
            AxisPen.Style = psDot
            AxisPen.Width = 5
            AxisPen.Visible = True
            Marks.LabelFont.Height = -13
            Marks.LabelFont.Style = [fsBold]
            Marks.Format = '%2:s'
            Marks.Source = lcsMarks
            Marks.Style = smsLabel
            Minors = <>
            OnMarkToText = ChartCustomMarksAxisList1MarkToText
          end>
        Foot.Brush.Color = clBtnFace
        Foot.Font.Color = clBlue
        MarginsExternal.Left = 0
        Title.Brush.Color = clBtnFace
        Title.Font.Color = clBlue
        Title.Text.Strings = (
          'TAChart'
        )
        Align = alClient
        ParentColor = False
        object ChartCustomMarksBarSeries1: TBarSeries
          Marks.Frame.Visible = False
          Marks.LabelBrush.Style = bsClear
          BarBrush.Color = clGreen
          BarPen.Color = clLime
          BarPen.Width = 2
          Source = lcsMarks
        end
      end
    end
    object tsAxisGroup: TTabSheet
      Caption = 'Axis groups'
      ClientHeight = 404
      ClientWidth = 525
      object ChartAxisGroup: TChart
        Left = 0
        Height = 404
        Top = 0
        Width = 525
        AxisList = <        
          item
            Grid.Visible = False
            TickLength = 0
            Group = 2
            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'
        )
        Align = alClient
        ParentColor = False
      end
    end
    object tsSubmarks: TTabSheet
      Caption = 'Submarks'
      ClientHeight = 404
      ClientWidth = 525
      object ChartSubmarks: TChart
        Left = 0
        Height = 404
        Top = 0
        Width = 525
        AxisList = <        
          item
            TickLength = 6
            Group = 1
            Marks.Source = udcsMain
            Minors = <>
            Title.LabelFont.Orientation = 900
          end        
          item
            TickLength = 6
            Alignment = calBottom
            Group = 2
            Marks.LabelFont.Style = [fsBold]
            Minors = <            
              item
                Grid.Color = clGray
                Grid.Cosmetic = False
                Marks.Distance = 4
                Marks.LabelFont.Height = -9
                Marks.LabelFont.Orientation = 900
                Marks.Format = '%0:.9g'
                Marks.Style = smsValue
              end>
          end        
          item
            Grid.Visible = False
            TickLength = 2
            Group = 1
            Marks.Source = udcsSub
            Marks.Style = smsNone
            Minors = <>
          end>
        BackColor = clWhite
        Foot.Brush.Color = clBtnFace
        Foot.Font.Color = clBlue
        Title.Brush.Color = clBtnFace
        Title.Font.Color = clBlue
        Title.Text.Strings = (
          'TAChart'
        )
        Align = alClient
        ParentColor = False
        object ChartSubmarksLineSeries1: TLineSeries
          Source = udcsGraph
        end
      end
    end
    object tsDateTime: TTabSheet
      Caption = 'Date and time'
      ClientHeight = 404
      ClientWidth = 525
      object ChartDateTime: TChart
        Left = 0
        Height = 404
        Top = 0
        Width = 525
        AxisList = <        
          item
            Minors = <>
            Title.LabelFont.Orientation = 900
          end        
          item
            Alignment = calBottom
            Marks.Format = '%2:s'
            Marks.OverlapPolicy = opHideNeighbour
            Marks.Source = DateTimeIntervalChartSource1
            Marks.Style = smsLabel
            Minors = <>
          end>
        Foot.Brush.Color = clBtnFace
        Foot.Font.Color = clBlue
        Title.Brush.Color = clBtnFace
        Title.Font.Color = clBlue
        Title.Text.Strings = (
          'The series contain data points for every hour in 10 years'
          'Left/right-click to zoom and see various labels on the bottom axis'
        )
        Title.Visible = True
        Toolset = ChartToolsetDateTime
        Align = alClient
        ParentColor = False
        object ChartDateTimeLineSeries1: TLineSeries
          Source = rcsDates
        end
      end
    end
  end
  object lcsMarks: TListChartSource
    DataPoints.Strings = (
      '1|18000|?|January'
      '2|35000|?|February'
      '3|31000|?|March'
      '4|26000|?|April'
      '5|37000|?|May'
      '6|22000|?|June'
    )
    left = 216
    top = 164
  end
  object rcsDates: TRandomChartSource
    RandSeed = 1079653020
    XMax = 0
    XMin = 0
    YMax = 50
    YMin = 5
    left = 87
    top = 216
  end
  object DateTimeIntervalChartSource1: TDateTimeIntervalChartSource
    left = 352
    top = 232
  end
  object ChartToolsetDateTime: TChartToolset
    left = 440
    top = 232
    object ChartToolset1ZoomIn: TZoomClickTool
      Shift = [ssLeft]
      FixedPoint = True
      ZoomFactor = 4
      ZoomRatio = 0.25
    end
    object ChartToolset1ZoomOut: TZoomClickTool
      Shift = [ssRight]
      FixedPoint = True
      ZoomFactor = 0.25
      ZoomRatio = 4
    end
  end
  object udcsMain: TUserDefinedChartSource
    OnGetChartDataItem = udcsMainGetChartDataItem
    PointsNumber = 10
    left = 440
    top = 60
  end
  object udcsSub: TUserDefinedChartSource
    OnGetChartDataItem = udcsSubGetChartDataItem
    PointsNumber = 50
    left = 440
    top = 112
  end
  object udcsGraph: TUserDefinedChartSource
    OnGetChartDataItem = udcsGraphGetChartDataItem
    PointsNumber = 100
    left = 440
    top = 172
  end
  object csStripes: TChartStyles
    Styles = <    
      item
        Brush.Color = 16631498
        UsePen = False
      end    
      item
        Brush.Color = 12319483
        UsePen = False
      end>
    left = 352
    top = 176
  end
end