lazarus/components/tachart/demo/listbox/Unit1.lfm

object Form1: TForm1
  Left = 265
  Height = 412
  Top = 182
  Width = 892
  Caption = 'TChartListbox demo'
  ClientHeight = 412
  ClientWidth = 892
  OnCreate = FormCreate
  LCLVersion = '2.1.0.0'
  object Chart: TChart
    Left = 292
    Height = 412
    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
    Legend.Alignment = laBottomCenter
    Legend.ColumnCount = 4
    Legend.Visible = True
    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
    object ExpSeries: TLineSeries
      Title = 'exp(-x)'
      LinePen.Color = clGreen
    end
    object GaussSeries: TLineSeries
      Title = 'gaussian(x)'
      LinePen.Color = clFuchsia
    end
  end
  object ListboxPanel: TPanel
    Left = 754
    Height = 412
    Top = 0
    Width = 138
    Align = alRight
    BevelOuter = bvNone
    ClientHeight = 412
    ClientWidth = 138
    TabOrder = 1
    object ChartListbox: TChartListbox
      AnchorSideBottom.Control = Panel2
      Left = 6
      Height = 372
      Hint = 'Move up'
      Top = 6
      Width = 126
      Chart = Chart
      OnAddSeries = ChartListboxAddSeries
      OnCheckboxClick = ChartListboxCheckboxClick
      OnItemClick = ChartListboxItemClick
      OnPopulate = ChartListboxPopulate
      OnSeriesIconDblClick = ChartListboxSeriesIconDblClick
      Anchors = [akTop, akLeft, akBottom]
      BorderSpacing.Around = 6
      ItemHeight = 20
      TabOrder = 0
    end
    object Panel2: TPanel
      Left = 0
      Height = 22
      Top = 384
      Width = 138
      Align = alBottom
      AutoSize = True
      BorderSpacing.Bottom = 6
      BevelOuter = bvNone
      ClientHeight = 22
      ClientWidth = 138
      TabOrder = 1
      object BtnUp: TSpeedButton
        AnchorSideRight.Control = BtnDown
        AnchorSideBottom.Control = Panel2
        AnchorSideBottom.Side = asrBottom
        Left = 31
        Height = 22
        Top = 0
        Width = 23
        Anchors = [akRight, akBottom]
        BorderSpacing.Right = 4
        Images = ImageList
        ImageIndex = 1
        OnClick = BtnUpClick
      end
      object BtnDown: TSpeedButton
        AnchorSideLeft.Control = Panel2
        AnchorSideLeft.Side = asrCenter
        AnchorSideTop.Control = BtnUp
        Left = 58
        Height = 22
        Hint = 'Move down'
        Top = 0
        Width = 23
        Images = ImageList
        ImageIndex = 0
        OnClick = BtnDownClick
      end
      object BtnSort: TSpeedButton
        AnchorSideLeft.Control = BtnDown
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = BtnUp
        Left = 85
        Height = 22
        Hint = 'Sort by title'
        Top = 0
        Width = 23
        BorderSpacing.Left = 4
        Images = ImageList
        ImageIndex = 2
        OnClick = BtnSortClick
      end
    end
  end
  object Splitter: TSplitter
    Left = 749
    Height = 412
    Top = 0
    Width = 5
    Align = alRight
    ResizeAnchor = akRight
  end
  object Panel1: TPanel
    Left = 0
    Height = 412
    Top = 0
    Width = 292
    Align = alLeft
    AutoSize = True
    BevelInner = bvRaised
    BevelOuter = bvLowered
    ClientHeight = 412
    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 = 263
      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 = 304
      Width = 114
      Anchors = [akLeft, akBottom]
      BorderSpacing.Left = 6
      BorderSpacing.Bottom = 8
      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 = 304
      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 = CbInverted
      Left = 8
      Height = 19
      Top = 331
      Width = 91
      Anchors = [akLeft, akBottom]
      BorderSpacing.Left = 6
      BorderSpacing.Bottom = 8
      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 = 154
      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 = 329
      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 = 333
      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 = 385
      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
    object CbInverted: TCheckBox
      AnchorSideLeft.Control = CbKeepSeriesOut
      AnchorSideBottom.Control = CbKeepSeriesOut
      Left = 8
      Height = 19
      Top = 358
      Width = 63
      Anchors = [akLeft, akBottom]
      BorderSpacing.Bottom = 8
      Caption = 'Inverted'
      OnChange = CbInvertedChange
      TabOrder = 12
    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 = 152
  end
  object ImageList: TImageList
    Left = 808
    Top = 320
    Bitmap = {
      4C7A0300000010000000100000002D0200000000000078DA6360189C607FB5FB
      E77D55AEFF4118C426553F48DFFF33ABC018C41E69FA7757B8C0F583D8A4EADF
      52E208D70F6213AB6F7D81FDB375F976FF37153BFF86E907B14162203942FA97
      E7DA7AAF2974FAF679DF2CB8FD5FF6CFFDBFB6D0F9DBF23CFB4062DCB024D336
      634DB1FB971F4717FDFF796CF1FFB5251E5F16E7D8E493E2FFF9E9B6FDEB2B02
      3E6FA8F0FF3A3FC36E02A9E1070C30C659A936EB4118C4661805740D3F4AE28F
      92F44369FADD50E800C93F2548F9A704927F4072B4CEBFD42A3F467AF94B69FD
      3550E0749DD88D3375E24F5685323093AAF74CADB8F9E93AF19F207CAA4EDC19
      234F1FC8FE0FC238EDAE179F7CAA567C33089FAE9358842EFF7347E27F10C61A
      DE0D0C2C407B5F9CAE158B3B5527160D647F395226C28BACE6D386F0FF208C4D
      FFC906711FA09EFF40BF5F05D25740EC53B51209C86ADEACF0F90FC2D8C34D7C
      05101F3B5D2B9E06C5FB411859CDB3054EFF41185DEF8906213EA0DEAFC0F08B
      828901C3CF1728F6EF7483B8124CECC10C8BFF204C6EDCDE9CA0F71F84B1CB5E
      DDC2C070E53F2ABEBA0E59C5E50E95FF208C43BF0A03C3256308BED20CC47F81
      3A8290559C6D90FC0FC2F85D79CD02A8F72B502FBCBC3D5AC137FF5805FF7F64
      0C12C3E2066DA0DE7740DC8B2CBAB38481FB4021EBD50305ACFFC118C80689A1
      EABD2803D4F708885701532A13467990CDA0BD3787E10B0883D868F6F200F55D
      87E0AB5AC0305082E0CBB2C8AAF6E632248030F6B0430F7B30BE46EBFC0E00D9
      C2FB81
    }
    BitmapAdv = {
      4C69020000004C7A030000001800000018000000D50300000000000078DAED98
      5B481451188027BA3C280459BA5B419650041A3D1404B96A79290DED06EB4318
      D8CD5A2F99B66A29AE07BAA02FF9509482B1DECA34DD954D22235DB29BB94B17
      5BBB503D0419095D30772A8B3CFDFFECA4EBEECEECAAB3E1C31EF8F0E7CC3F9F
      33FF9C33FF28C3F8C65406659819C6A2CD439D8571D41E9CC36352F8D1474D8D
      949A9B6C40CCCDF9FC3EFF34F0DF2C8871F2737312F9AFE7453BF9B93989FC86
      DC0D4E7E6E6E0A7EFD91A87E5D7624450C47637E3BF961EEDF71CC9DA8BF314B
      11ABCB8D61BFDE3C3FE67560F0D605AACF8DFE7E35333C6132F7D09019B9AB25
      2796B51AAB9CDC6CD745AACB8D63AFA8147BA652FF7A55445673CE26F6C79DEA
      51F7CFBBB554A78E672F6744E549F18EAE51294A9BD509D6E17B75F4D7837AAA
      CF4FB4D6A9224BA5EC03DAB4F06A43E176ABA168075B7D505123759F69522A67
      56A5851B108C7D9DD737A6D3F0F6FAB4EDAF9D5ED95FB5871465BAFCC4217C37
      FCEEBE445B8F250DD5A6479449E1F6E6FBCD93F773438662EF64DC9EF5970AE8
      2FB16CE3E1C82D13F5B7E66CF830DA1FD52EFAA37AAC3F62EE74EBEFFFF3FBC4
      DBDF57BEEF5B9F7F3AFBBDF9F7B56FB81E3D2430DEAC91179834B26DDEF89F09
      78DF02B447231B30A731B305738DE90A7A3BA38003624FFC6612A840F73FE077
      2409E5FE31A69311A38A22187BE20767057ACD25415ADBEF90370BE50EB7EF27
      BFDAF751046377EE3E123A079C9F806FDD24602EFCFC020C3F3CBE78BEAB7CF6
      5A0AF9DE9642118CDDF91F6A8276F0D75CCBD58ABF07B32648E52A7F509F4C06
      F54A6A23D9ADDF542C6FE16A5E2C4F37115908D4FE00FF1CBA5DE57F6EDC4A00
      CA23EAEF3DB6641E787EDA3F5B7BCC64D14AC77306EAE2C940FD66CA01B1F8B5
      CBD2F8DA3C3295C82A47816BB7D54876DAF19C7E6D34E9D76EA436A245FD3D9A
      A02EAE36B0B7C6ADD762D93ADEFFBE49C98CFB767E57B99E009447D0FFA86861
      30384670BDE01A725EB3F257DCBD1159ACFDFCEBB36BC99B736B2882B1D47BFD
      45791879591E46118CDDAC7E25C3582A8579BEDDF18C67652B88A56C39453016
      F75BCE005498BE538E673C3EB1943C39194C118CDDDC2DECD1DE90F13CCBE3FD
      5FC11FEAF45C889C984BE414C17862D5ED8D02EF0F6018DC31A3EBAC2020F4C1
      F17956800A60C51C37EE55E0FD028CC03DEC763CDA95E79F7A47ED475D81C7C4
      DD4F9781F7035F977CA12C63F64C2D401DD08ABB5F2D805ABCE4DD956299ED6A
      C6BF2393E903284F1FCE8974163F70DFE7D74A1B5CE12C774FA833830905AF15
      C158C40D3DD07283BF6E13D4C8DFD355D091C5A4226EF6D63ABBB5FE1178EB82
      86C9EF74CB6A01A7447EEF8CBF26FFB5334C7A0300000020000000200000005F
      0400000000000078DAED996B4814411CC0B7A430A23E48DD9E2154147DF14BF5
      21A2EB32EB2C2CC2A82CFA5004D9434F8DD3F322E5AEA50F6112512151625DF6
      B0BABCF42A04CB175657E4258477D1038AA2300A7AD05E5656FF6674BB1BCFDD
      BB59F56E0B77E087EBBC7EB333B3B3337B0CA30635D0056098512D25CBBF3417
      A78118380DE789969FE3B8D1D8F3BBDD01E0E90F8EC369388FEA57FDAA5FF547
      C3DFB8C720E9C769D1F637EC5E2AE9C769D1F6D7172D91F4E3B468FBAF15A64A
      FA71DA70FA5D85A96FEA4C294072BDC8D003ED9706F8711C4E0BCD8FEB18ACFF
      72BE7EA9ABC0E0FFD8503ED017814F378F81CB6CF0D7E6A6A40FA50F6A7217AF
      AE3519FC9F1B8F53BBBF3457405D419ABF267FD1FAE118870BC6944D574C697E
      BEB532A2DBDF7A126A91FBA2519F359C73AF3A5B9FE744F57E6DB34BBABB6F9D
      06A779395F6D4C298AC6FC3F93B3B0D051B08CFF8A3CA1EE6FB7ABA006B9CFE6
      E8ADD1DC0356EDD0955D36A7F3DFEE9C0DB87FB8CF81D3B292AFCAD697C5621F
      6ADFAE2B775A56F13D77CF43CFBD6AA8DB93C1DB772CAC8CE53EB8326BC14557
      F11ADE55B2C67F729BEE5234F7BD62C191991957B155578FC1D7EAE9440D6A50
      C348587F945E7F957CFF28F9FE5572FFA1E4FE4BC9FDA792FB6FA5CF1F2EF392
      81E72F4B98F39745E4FC85EAF85FCF9FFFE2F95BE9EF0F4A7F7F51BFBFA97ED5
      AFFA95F02BFDFB9B1A465E68B7B1A508E8652F7B22A6E73C8E198DBCAF027E1B
      FBC96D4A1A172BBFC7A64D25DCBDDCB7B11BA8DADE6A049241F67DA5E07D8BE8
      EABBD6D4D394FDD5BC1348E4BA5BB869F1C8F7517096A3BF4785B6FCF4144F4A
      8C54FEC78DAD4022D77FDFAA5D1FE8732E7151BB55A30BFC6FD5982395EFAEDF
      0C24B2FBDECABA045F97239389C3EBAAC7C6BE10E2BC91CAF3573702891CB79B
      4B4A408EEFBDF7BA973D129C0F9AB2BF7DE0E1A6CC0D57C7E72BEB804466DFE7
      04E6BC95AD15D6008C23300644BBC4C207470690C89CF7EED0E74E84779EEDCC
      18A93ADE57AF00125AF7036EF24C54F76FC1F112E109E139D1860CA97ABACEA4
      0109FDBD6BB940FD9C765E687A4749E2D440FBAC5AA7543DAF4F2D061219FE27
      7FEF5D6A2F418CCF77340F2789E57959A10312BABE67E707DF359A0361DA680C
      8E81D62896E7F9B1794012EBF7E6B3A3B38124D6FEC787928184BE646736C378
      8192CD52B5F8CA660149ACFD0FF74F071219FE19A8F599E2784B09F7FBBEBCE2
      A1635F12900C7D44B1CBFB567077237411D6D07EEBE5D0DC1D9391EFA9E0FE85
      581B9AE35E71821D0194D8653C4913D1BD3F08F67BE72EB15C0D6676BC7BF704
      DF1DCB040807CE83F3D2B97D63113708F7C170B96F9BC626B715C4F3089080C7
      792877BFE81CE97510F3CDD1171761DF9617B7A5253F0E444169F4FDEE3B4CB8
      DB18E6453C6DC92623636FCA65A01F288EDEEDB512EE47A82D0972666B839919
      8F9C3EC2EFC37194EE6D41B7EF1D62E6609E986623938CBC3C065F53F6F91CC4
      4FE2DE4BA5D7224CE782B0E390C76CC1C818F374196B2FC639BC6F2DA5FD232F
      FC015D5569FF
    }
  end
  object ApplicationProperties: TApplicationProperties
    OnIdle = ApplicationPropertiesIdle
    Left = 496
    Top = 240
  end
end