object Form1: TForm1 Left = 280 Height = 334 Top = 130 Width = 725 Caption = 'Form1' ClientHeight = 334 ClientWidth = 725 LCLVersion = '1.7' object Chart1: TChart Left = 0 Height = 296 Top = 0 Width = 601 AxisList = < item Grid.Color = clSilver Grid.Style = psSolid Minors = <> Title.LabelFont.Orientation = 900 end item Grid.Visible = False Alignment = calBottom Minors = <> 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 Left = 11 Height = 25 Top = 4 Width = 75 Caption = 'Add bar' OnClick = BtnAddBarClick TabOrder = 0 end object BtnAddLevel: TButton Left = 99 Height = 25 Top = 4 Width = 75 Caption = 'Add level' OnClick = BtnAddLevelClick TabOrder = 1 end object CbPercent: TCheckBox Left = 191 Height = 19 Top = 7 Width = 48 Caption = '100%' OnChange = CbPercentChange TabOrder = 2 end object BtnDelete: TButton Left = 610 Height = 25 Top = 4 Width = 107 Anchors = [akTop, akRight] 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