object Form1: TForm1 Left = 265 Height = 419 Top = 182 Width = 892 Caption = 'TChartListbox demo' ClientHeight = 419 ClientWidth = 892 OnCreate = FormCreate LCLVersion = '2.1.0.0' object Chart: TChart Left = 292 Height = 419 Top = 0 Width = 457 AxisList = < item Grid.Color = clSilver Grid.Style = psSolid Intervals.MaxLength = 100 Marks.LabelBrush.Style = bsClear Minors = < item Grid.Color = clSilver Intervals.MinLength = 5 Intervals.Options = [aipUseCount, aipUseMinLength] Marks.LabelBrush.Style = bsClear end> Title.LabelFont.Orientation = 900 Title.LabelFont.Style = [fsBold] Title.Visible = True Title.Caption = 'y axis' Title.LabelBrush.Style = bsClear end item Grid.Color = clSilver Grid.Style = psSolid Intervals.MaxLength = 100 Alignment = calBottom Marks.LabelBrush.Style = bsClear Minors = < item Grid.Color = clSilver Intervals.MinLength = 5 Intervals.Options = [aipUseCount, aipUseMinLength] Marks.LabelBrush.Style = bsClear end> 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 Title.Brush.Color = clBtnFace Title.Font.Color = clBlue Title.Text.Strings = ( 'TAChart' ) Align = alClient DoubleBuffered = True object SinSeries: TLineSeries Title = 'sin(x)' LinePen.Color = clRed end object CosSeries: TLineSeries Title = 'cos(x)' LinePen.Color = clBlue end end object ListboxPanel: TPanel Left = 754 Height = 419 Top = 0 Width = 138 Align = alRight BevelOuter = bvNone ClientHeight = 419 ClientWidth = 138 TabOrder = 1 object ChartListbox: TChartListbox Left = 6 Height = 407 Top = 6 Width = 126 Chart = Chart OnAddSeries = ChartListboxAddSeries OnCheckboxClick = ChartListboxCheckboxClick OnItemClick = ChartListboxItemClick OnPopulate = ChartListboxPopulate OnSeriesIconDblClick = ChartListboxSeriesIconDblClick Align = alClient BorderSpacing.Around = 6 ItemHeight = 20 TabOrder = 0 end end object Splitter: TSplitter Left = 749 Height = 419 Top = 0 Width = 5 Align = alRight ResizeAnchor = akRight end object Panel1: TPanel Left = 0 Height = 419 Top = 0 Width = 292 Align = alLeft AutoSize = True BevelInner = bvRaised BevelOuter = bvLowered ClientHeight = 419 ClientWidth = 292 TabOrder = 3 object BtnAddSeries: TButton AnchorSideLeft.Control = Panel1 AnchorSideTop.Control = Panel1 AnchorSideRight.Control = BtnDeleteSeries AnchorSideRight.Side = asrBottom Left = 8 Height = 25 Top = 8 Width = 91 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'Add series' OnClick = BtnAddSeriesClick TabOrder = 0 end object BtnToggleCOS: TButton AnchorSideLeft.Control = BtnDeleteSeries AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = BtnDeleteSeries AnchorSideRight.Control = BtnToggleSIN AnchorSideRight.Side = asrBottom Left = 105 Height = 25 Top = 39 Width = 94 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Left = 6 Caption = 'Toggle cos(x)' OnClick = BtnToggleCOSClick TabOrder = 1 end object BtnToggleChart: TButton AnchorSideLeft.Control = BtnAddSeries AnchorSideTop.Control = Memo AnchorSideTop.Side = asrBottom AnchorSideBottom.Control = CbShowCheckboxes Left = 8 Height = 25 Top = 269 Width = 164 Anchors = [akLeft, akBottom] AutoSize = True BorderSpacing.Bottom = 16 Caption = 'Toggle ChartListbox.Chart' OnClick = BtnToggleChartClick TabOrder = 2 end object BtnToggleSIN: TButton AnchorSideLeft.Control = BtnAddSeries AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = BtnAddSeries Left = 105 Height = 25 Top = 8 Width = 94 AutoSize = True BorderSpacing.Left = 6 Caption = 'Toggle sin(x)' OnClick = BtnToggleSINClick TabOrder = 3 end object CbShowCheckboxes: TCheckBox AnchorSideLeft.Control = Panel1 AnchorSideBottom.Control = CbCheckStyle Left = 8 Height = 19 Top = 310 Width = 114 Anchors = [akLeft, akBottom] BorderSpacing.Left = 6 BorderSpacing.Bottom = 12 Caption = 'Show checkboxes' Checked = True OnChange = CbShowCheckboxesChange State = cbChecked TabOrder = 4 end object CbShowSeriesIcon: TCheckBox AnchorSideLeft.Control = CbShowCheckboxes AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = CbShowCheckboxes Left = 146 Height = 19 Top = 310 Width = 112 BorderSpacing.Left = 24 BorderSpacing.Right = 6 Caption = 'Show series icons' Checked = True OnChange = CbShowSeriesIconChange State = cbChecked TabOrder = 5 end object CbCheckStyle: TCheckBox AnchorSideLeft.Control = Panel1 AnchorSideBottom.Control = CbKeepSeriesOut Left = 8 Height = 19 Top = 341 Width = 91 Anchors = [akLeft, akBottom] BorderSpacing.Left = 6 BorderSpacing.Bottom = 32 Caption = 'Radiobuttons' OnChange = CbCheckStyleChange TabOrder = 6 end object Memo: TMemo AnchorSideLeft.Control = Panel1 AnchorSideTop.Control = Label1 AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Panel1 AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = BtnToggleChart Left = 8 Height = 160 Top = 103 Width = 276 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 6 BorderSpacing.Top = 2 BorderSpacing.Right = 6 BorderSpacing.Bottom = 6 ScrollBars = ssAutoVertical TabOrder = 7 end object Label1: TLabel AnchorSideLeft.Control = BtnAddSeries AnchorSideTop.Control = Bevel1 AnchorSideTop.Side = asrBottom Left = 8 Height = 15 Top = 86 Width = 63 BorderSpacing.Top = 6 Caption = 'Click viewer' ParentColor = False end object EdColumns: TSpinEdit AnchorSideLeft.Control = Label2 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Label2 AnchorSideTop.Side = asrCenter Left = 201 Height = 23 Top = 339 Width = 60 Alignment = taRightJustify BorderSpacing.Left = 4 BorderSpacing.Right = 6 MinValue = 1 OnChange = EdColumnsChange TabOrder = 8 Value = 1 end object Label2: TLabel AnchorSideLeft.Control = CbShowSeriesIcon AnchorSideTop.Control = CbCheckStyle AnchorSideTop.Side = asrCenter Left = 146 Height = 15 Top = 343 Width = 51 Caption = 'Columns:' ParentColor = False end object BtnDeleteSeries: TButton AnchorSideLeft.Control = Panel1 AnchorSideTop.Control = BtnAddSeries AnchorSideTop.Side = asrBottom Left = 8 Height = 25 Top = 39 Width = 91 AutoSize = True BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'Delete series' OnClick = BtnDeleteSeriesClick TabOrder = 9 end object CbKeepSeriesOut: TCheckBox AnchorSideLeft.Control = Panel1 AnchorSideBottom.Control = Panel1 AnchorSideBottom.Side = asrBottom Left = 8 Height = 19 Top = 392 Width = 245 Anchors = [akLeft, akBottom] BorderSpacing.Left = 6 BorderSpacing.Right = 6 BorderSpacing.Bottom = 6 Caption = 'Keep sin and cos series out of ChartListBox' OnChange = CbKeepSeriesOutChange TabOrder = 10 end object Bevel1: TBevel AnchorSideLeft.Control = Panel1 AnchorSideTop.Control = BtnDeleteSeries AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Panel1 AnchorSideRight.Side = asrBottom Left = 8 Height = 4 Top = 76 Width = 276 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 6 BorderSpacing.Top = 12 BorderSpacing.Right = 6 Shape = bsBottomLine end object BtnAddPoint: TButton AnchorSideLeft.Control = BtnToggleSIN AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = BtnAddSeries Left = 205 Height = 25 Top = 8 Width = 79 AutoSize = True BorderSpacing.Left = 6 BorderSpacing.Right = 6 Caption = 'Add point' OnClick = BtnAddPointClick TabOrder = 11 end end object RandomChartSource: TRandomChartSource PointsNumber = 10 RandSeed = 1603921857 XMax = 10 YMax = 1 YMin = -1 Left = 496 Top = 80 end object ColorDialog: TColorDialog Color = clBlack CustomColors.Strings = ( 'ColorA=000000' 'ColorB=000080' 'ColorC=008000' 'ColorD=008080' 'ColorE=800000' 'ColorF=800080' 'ColorG=808000' 'ColorH=808080' 'ColorI=C0C0C0' 'ColorJ=0000FF' 'ColorK=00FF00' 'ColorL=00FFFF' 'ColorM=FF0000' 'ColorN=FF00FF' 'ColorO=FFFF00' 'ColorP=FFFFFF' 'ColorQ=C0DCC0' 'ColorR=F0CAA6' 'ColorS=F0FBFF' 'ColorT=A4A0A0' ) Left = 496 Top = 128 end end