paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-05 15:12:44 +02:00
Code Issues Packages Projects Releases Wiki Activity
f71e02adf7
lazarus/components/tachart/demo/chartsource/main.lfm

559 lines
15 KiB
Plaintext
Raw Blame History

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 PageControl1: TPageControl
Left = 0
Height = 438
Top = 0
Width = 637
ActivePage = tsBasic
Align = alClient
TabIndex = 0
TabOrder = 0
object tsBasic: TTabSheet
Caption = 'Basic'
ClientHeight = 410
ClientWidth = 629
object Memo1: TMemo
Left = 0
Height = 34
Top = 0
Width = 629
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
Color = clWindow
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 = 338
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
Color = clWindow
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
object Splitter1: TSplitter
Left = 333
Height = 376
Top = 34
Width = 5
Align = alRight
ResizeAnchor = akRight
end
end
object tsStatistics: TTabSheet
Caption = 'Statistics'
ClientHeight = 410
ClientWidth = 629
object chCalc: TChart
Left = 0
Height = 369
Top = 0
Width = 629
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
Color = clWindow
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 = 629
Align = alBottom
AutoSize = True
ClientHeight = 41
ClientWidth = 629
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 = 629
object chDerivative: TChart
Left = 0
Height = 317
Top = 0
Width = 629
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
Color = clWindow
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 = 6
Height = 54
Top = 317
Width = 617
Align = alBottom
AutoFill = True
BorderSpacing.Left = 6
BorderSpacing.Right = 6
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 = 613
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 = 629
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 39
ClientWidth = 629
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
object tsSorted: TTabSheet
Caption = 'Sorted'
ClientHeight = 410
ClientWidth = 629
object btnSort: TButton
AnchorSideLeft.Control = tsSorted
AnchorSideTop.Control = tsSorted
Left = 8
Height = 25
Top = 8
Width = 230
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Sort/unsort data by number of visitors!'
OnClick = btnSortClick
TabOrder = 0
end
object BubbleChart: TChart
AnchorSideLeft.Control = tsSorted
AnchorSideTop.Control = btnSort
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = tsSorted
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = tsSorted
AnchorSideBottom.Side = asrBottom
Left = 8
Height = 361
Top = 41
Width = 613
AxisList = <
item
Visible = False
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.LabelBrush.Style = bsClear
end
item
Alignment = calBottom
Marks.Format = '%4:.9g'
Marks.LabelBrush.Style = bsClear
Marks.Source = SortedChartSource
Marks.Style = smsXValue
Minors = <>
Title.LabelBrush.Style = bsClear
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Margins.Left = 20
Margins.Right = 40
Title.Brush.Color = clBtnFace
Title.Brush.Style = bsClear
Title.Font.Color = clBlue
Title.Text.Strings = (
'Locations of World Exposition X, and numbers of visitors (given by bubble size)'
)
Title.Visible = True
OnAfterPaint = BubbleChartAfterPaint
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 8
Color = clWindow
object BubbleSeries: TBubbleSeries
AxisIndexX = 1
AxisIndexY = 0
BubbleRadiusUnits = bruY
MarkPositions = lmpPositive
Marks.Attachment = maCenter
Marks.Distance = 0
Marks.LabelFont.Orientation = 900
Marks.Format = '%2:s'
Marks.LabelBrush.Color = clWhite
Marks.Style = smsLabel
OverrideColor = [bocBrush]
Source = SortedChartSource
end
end
object lblSortInfo: TLabel
AnchorSideLeft.Control = btnSort
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnSort
AnchorSideTop.Side = asrCenter
Left = 246
Height = 15
Top = 13
Width = 55
BorderSpacing.Left = 8
Caption = 'lblSortInfo'
ParentColor = False
end
end
end
object RandomChartSource1: TRandomChartSource
PointsNumber = 8
RandSeed = 624484796
XMax = 5
XMin = -5
YMax = 10
YMin = 0
left = 88
top = 112
end
object ListChartSource1: TListChartSource
DataPoints.Strings = (
'-3|2|?|'
'-2|3|?|'
'-1|4|?|'
'0|1|?|'
'3|2|?|'
)
left = 88
top = 168
end
object ccsSum: TCalculatedChartSource
AccumulationMethod = camSum
AccumulationRange = 0
Origin = RandomChartSource2
left = 240
top = 168
end
object ccsAvg: TCalculatedChartSource
AccumulationMethod = camAverage
AccumulationRange = 5
Origin = RandomChartSource2
left = 240
top = 224
end
object RandomChartSource2: TRandomChartSource
PointsNumber = 25
RandSeed = 840176578
XMax = 20
XMin = -10
YMax = 8
YMin = 1
left = 240
top = 112
end
object lcsDerivative: TListChartSource
left = 376
top = 112
end
object ccsDerivative: TCalculatedChartSource
AccumulationMethod = camDerivative
Origin = lcsDerivative
left = 376
top = 168
end
object UserDefinedChartSource: TUserDefinedChartSource
OnGetChartDataItem = UserDefinedChartSourceGetChartDataItem
YCount = 2
left = 528
top = 112
end
object SortedChartSource: TSortedChartSource
Origin = UserDefinedChartSource
SortBy = sbY
SortDir = sdDescending
SortIndex = 1
left = 528
top = 168
end
end
Reference in New Issue View Git Blame Copy Permalink