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

object Form1: TForm1
  Left = 1326
  Height = 414
  Top = 177
  Width = 496
  Caption = 'Form1'
  ClientHeight = 414
  ClientWidth = 496
  Position = poScreenCenter
  LCLVersion = '0.9.31'
  object pcMain: TPageControl
    Left = 0
    Height = 364
    Top = 0
    Width = 496
    ActivePage = tsBar
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object tsBar: TTabSheet
      Caption = 'Bar'
      ClientHeight = 338
      ClientWidth = 488
      object Chart1: TChart
        Left = 0
        Height = 338
        Top = 0
        Width = 488
        AxisList = <        
          item
            Marks.LabelBrush.Color = clSkyBlue
            Marks.LabelBrush.Style = bsSolid
            Title.LabelFont.Orientation = 900
            Title.Visible = True
            Title.Caption = 'Left axis title'
            Title.LabelBrush.Style = bsSolid
          end        
          item
            Alignment = calBottom
            Marks.LabelBrush.Color = clSkyBlue
            Marks.LabelBrush.Style = bsSolid
            Title.Visible = True
            Title.Caption = 'Bottom axis title'
            Title.Frame.Style = psSolid
          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 Chart1BarSeries1: TBarSeries
          Marks.Format = '%1:.2f%%'
          Marks.Style = smsPercent
          BarBrush.Color = clRed
          Source = RandomChartSource1
        end
      end
    end
    object Multiline: TTabSheet
      Caption = 'Multiline'
      ClientHeight = 338
      ClientWidth = 488
      object ChartMulti: TChart
        Left = 0
        Height = 338
        Top = 0
        Width = 488
        AxisList = <        
          item
            Marks.LabelFont.Orientation = 900
            Marks.Frame.Style = psSolid
            Title.LabelFont.Orientation = 900
            OnMarkToText = ChartMultiAxisList1MarkToText
          end        
          item
            Alignment = calBottom
            Marks.Frame.Style = psSolid
            Title.Visible = True
            Title.Caption = 'test'
            OnMarkToText = ChartMultiAxisList1MarkToText
          end>
        Foot.Brush.Color = clBtnFace
        Foot.Font.Color = clBlue
        Foot.Text.Strings = (
          'TAChart'
        )
        Title.Brush.Color = clBtnFace
        Title.Font.Color = clBlue
        Title.Text.Strings = (
          'Chart'
          'title'
        )
        Title.Visible = True
        Align = alClient
        ParentColor = False
        object ChartMultiLineSeries1: TLineSeries
          Source = RandomChartSource1
        end
      end
    end
  end
  object pnlControls: TPanel
    Left = 0
    Height = 50
    Top = 364
    Width = 496
    Align = alBottom
    BevelOuter = bvNone
    ClientHeight = 50
    ClientWidth = 496
    TabOrder = 1
    object cbHideOverlapping: TCheckBox
      Left = 352
      Height = 17
      Top = 16
      Width = 130
      Caption = 'Hide overlapping labels'
      OnChange = cbHideOverlappingChange
      TabOrder = 0
    end
    object gbAngles: TGroupBox
      Left = 0
      Height = 50
      Top = 0
      Width = 312
      Align = alLeft
      Caption = ' Angles '
      ClientHeight = 32
      ClientWidth = 308
      TabOrder = 1
      object seAxisAngle: TSpinEdit
        Left = 32
        Height = 21
        Top = 4
        Width = 50
        Increment = 5
        MaxValue = 360
        MinValue = -360
        OnChange = seAxisAngleChange
        TabOrder = 0
      end
      object lblAxisAngle: TLabel
        Left = 6
        Height = 14
        Top = 8
        Width = 21
        Caption = 'Axis'
        ParentColor = False
      end
      object lblSeriesAngle: TLabel
        Left = 98
        Height = 14
        Top = 8
        Width = 30
        Caption = 'Series'
        ParentColor = False
      end
      object seSeriesAngle: TSpinEdit
        Left = 134
        Height = 21
        Top = 4
        Width = 50
        Increment = 5
        MaxValue = 360
        MinValue = -360
        OnChange = seSeriesAngleChange
        TabOrder = 1
      end
      object lblTitleAngle: TLabel
        Left = 202
        Height = 14
        Top = 8
        Width = 21
        Caption = 'Title'
        ParentColor = False
      end
      object seTitleAngle: TSpinEdit
        Left = 226
        Height = 21
        Top = 4
        Width = 50
        Increment = 5
        MaxValue = 360
        MinValue = -360
        OnChange = seTitleAngleChange
        TabOrder = 2
      end
    end
  end
  object RandomChartSource1: TRandomChartSource
    PointsNumber = 15
    RandSeed = 567673250
    XMax = 15
    XMin = 0
    YMax = 15
    YMin = 10
    left = 342
    top = 94
  end
end