object Form1: TForm1 Left = 529 Height = 511 Top = 174 Width = 590 Caption = 'Form1' ClientHeight = 511 ClientWidth = 590 OnCreate = FormCreate OnDestroy = FormDestroy Position = poScreenCenter LCLVersion = '2.1.0.0' object PageControl1: TPageControl Left = 0 Height = 511 Top = 0 Width = 590 ActivePage = TabSheet1 Align = alClient TabIndex = 0 TabOrder = 0 object TabSheet1: TTabSheet Caption = 'Basic' ClientHeight = 483 ClientWidth = 582 object pnControls: TPanel Left = 0 Height = 135 Top = 348 Width = 582 Align = alBottom AutoSize = True BevelOuter = bvNone ClientHeight = 135 ClientWidth = 582 TabOrder = 0 object lblMarginY: TLabel AnchorSideLeft.Control = lblMarginX AnchorSideTop.Control = seMarginY AnchorSideTop.Side = asrCenter Left = 8 Height = 15 Top = 35 Width = 48 Caption = 'Y margin' ParentColor = False end object seMarginY: TSpinEdit AnchorSideLeft.Control = seMarginX AnchorSideTop.Control = seMarginX AnchorSideTop.Side = asrBottom Left = 64 Height = 23 Top = 31 Width = 54 BorderSpacing.Top = 4 MaxValue = 20 OnChange = seMarginYChange TabOrder = 0 Value = 4 end object seSymbolWidth: TSpinEdit AnchorSideLeft.Control = lblSymbolWidth AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = seMarginX Left = 215 Height = 23 Top = 4 Width = 54 BorderSpacing.Left = 8 MaxValue = 50 OnChange = seSymbolWidthChange TabOrder = 1 Value = 20 end object lblSymbolWidth: TLabel AnchorSideLeft.Control = seMarginX AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = seSymbolWidth AnchorSideTop.Side = asrCenter Left = 134 Height = 15 Top = 8 Width = 73 BorderSpacing.Left = 16 Caption = 'Symbol width' ParentColor = False end object rgAlignment: TRadioGroup AnchorSideLeft.Control = seSymbolWidth AnchorSideLeft.Side = asrBottom AnchorSideBottom.Side = asrBottom Left = 285 Height = 135 Top = 0 Width = 289 Align = alRight Anchors = [akTop, akLeft, akRight, akBottom] AutoFill = True BorderSpacing.Left = 16 BorderSpacing.Right = 8 Caption = ' Alignment ' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclTopToBottomThenLeftToRight ChildSizing.ControlsPerLine = 3 ClientHeight = 115 ClientWidth = 285 Columns = 3 ItemIndex = 6 Items.Strings = ( 'TopLeft' 'CenterLeft' 'BottomLeft' 'TopCenter' '' 'BottomCenter' 'TopRight' 'CenterRight' 'BottomRight' ) OnClick = rgAlignmentClick TabOrder = 2 end object cbUseSidebar: TCheckBox AnchorSideLeft.Control = lblMarginX AnchorSideTop.Control = seMarginY AnchorSideTop.Side = asrBottom Left = 8 Height = 19 Top = 62 Width = 59 BorderSpacing.Top = 8 Caption = 'Sidebar' Checked = True OnChange = cbUseSidebarChange State = cbChecked TabOrder = 3 end object lblSpacing: TLabel AnchorSideTop.Control = seSpacing AnchorSideTop.Side = asrCenter AnchorSideRight.Control = lblSymbolWidth AnchorSideRight.Side = asrBottom Left = 165 Height = 15 Top = 35 Width = 42 Anchors = [akTop, akRight] Caption = 'Spacing' ParentColor = False end object seSpacing: TSpinEdit AnchorSideLeft.Control = seSymbolWidth AnchorSideTop.Control = seMarginY Left = 215 Height = 23 Top = 31 Width = 54 MaxValue = 20 OnChange = seSpacingChange TabOrder = 4 Value = 4 end object lblMarginX: TLabel AnchorSideLeft.Control = pnControls AnchorSideTop.Control = seMarginX AnchorSideTop.Side = asrCenter Left = 8 Height = 15 Top = 8 Width = 48 BorderSpacing.Left = 8 Caption = 'X margin' ParentColor = False end object seMarginX: TSpinEdit AnchorSideLeft.Control = lblMarginX AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = pnControls Left = 64 Height = 23 Top = 4 Width = 54 BorderSpacing.Left = 8 BorderSpacing.Top = 4 MaxValue = 20 OnChange = seMarginXChange TabOrder = 5 Value = 4 end object cbSeries: TComboBox AnchorSideRight.Control = seSymbolWidth AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = cbGrid AnchorSideBottom.Side = asrBottom Left = 105 Height = 22 Top = 105 Width = 164 Anchors = [akRight, akBottom] ItemHeight = 16 OnDrawItem = cbSeriesDrawItem Style = csOwnerDrawFixed TabOrder = 6 end object lblColumnCount: TLabel AnchorSideTop.Control = seColumnCount AnchorSideTop.Side = asrCenter AnchorSideRight.Control = lblSymbolWidth AnchorSideRight.Side = asrBottom Left = 159 Height = 15 Top = 62 Width = 48 Anchors = [akTop, akRight] Caption = 'Columns' ParentColor = False end object seColumnCount: TSpinEdit AnchorSideLeft.Control = seSymbolWidth AnchorSideTop.Control = seSpacing AnchorSideTop.Side = asrBottom Left = 215 Height = 23 Top = 58 Width = 54 BorderSpacing.Top = 4 MinValue = 1 OnChange = seColumnCountChange TabOrder = 7 Value = 1 end object cbByRows: TCheckBox AnchorSideLeft.Control = cbUseSidebar AnchorSideTop.Control = cbUseSidebar AnchorSideTop.Side = asrBottom Left = 8 Height = 19 Top = 85 Width = 61 BorderSpacing.Top = 4 Caption = 'By rows' OnChange = cbByRowsChange TabOrder = 8 end object cbGrid: TCheckBox AnchorSideLeft.Control = cbUseSidebar AnchorSideTop.Control = cbByRows AnchorSideTop.Side = asrBottom Left = 8 Height = 19 Top = 108 Width = 42 BorderSpacing.Top = 4 BorderSpacing.Bottom = 8 Caption = 'Grid' OnChange = cbGridChange TabOrder = 9 end end object Chart1: TChart Left = 8 Height = 332 Top = 8 Width = 566 AxisList = < item Visible = False 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 = clSkyBlue Foot.Brush.Color = clBtnFace Foot.Font.Color = clBlue Legend.BackgroundBrush.Color = clMoneyGreen Legend.GridHorizontal.Style = psDot Legend.GridVertical.Style = psDot Legend.GroupFont.Style = [fsBold] Legend.GroupTitles.Strings = ( 'Pie' ) Legend.Visible = True Title.Brush.Color = clBtnFace Title.Font.Color = clBlue Title.Text.Strings = ( 'TAChart' ) Align = alClient BorderSpacing.Around = 8 Color = clOlive object Chart1LineSeries1: TLineSeries Title = 'Line' LinePen.Color = clRed Pointer.Brush.Color = clRed Pointer.Visible = True ShowPoints = True end object Chart1AreaSeries1: TAreaSeries Title = 'Area' AreaBrush.Color = clGreen AreaBrush.Style = bsCross Source = RandomChartSource1 end object Chart1PieSeries1: TPieSeries Legend.Format = '%2:s %1:.2f%%' Legend.GroupIndex = 0 Legend.Multiplicity = lmPoint Marks.Format = '%2:s' Marks.Style = smsLabel Title = 'Pie' Exploded = True Source = ListChartSource2 end object Chart1FuncSeries1: TFuncSeries Legend.Order = 1 Legend.UserItemsCount = 2 Legend.OnDraw = Chart1FuncSeries1DrawLegend Extent.UseXMax = True Extent.UseXMin = True Extent.XMax = 5 Title = 'Function' Pen.Color = clPurple Pen.Width = 2 OnCalculate = Chart1FuncSeries1Calculate end end end object TabSheet2: TTabSheet Caption = 'OwnerDraw' ClientHeight = 483 ClientWidth = 582 object Chart2: TChart Left = 8 Height = 467 Top = 8 Width = 566 AxisList = < item Grid.Color = clSilver Marks.LabelBrush.Style = bsClear Minors = <> Title.LabelFont.Height = -16 Title.LabelFont.Orientation = 900 Title.LabelFont.Style = [fsBold] Title.Visible = True Title.Caption = 'y axis' Title.LabelBrush.Style = bsClear end item Grid.Visible = False Alignment = calBottom Marks.LabelBrush.Style = bsClear Minors = <> Title.LabelFont.Height = -16 Title.LabelFont.Style = [fsBold] Title.Visible = True Title.Caption = 'x axis' Title.LabelBrush.Style = bsClear end> BackColor = clWhite Foot.Brush.Color = clBtnFace Foot.Font.Color = clBlue Legend.Visible = True Title.Brush.Color = clBtnFace Title.Font.Color = clBlue Title.Text.Strings = ( 'TAChart' ) OnDrawLegend = Chart2DrawLegend Align = alClient BorderSpacing.Around = 8 object GradientLineSeries: TLineSeries Title = '1.0' LineType = ltNone Pointer.Style = psCircle Pointer.Visible = True ShowPoints = True end end end end object RandomChartSource1: TRandomChartSource PointsNumber = 7 RandSeed = 104675296 XMax = 10 XMin = 1 YMax = 10 YMin = 1 left = 380 top = 112 end object ListChartSource1: TListChartSource DataPoints.Strings = ( '0|0|?|' '1|2|$00FF00|' '2|5|?|' '3|1|?|' '4|6|?|' ) left = 380 top = 168 end object ListChartSource2: TListChartSource DataPoints.Strings = ( '0|5|?|abcc' '0|6|?|def' '0.20000000000000001|4|?|пример' '0|7|?|ещё' '0|2|?|два слова' ) left = 380 top = 228 end end