lazarus/components/tachart/demo/chartsource/main.lfm
2011-09-18 21:35:15 +00:00

400 lines
9.7 KiB
Plaintext

object Form1: TForm1
Left = 342
Height = 438
Top = 199
Width = 637
Caption = 'Form1'
ClientHeight = 438
ClientWidth = 637
OnCreate = FormCreate
LCLVersion = '0.9.31'
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 = 412
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 = 378
Top = 34
Width = 333
AxisList = <
item
Minors = <>
Title.LabelFont.Orientation = 900
end
item
Alignment = calBottom
Minors = <>
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
ParentColor = False
object Chart2LineSeries1: TLineSeries
LinePen.Color = clRed
Pointer.Brush.Color = clRed
ShowPoints = True
Source = RandomChartSource1
end
object Chart2AreaSeries1: TAreaSeries
AreaBrush.Color = clBlue
AreaLinesPen.Color = clMaroon
Source = ListChartSource1
end
end
object Chart1: TChart
Left = 333
Height = 378
Top = 34
Width = 291
AxisList = <
item
Minors = <>
Title.LabelFont.Orientation = 900
end
item
Alignment = calBottom
Minors = <>
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alRight
ParentColor = False
object Chart1BarSeries1: TBarSeries
BarBrush.Color = clRed
Source = RandomChartSource1
end
object Chart1LineSeries1: TLineSeries
ZPosition = 1
LinePen.Color = clBlue
Pointer.Brush.Color = clBlue
ShowPoints = True
Source = ListChartSource1
end
end
end
object tsStatistics: TTabSheet
Caption = 'Statistics'
ClientHeight = 412
ClientWidth = 624
object chCalc: TChart
Left = 0
Height = 378
Top = 0
Width = 624
AxisList = <
item
Minors = <>
Title.LabelFont.Orientation = 900
end
item
Alignment = calBottom
Minors = <>
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
ParentColor = False
object chCalcLineSeries1: TLineSeries
Title = 'Data'
LineType = ltNone
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 = 34
Top = 378
Width = 624
Align = alBottom
ClientHeight = 34
ClientWidth = 624
TabOrder = 1
object cbCumulative: TCheckBox
Left = 8
Height = 17
Top = 7
Width = 73
Caption = 'Cumulative'
Checked = True
OnChange = cbCumulativeChange
State = cbChecked
TabOrder = 0
end
object cbAccDirStatistics: TComboBox
Left = 108
Height = 21
Top = 7
Width = 100
ItemHeight = 13
ItemIndex = 0
Items.Strings = (
'Backward'
'Forward'
'Center'
)
OnChange = cbAccDirStatisticsChange
Style = csDropDownList
TabOrder = 1
Text = 'Backward'
end
end
end
object tsDerivative: TTabSheet
Caption = 'Derivative'
ClientHeight = 412
ClientWidth = 624
object chDerivative: TChart
Left = 0
Height = 327
Top = 0
Width = 624
AxisList = <
item
Grid.Color = clSilver
Minors = <>
Title.LabelFont.Orientation = 900
Title.Visible = True
Title.Caption = 'y, dy/dx'
end
item
Grid.Color = clSilver
Alignment = calBottom
Minors = <>
Title.Visible = True
Title.Caption = 'x'
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
ParentColor = False
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 = 327
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 = 36
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 = 31
Top = 381
Width = 624
Align = alBottom
BevelOuter = bvNone
ClientHeight = 31
ClientWidth = 624
TabOrder = 2
object lblAccumulationRange: TLabel
Left = 8
Height = 14
Top = 9
Width = 95
Caption = 'AccumulationRange'
ParentColor = False
end
object seAccumulationRange: TSpinEdit
Left = 116
Height = 21
Top = 4
Width = 82
OnChange = seAccumulationRangeChange
TabOrder = 0
Value = 2
end
object cbAccDirDerivative: TComboBox
Left = 216
Height = 21
Top = 4
Width = 100
ItemHeight = 13
ItemIndex = 0
Items.Strings = (
'Backward'
'Forward'
'Center'
)
OnChange = cbAccDirDerivativeChange
Style = csDropDownList
TabOrder = 1
Text = 'Backward'
end
object cbSmooth: TCheckBox
Left = 332
Height = 17
Top = 5
Width = 56
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