object Form1: TForm1 Left = 280 Height = 334 Top = 130 Width = 725 Caption = 'Form1' ClientHeight = 334 ClientWidth = 725 LCLVersion = '2.3.0.0' object Chart1: TChart Left = 0 Height = 296 Top = 0 Width = 601 AxisList = < item Grid.Color = clSilver Grid.Style = psSolid Marks.LabelBrush.Style = bsClear Minors = <> Title.LabelFont.Orientation = 900 Title.LabelBrush.Style = bsClear end item Grid.Visible = False Alignment = calBottom Marks.LabelBrush.Style = bsClear Minors = <> 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' ) Align = alClient object Chart1BarSeries1: TBarSeries Legend.Multiplicity = lmStyle BarBrush.Color = clRed Source = CalculatedChartSource1 Styles = ChartStyles1 end end object Panel1: TPanel Left = 0 Height = 38 Top = 296 Width = 725 Align = alBottom BevelOuter = bvNone ClientHeight = 38 ClientWidth = 725 TabOrder = 1 object BtnAddBar: TButton AnchorSideLeft.Control = Panel1 AnchorSideTop.Control = Panel1 AnchorSideTop.Side = asrCenter Left = 8 Height = 25 Top = 7 Width = 68 AutoSize = True BorderSpacing.Left = 8 Caption = 'Add bar' OnClick = BtnAddBarClick TabOrder = 0 end object BtnAddLevel: TButton AnchorSideLeft.Control = BtnAddBar AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Panel1 AnchorSideTop.Side = asrCenter Left = 84 Height = 25 Top = 7 Width = 75 AutoSize = True BorderSpacing.Left = 8 Caption = 'Add level' OnClick = BtnAddLevelClick TabOrder = 1 end object CbPercent: TCheckBox AnchorSideLeft.Control = BtnAddLevel AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Panel1 AnchorSideTop.Side = asrCenter Left = 167 Height = 19 Top = 10 Width = 48 BorderSpacing.Left = 8 Caption = '100%' OnChange = CbPercentChange TabOrder = 2 end object BtnDelete: TButton AnchorSideTop.Control = Panel1 AnchorSideTop.Side = asrCenter AnchorSideRight.Control = Panel1 AnchorSideRight.Side = asrBottom Left = 612 Height = 25 Top = 7 Width = 105 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Right = 8 Caption = 'Delete selected' Enabled = False OnClick = BtnDeleteClick TabOrder = 3 end end object ListBox1: TListBox Left = 609 Height = 280 Top = 8 Width = 108 Align = alRight BorderSpacing.Around = 8 ItemHeight = 0 TabOrder = 2 end object ListChartSource1: TListChartSource Left = 117 Top = 57 end object CalculatedChartSource1: TCalculatedChartSource Origin = ListChartSource1 Left = 116 Top = 112 end object ChartStyles1: TChartStyles Styles = <> Left = 268 Top = 58 end end