mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-22 10:27:22 +02:00
388 lines
9.8 KiB
Plaintext
388 lines
9.8 KiB
Plaintext
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
|