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

object Form1: TForm1
  Left = 342
  Height = 437
  Top = 152
  Width = 456
  Caption = 'Form1'
  ClientHeight = 437
  ClientWidth = 456
  DefaultMonitor = dmDesktop
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object Chart1: TChart
    Left = 0
    Height = 367
    Top = 0
    Width = 456
    AxisList = <    
      item
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.LabelFont.Orientation = 900
        Title.LabelBrush.Style = bsClear
      end    
      item
        Alignment = calBottom
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.LabelBrush.Style = bsClear
      end>
    Foot.Brush.Color = clBtnFace
    Foot.Font.Color = clBlue
    Title.Brush.Color = clBtnFace
    Title.Font.Color = clBlue
    Title.Text.Strings = (
      'TAChart'
    )
    Align = alClient
    object Chart1LineSeries1: TLineSeries
      ZPosition = 12
      AxisIndexX = 1
      AxisIndexY = 0
      LinePen.Color = clRed
      LinePen.Style = psDot
      LinePen.Width = 5
      Marks.Format = '%1:.0g%%'
      Marks.Style = smsCustom
      Source = RandomChartSource1
    end
    object Chart1BarSeries1: TBarSeries
      ZPosition = 11
      AxisIndexX = 1
      AxisIndexY = 0
      BarBrush.Color = clMoneyGreen
      Source = RandomChartSource1
    end
    object Chart1AreaSeries1: TAreaSeries
      AxisIndexX = 1
      AxisIndexY = 0
      AreaContourPen.Width = 2
      AreaLinesPen.Color = clRed
      Depth = 10
      Source = RandomChartSource1
      UseZeroLevel = True
    end
  end
  object Panel1: TPanel
    Left = 0
    Height = 62
    Top = 375
    Width = 456
    Align = alBottom
    AutoSize = True
    BevelOuter = bvNone
    ClientHeight = 62
    ClientWidth = 456
    TabOrder = 1
    object cbRotateLine: TCheckBox
      AnchorSideLeft.Control = Panel1
      AnchorSideTop.Control = Panel1
      Left = 8
      Height = 19
      Top = 4
      Width = 81
      BorderSpacing.Left = 8
      BorderSpacing.Top = 4
      Caption = 'Rotate lines'
      OnChange = cbRotateLineChange
      TabOrder = 0
    end
    object cbRotateBar: TCheckBox
      AnchorSideLeft.Control = cbRotateLine
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 105
      Height = 19
      Top = 4
      Width = 79
      BorderSpacing.Left = 16
      BorderSpacing.Top = 4
      Caption = 'Rotate bars'
      OnChange = cbRotateBarChange
      TabOrder = 1
    end
    object cbNegative: TCheckBox
      AnchorSideLeft.Control = cbRotateArea
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 295
      Height = 19
      Top = 4
      Width = 103
      BorderSpacing.Left = 16
      BorderSpacing.Top = 4
      Caption = 'Negative values'
      OnChange = cbNegativeChange
      TabOrder = 2
    end
    object cbRotateArea: TCheckBox
      AnchorSideLeft.Control = cbRotateBar
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = Panel1
      Left = 200
      Height = 19
      Top = 4
      Width = 79
      BorderSpacing.Left = 16
      BorderSpacing.Top = 4
      Caption = 'Rotate area'
      OnChange = cbRotateAreaChange
      TabOrder = 3
    end
    object cbMarkPositions: TComboBox
      AnchorSideLeft.Control = lblMarkPositions
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cbRotateLine
      AnchorSideTop.Side = asrBottom
      Left = 94
      Height = 23
      Top = 31
      Width = 137
      BorderSpacing.Left = 8
      BorderSpacing.Top = 8
      BorderSpacing.Bottom = 8
      ItemHeight = 15
      ItemIndex = 0
      Items.Strings = (
        'Outside'
        'Positive'
        'Negative'
        'Inside'
      )
      OnChange = cbMarkPositionsChange
      Style = csDropDownList
      TabOrder = 4
      Text = 'Outside'
    end
    object lblMarkPositions: TLabel
      AnchorSideLeft.Control = cbRotateLine
      AnchorSideTop.Control = cbMarkPositions
      AnchorSideTop.Side = asrCenter
      Left = 8
      Height = 15
      Top = 35
      Width = 78
      Caption = 'Mark positions'
    end
  end
  object Bevel1: TBevel
    Left = 0
    Height = 8
    Top = 367
    Width = 456
    Align = alBottom
    Shape = bsBottomLine
  end
  object RandomChartSource1: TRandomChartSource
    PointsNumber = 9
    RandSeed = 1376070732
    XMax = 8
    YMax = 15
    YMin = 7
    Left = 352
    Top = 20
  end
end