object Form1: TForm1 Left = 406 Height = 354 Top = 135 Width = 752 Caption = 'Form1' ClientHeight = 354 ClientWidth = 752 LCLVersion = '2.3.0.0' object Chart1: TChart Left = 0 Height = 354 Top = 0 Width = 634 AxisList = < item Marks.LabelBrush.Style = bsClear Minors = <> Title.LabelFont.Orientation = 900 Title.LabelBrush.Style = bsClear end item Visible = False Alignment = calBottom Marks.LabelBrush.Style = bsClear Minors = <> Title.LabelBrush.Style = bsClear end> BackColor = clCream Foot.Brush.Color = clBtnFace Foot.Font.Color = clBlue Title.Brush.Color = clBtnFace Title.Font.Color = clBlue Title.Text.Strings = ( 'TAChart' ) OnAfterDrawBackground = Chart1AfterDrawBackground OnAfterPaint = Chart1AfterPaint Align = alClient object Chart1LineSeries1: TLineSeries LineType = ltNone Pointer.HorizSize = 1 Pointer.OverrideColor = [ocBrush, ocPen] Pointer.VertSize = 1 Pointer.Visible = True ShowPoints = True end object Chart1ManhattanSeries1: TManhattanSeries Source = UserDefinedChartSource1 end end object pnlControls: TPanel Left = 634 Height = 354 Top = 0 Width = 118 Align = alRight AutoSize = True ClientHeight = 354 ClientWidth = 118 TabOrder = 1 object btnGenerate: TButton AnchorSideLeft.Control = pnlControls AnchorSideTop.Control = seCount AnchorSideTop.Side = asrBottom AnchorSideRight.Control = pnlControls AnchorSideRight.Side = asrBottom Left = 9 Height = 25 Top = 40 Width = 100 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Left = 8 BorderSpacing.Top = 8 BorderSpacing.Right = 8 Caption = 'Generate' OnClick = btnGenerateClick TabOrder = 0 end object lblTime: TLabel AnchorSideLeft.Control = btnGenerate AnchorSideTop.Control = btnGenerate AnchorSideTop.Side = asrBottom Left = 9 Height = 15 Top = 89 Width = 29 BorderSpacing.Top = 24 Caption = 'Time:' WordWrap = True end object seCount: TFloatSpinEdit AnchorSideLeft.Control = pnlControls AnchorSideTop.Control = pnlControls AnchorSideRight.Control = pnlControls AnchorSideRight.Side = asrBottom Left = 9 Height = 23 Top = 9 Width = 100 Alignment = taRightJustify Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 8 Constraints.MinWidth = 100 DecimalPlaces = 0 Increment = 100000 MaxValue = 100000000 TabOrder = 1 Value = 1000000 end end object UserDefinedChartSource1: TUserDefinedChartSource OnGetChartDataItem = UserDefinedChartSource1GetChartDataItem Left = 284 Top = 80 end end