lazarus/components/tachart/demo/chartsource/main.lfm
2018-10-03 10:55:04 +00:00

449 lines
12 KiB
Plaintext

object Form1: TForm1
Left = 342
Height = 438
Top = 199
Width = 637
Caption = 'Form1'
ClientHeight = 438
ClientWidth = 637
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
object Splitter1: TSplitter
Left = 632
Height = 438
Top = 0
Width = 5
Align = alRight
Beveled = True
ResizeAnchor = akRight
end
object PageControl1: TPageControl
Left = 0
Height = 438
Top = 0
Width = 632
ActivePage = tsBasic
Align = alClient
TabIndex = 0
TabOrder = 1
object tsBasic: TTabSheet
Caption = 'Basic'
ClientHeight = 410
ClientWidth = 624
object Memo1: TMemo
Left = 0
Height = 34
Top = 0
Width = 624
Align = alTop
Lines.Strings = (
'Modify sources at design-time.'
'Same-colored series from each chart have common sources.'
)
TabOrder = 0
end
object Chart2: TChart
Left = 0
Height = 376
Top = 34
Width = 333
AxisList = <
item
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
end
item
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
object Chart2LineSeries1: TLineSeries
LinePen.Color = clRed
Pointer.Brush.Color = clRed
Pointer.Visible = True
ShowPoints = True
Source = RandomChartSource1
end
object Chart2AreaSeries1: TAreaSeries
AreaBrush.Color = clBlue
AreaLinesPen.Color = clMaroon
Source = ListChartSource1
end
end
object Chart1: TChart
Left = 333
Height = 376
Top = 34
Width = 291
AxisList = <
item
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
end
item
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alRight
object Chart1BarSeries1: TBarSeries
BarBrush.Color = clRed
Source = RandomChartSource1
end
object Chart1LineSeries1: TLineSeries
ZPosition = 1
LinePen.Color = clBlue
Pointer.Brush.Color = clBlue
Pointer.Visible = True
ShowPoints = True
Source = ListChartSource1
end
end
end
object tsStatistics: TTabSheet
Caption = 'Statistics'
ClientHeight = 410
ClientWidth = 624
object chCalc: TChart
Left = 0
Height = 369
Top = 0
Width = 624
AxisList = <
item
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
end
item
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Legend.Alignment = laTopLeft
Legend.MarginX = 40
Legend.MarginY = 10
Legend.UseSidebar = False
Legend.Visible = True
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
object chCalcLineSeries1: TLineSeries
Title = 'Data'
LineType = ltNone
Pointer.Visible = True
ShowPoints = True
Source = RandomChartSource2
end
object chCalcLineSeriesSum: TLineSeries
Title = 'Cumulative'
LinePen.Color = clMaroon
LinePen.Width = 2
Source = ccsSum
end
object chCalcLineSeriesAvg: TLineSeries
Title = 'Running average'
ZPosition = 1
LinePen.Color = clTeal
LinePen.Width = 2
Source = ccsAvg
end
end
object Panel2: TPanel
Left = 0
Height = 41
Top = 369
Width = 624
Align = alBottom
AutoSize = True
ClientHeight = 41
ClientWidth = 624
TabOrder = 1
object cbCumulative: TCheckBox
AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = Panel2
AnchorSideTop.Side = asrCenter
Left = 9
Height = 19
Top = 11
Width = 81
BorderSpacing.Left = 8
Caption = 'Cumulative'
Checked = True
OnChange = cbCumulativeChange
State = cbChecked
TabOrder = 0
end
object cbAccDirStatistics: TComboBox
AnchorSideLeft.Control = cbCumulative
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel2
AnchorSideTop.Side = asrCenter
Left = 114
Height = 23
Top = 9
Width = 100
BorderSpacing.Left = 24
BorderSpacing.Top = 8
BorderSpacing.Bottom = 8
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Backward'
'Forward'
'Center'
)
OnChange = cbAccDirStatisticsChange
Style = csDropDownList
TabOrder = 1
Text = 'Backward'
end
end
end
object tsDerivative: TTabSheet
Caption = 'Derivative'
ClientHeight = 410
ClientWidth = 624
object chDerivative: TChart
Left = 0
Height = 317
Top = 0
Width = 624
AxisList = <
item
Grid.Color = clSilver
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.Visible = True
Title.Caption = 'y, dy/dx'
Title.LabelBrush.Style = bsClear
end
item
Grid.Color = clSilver
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.Visible = True
Title.Caption = 'x'
Title.LabelBrush.Style = bsClear
end>
BackColor = clWhite
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Legend.Alignment = laTopCenter
Legend.ColumnCount = 2
Legend.Visible = True
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
DoubleBuffered = True
object chDerivativeLineOrig: TLineSeries
Title = 'y'
Source = lcsDerivative
end
object chDerivativeLineDeriv: TLineSeries
Title = 'dy/dx'
LinePen.Color = clRed
Source = ccsDerivative
end
end
object rgDataShape: TRadioGroup
Left = 0
Height = 54
Top = 317
Width = 624
Align = alBottom
AutoFill = True
Caption = 'Functions'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 7
ClientHeight = 34
ClientWidth = 620
Columns = 7
ItemIndex = 0
Items.Strings = (
'y = x'
'y = sin(x)'
'y = sin(x) / x'
'y = exp(-x/3)'
'Gaussian'
'Noisy Gaussian'
'Data from table'
)
OnClick = rgDataShapeClick
ParentFont = False
TabOrder = 1
end
object Panel1: TPanel
Left = 0
Height = 39
Top = 371
Width = 624
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 39
ClientWidth = 624
TabOrder = 2
object lblAccumulationRange: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 8
Height = 15
Top = 12
Width = 108
BorderSpacing.Left = 8
Caption = 'AccumulationRange'
ParentColor = False
end
object seAccumulationRange: TSpinEdit
AnchorSideLeft.Control = lblAccumulationRange
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 124
Height = 23
Top = 8
Width = 74
BorderSpacing.Left = 8
OnChange = seAccumulationRangeChange
TabOrder = 0
Value = 2
end
object cbAccDirDerivative: TComboBox
AnchorSideLeft.Control = seAccumulationRange
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 214
Height = 23
Top = 8
Width = 100
BorderSpacing.Left = 16
BorderSpacing.Top = 8
BorderSpacing.Bottom = 8
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Backward'
'Forward'
'Center'
)
OnChange = cbAccDirDerivativeChange
Style = csDropDownList
TabOrder = 1
Text = 'Backward'
end
object cbSmooth: TCheckBox
AnchorSideLeft.Control = cbAccDirDerivative
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 330
Height = 19
Top = 10
Width = 62
BorderSpacing.Left = 16
Caption = 'Smooth'
OnChange = cbSmoothChange
TabOrder = 2
end
end
end
end
object RandomChartSource1: TRandomChartSource
PointsNumber = 8
RandSeed = 624484796
XMax = 5
XMin = -5
YMax = 10
YMin = 0
left = 240
top = 204
end
object ListChartSource1: TListChartSource
DataPoints.Strings = (
'-3|2|?|'
'-2|3|?|'
'-1|4|?|'
'0|1|?|'
'3|2|?|'
)
left = 240
top = 260
end
object ccsSum: TCalculatedChartSource
AccumulationMethod = camSum
AccumulationRange = 0
Origin = RandomChartSource2
left = 504
top = 112
end
object ccsAvg: TCalculatedChartSource
AccumulationMethod = camAverage
AccumulationRange = 5
Origin = RandomChartSource2
left = 504
top = 168
end
object RandomChartSource2: TRandomChartSource
PointsNumber = 25
RandSeed = 840176578
XMax = 20
XMin = -10
YMax = 8
YMin = 1
left = 504
top = 268
end
object lcsDerivative: TListChartSource
left = 156
top = 84
end
object ccsDerivative: TCalculatedChartSource
AccumulationMethod = camDerivative
Origin = lcsDerivative
left = 156
top = 140
end
end