object Form1: TForm1 Left = 318 Height = 300 Top = 151 Width = 400 Caption = 'Form1' ClientHeight = 300 ClientWidth = 400 OnCreate = FormCreate LCLVersion = '0.9.29' object Chart1: TChart Left = 0 Height = 300 Top = 0 Width = 400 AxisList = < item Alignment = calLeft Offset = 0 Scale = 1 Title.Font.Orientation = 900 end item Alignment = calBottom Offset = 0 Scale = 1 end> Foot.Brush.Color = clBtnFace Foot.Font.Color = clBlue Title.Brush.Color = clBtnFace Title.Font.Color = clBlue Title.Text.Strings = ( 'You can drag data points' 'while holding Shift key' ) Title.Visible = True Align = alClient DoubleBuffered = True ParentColor = False OnMouseDown = Chart1MouseDown OnMouseMove = Chart1MouseMove OnMouseUp = Chart1MouseUp object Chart1LineSeries1: TLineSeries Marks.Clipped = False Marks.Format = '%0:g' Marks.Style = smsValue OnGetMark = Chart1LineSeries1GetMark Pointer.Brush.Color = clPurple Pointer.HorizSize = 6 Pointer.Style = psDiamond Pointer.VertSize = 6 SeriesColor = clBlack ShowPoints = True end end end