home *** CD-ROM | disk | FTP | other *** search
- object MultiRowLegendForm: TMultiRowLegendForm
- Left = 200
- Top = 108
- Width = 467
- Height = 415
- Caption = 'Horizontal Legend supporting multiple rows'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 459
- Height = 89
- Align = alTop
- Caption = 'Panel1'
- TabOrder = 0
- object Memo1: TMemo
- Left = 8
- Top = 6
- Width = 321
- Height = 75
- Lines.Strings = (
- 'When the Legend position is "horizontal" ( top or bottom ),'
- 'the maximum number of rows can be specified using the'
- 'Legend "MaxNumRows" property.')
- TabOrder = 0
- end
- object Button1: TButton
- Left = 367
- Top = 55
- Width = 75
- Height = 25
- Caption = 'Close'
- Default = True
- TabOrder = 1
- OnClick = Button1Click
- end
- object CheckBox1: TCheckBox
- Left = 344
- Top = 16
- Width = 97
- Height = 17
- Caption = '&Show Values'
- TabOrder = 2
- OnClick = CheckBox1Click
- end
- end
- object Chart1: TChart
- Left = 0
- Top = 89
- Width = 459
- Height = 299
- BackWall.Brush.Color = clWhite
- BackWall.Brush.Style = bsClear
- Title.Text.Strings = (
- 'TChart')
- Title.Visible = False
- BottomAxis.EndPosition = 100.000000000000000000
- LeftAxis.EndPosition = 100.000000000000000000
- Legend.Alignment = laTop
- Legend.Font.Color = clBlack
- Legend.Font.Height = -19
- Legend.Font.Name = 'Arial'
- Legend.Font.Style = []
- RightAxis.EndPosition = 100.000000000000000000
- TopAxis.EndPosition = 100.000000000000000000
- Align = alClient
- TabOrder = 1
- object Series4: TBarSeries
- Marks.ArrowLength = 20
- Marks.Visible = True
- SeriesColor = clBlue
- Title = 'Blue Seas'
- XValues.DateTime = False
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Bar'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- end
- object Series2: TPointSeries
- Marks.ArrowLength = 0
- Marks.Visible = False
- SeriesColor = clGreen
- Title = 'Green Fields'
- Pointer.InflateMargins = True
- Pointer.Style = psRectangle
- Pointer.Visible = True
- XValues.DateTime = False
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- end
- object Series3: TLineSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- SeriesColor = clYellow
- Title = 'Yellow Sun'
- Pointer.InflateMargins = True
- Pointer.Style = psRectangle
- Pointer.Visible = False
- XValues.DateTime = False
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- end
- object Series1: TLineSeries
- Marks.ArrowLength = 8
- Marks.Visible = False
- SeriesColor = clWhite
- Title = 'White Cloud'
- Pointer.InflateMargins = True
- Pointer.Style = psRectangle
- Pointer.Visible = False
- XValues.DateTime = False
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- end
- object Series5: TPointSeries
- Marks.ArrowLength = 0
- Marks.Visible = False
- SeriesColor = clFuchsia
- Title = 'Pink Panther'
- Pointer.InflateMargins = True
- Pointer.Style = psRectangle
- Pointer.Visible = True
- XValues.DateTime = False
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Y'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- end
- end
- end
-