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

object Form1: TForm1
  Left = 386
  Height = 373
  Top = 218
  Width = 471
  Caption = 'Form1'
  ClientHeight = 373
  ClientWidth = 471
  OnCreate = FormCreate
  Position = poScreenCenter
  LCLVersion = '0.9.29'
  object PageControl1: TPageControl
    Left = 0
    Height = 373
    Top = 0
    Width = 471
    ActivePage = tsStackedArea
    Align = alClient
    TabIndex = 3
    TabOrder = 0
    object tsBubble: TTabSheet
      Caption = 'Bubble'
      ClientHeight = 347
      ClientWidth = 463
      object chBubble: TChart
        Left = 0
        Height = 347
        Top = 0
        Width = 463
        AxisList = <        
          item
            Title.LabelFont.Orientation = 900
          end        
          item
            Alignment = calBottom
            Marks.Distance = 0
            Marks.DistanceToCenter = True
            Marks.LabelBrush.Style = bsSolid
            TickLength = 0
          end>
        Foot.Brush.Color = clBtnFace
        Foot.Font.Color = clBlue
        Proportional = True
        Title.Brush.Color = clBtnFace
        Title.Font.Color = clBlue
        Title.Text.Strings = (
          'TAChart'
        )
        Align = alClient
        ParentColor = False
        object Chart1BubbleSeries1: TBubbleSeries
          Marks.Distance = 0
          Marks.DistanceToCenter = True
          Marks.Format = '%0:.9g'
          Marks.Style = smsValue
          BubbleBrush.Color = clRed
          BubbleBrush.Style = bsDiagCross
          Source = lcsBubble
        end
      end
    end
    object tsStackedBar: TTabSheet
      Caption = 'Stacked bars'
      ClientHeight = 347
      ClientWidth = 463
      object chStackedBars: TChart
        Left = 0
        Height = 347
        Top = 0
        Width = 463
        AxisList = <        
          item
            Title.LabelFont.Orientation = 900
          end        
          item
            Alignment = calBottom
          end>
        Depth = 10
        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 chStackedBarsBarSeries1: TBarSeries
          ZPosition = 10
          BarBrush.Color = clRed
          Depth = 10
          Source = rcsStacked
        end
      end
    end
    object tsStackedLines: TTabSheet
      Caption = 'Stacked lines'
      ClientHeight = 347
      ClientWidth = 463
      object chStackedLines: TChart
        Left = 0
        Height = 347
        Top = 0
        Width = 463
        AxisList = <        
          item
            Title.LabelFont.Orientation = 900
          end        
          item
            Alignment = calBottom
          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
        object chStackedLinesLineSeries1: TLineSeries
          Depth = 10
          LinePen.Color = clYellow
          Source = rcsStacked
        end
      end
    end
    object tsStackedArea: TTabSheet
      Caption = 'Stacked area'
      ClientHeight = 347
      ClientWidth = 463
      object chStackedArea: TChart
        Left = 0
        Height = 347
        Top = 0
        Width = 463
        AxisList = <        
          item
            Title.LabelFont.Orientation = 900
          end        
          item
            Alignment = calBottom
          end>
        Depth = 10
        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 chStackedAreaAreaSeries1: TAreaSeries
          ZPosition = 5
          AreaBrush.Color = clMaroon
          AreaContourPen.Color = clGreen
          AreaContourPen.EndCap = pecSquare
          AreaContourPen.Width = 2
          Depth = 10
          Source = rcsStacked
          UseZeroLevel = True
          ZeroLevel = 1
        end
      end
    end
    object tsWhiskers: TTabSheet
      Caption = 'Box-and-whiskers'
      ClientHeight = 347
      ClientWidth = 463
      object chWhiskers: TChart
        Left = 0
        Height = 347
        Top = 0
        Width = 463
        AxisList = <        
          item
            Grid.Visible = False
            Title.LabelFont.Orientation = 900
          end        
          item
            Alignment = calBottom
          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
        object chWhiskersBoxAndWhiskerSeries1: TBoxAndWhiskerSeries
          BoxBrush.Color = clGreen
          MedianPen.Color = clLime
          MedianPen.Width = 2
          WhiskersPen.Color = clBlue
        end
      end
    end
  end
  object lcsBubble: TListChartSource
    DataPoints.Strings = (
      '10|50|3|?|'
      '20|30|1|?|'
      '50|40|6|?|'
      '80|60|2|?|'
      '60|50|15|?|'
      '35|20|9|?|'
    )
    YCount = 2
    left = 130
    top = 65
  end
  object rcsStacked: TRandomChartSource
    PointsNumber = 9
    RandSeed = 317042356
    XMax = 9
    XMin = 1
    YCount = 3
    YMax = 20
    YMin = 3
    left = 244
    top = 65
  end
end