lazarus/components/tachart/demo/func/main.lfm
ask da2c5cb914 TAChart: Update funcdemo
* Add user-drawn series demo
* Remove workarounds for object inspector bugs with subproperty events

git-svn-id: trunk@21827 -
2009-09-22 16:58:37 +00:00

82 lines
1.8 KiB
Plaintext

object Form1: TForm1
Left = 290
Height = 362
Top = 152
Width = 461
Caption = 'Form1'
ClientHeight = 362
ClientWidth = 461
Position = poScreenCenter
LCLVersion = '0.9.29'
object Chart1: TChart
Left = 0
Height = 362
Top = 0
Width = 461
AxisList = <
item
Alignment = calLeft
Offset = 0
Scale = 1
Title.Font.Orientation = 900
end
item
Alignment = calBottom
Offset = 0
Scale = 1
end>
ExpandPercentage = 10
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Legend.Visible = True
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
ParentColor = False
object Chart1FuncSeries1: TFuncSeries
Extent.XMin = -6.28
Extent.YMin = -1
Extent.XMax = 6.28
Extent.YMax = 1
Extent.UseXMin = True
Extent.UseYMin = True
Extent.UseXMax = True
Extent.UseYMax = True
OnCalculate = Chart1FuncSeries1Calculate
Pen.Color = clOlive
Pen.Width = 2
Step = 4
Title = 'Sin(x)'
end
object Chart1XAxis: TLine
ShowInLegend = False
Position = 0
SeriesColor = clBlack
end
object Chart1YAxis: TLine
ShowInLegend = False
LineStyle = lsVertical
Position = 0
SeriesColor = clBlack
end
object Chart1BarSeries1: TBarSeries
Title = 'Cos(x)'
BarBrush.Color = clMoneyGreen
SeriesColor = clMoneyGreen
Source = UserDefinedChartSource1
end
object Chart1UserDrawnSeries1: TUserDrawnSeries
OnDraw = Chart1UserDrawnSeries1Draw
end
end
object UserDefinedChartSource1: TUserDefinedChartSource
OnGetChartDataItem = UserDefinedChartSource1GetChartDataItem
PointsNumber = 14
left = 135
top = 114
end
end