object ShapesForm: TShapesForm Left = 125 Top = 49 Width = 592 Height = 398 Caption = 'TeeChart. TChartShape Component Example' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 Position = poDefault WindowState = wsMaximized OnCreate = FormCreate TextHeight = 13 object Chart1: TChart Left = 153 Top = 57 Width = 431 Height = 314 BottomWall.Color = clWhite Foot.Font.Color = clRed Foot.Font.Height = -11 Foot.Font.Name = 'Arial' Foot.Font.Style = [fsItalic] Foot.Frame.Color = clScrollBar LeftWall.Color = 8454143 Title.Frame.Color = clScrollBar Title.Text.Strings = ( 'TChart Component') BottomAxis.Grid.Color = clScrollBar LeftAxis.Grid.Color = clScrollBar Legend.Alignment = laTop Legend.Visible = False RightAxis.Grid.Color = clScrollBar TopAxis.Grid.Color = clScrollBar Align = alClient TabOrder = 0 object LineSeries1: TLineSeries Marks.ArrowLength = 8 Marks.Visible = False SeriesColor = clRed Pointer.InflateMargins = True Pointer.Style = psRectangle Pointer.Visible = False XValues.DateTime = True XValues.Name = 'X' XValues.Multiplier = 1.000000000000000000 XValues.Order = loAscending YValues.DateTime = False YValues.Name = 'Y' YValues.Multiplier = 1.000000000000000000 YValues.Order = loNone Left = 391 Top = 130 end object ChartShape3: TChartShape Cursor = crCross Marks.ArrowLength = 8 Marks.Visible = False OnClick = ChartShape3Click Brush.Style = bsDiagCross Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Style = chasRectangle X0 = 729090.000000000000000000 X1 = 729108.000000000000000000 Y0 = 549.500000000000000000 Y1 = 1742.000000000000000000 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 Left = 161 Top = 206 end object LineSeries2: TLineSeries Marks.ArrowLength = 8 Marks.Visible = False SeriesColor = clYellow Pointer.InflateMargins = True Pointer.Style = psRectangle Pointer.Visible = False XValues.DateTime = True XValues.Name = 'X' XValues.Multiplier = 1.000000000000000000 XValues.Order = loAscending YValues.DateTime = False YValues.Name = 'Y' YValues.Multiplier = 1.000000000000000000 YValues.Order = loNone Left = 345 Top = 130 end object ChartShape2: TChartShape Marks.ArrowLength = 8 Marks.Visible = False Brush.Color = clRed Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Pen.Color = clLime Style = chasLine X0 = 729090.000000000000000000 X1 = 729108.000000000000000000 Y0 = 692.750000000000000000 Y1 = 2915.500000000000000000 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 Left = 161 Top = 158 end object ChartShape1: TChartShape Marks.ArrowLength = 8 Marks.Visible = False Brush.Color = 8454016 Font.Color = clBlack Font.Height = -21 Font.Name = 'Arial' Font.Style = [] Text.Strings = ( 'Hello' 'Tee' 'World !') Pen.Color = clNavy Pen.Width = 2 X0 = 729090.000000000000000000 X1 = 729108.000000000000000000 Y0 = 737.250000000000000000 Y1 = 3803.500000000000000000 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 Left = 157 Top = 108 end end object Panel1: TPanel Left = 0 Top = 0 Width = 584 Height = 57 Align = alTop TabOrder = 1 object Label1: TLabel Left = 19 Top = 4 Width = 402 Height = 19 Caption = 'The Line and Ellipse are TChartShape components.' Font.Color = clNavy Font.Height = -17 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 19 Top = 28 Width = 426 Height = 19 Caption = 'Zoom or Scroll to see how shapes follow Chart Series.' Font.Color = clNavy Font.Height = -17 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end end object Panel2: TPanel Left = 0 Top = 57 Width = 153 Height = 314 Align = alLeft TabOrder = 2 object BitBtn2: TBitBtn Left = 26 Top = 256 Width = 89 Height = 33 Caption = 'Close' TabOrder = 0 Kind = bkClose end object Memo1: TMemo Left = 16 Top = 44 Width = 121 Height = 161 Lines.Strings = ( 'Shapes are simple ' 'Series components ' 'with special formatting ' 'attributes.' '' 'Zoom and scrolling' 'is also possible with' 'Shapes.') TabOrder = 1 end end end