lazarus/components/tachart/demo/func/main.lfm
2010-01-14 14:36:59 +00:00

92 lines
2.1 KiB
Plaintext

object Form1: TForm1
Left = 653
Height = 362
Top = 209
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
Title.Font.Orientation = 900
Transformation.Offset = 0
Transformation.Scale = 1
end
item
Alignment = calBottom
Transformation.Offset = 0
Transformation.Scale = 1
end>
ExpandPercentage = 10
Extent.YMin = -6
Extent.YMax = 6
Extent.UseYMin = True
Extent.UseYMax = True
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.XMax = 6.28
Extent.UseXMin = True
Extent.UseXMax = True
OnCalculate = Chart1FuncSeries1Calculate
Pen.Color = clOlive
Pen.Width = 2
Step = 4
Title = '1 / Sin(x)'
end
object Chart1XAxis: TLine
Position = 0
SeriesColor = clBlack
ShowInLegend = False
end
object Chart1YAxis: TLine
LineStyle = lsVertical
Position = 0
SeriesColor = clBlack
ShowInLegend = False
end
object Chart1BarSeries1: TBarSeries
Title = 'Cos(x)'
BarBrush.Color = clMoneyGreen
SeriesColor = clMoneyGreen
Source = UserDefinedChartSource1
end
object Chart1UserDrawnSeries1: TUserDrawnSeries
OnDraw = Chart1UserDrawnSeries1Draw
end
end
object cbDomain: TCheckBox
Left = 392
Height = 17
Top = 316
Width = 55
Anchors = [akRight, akBottom]
Caption = 'Domain'
OnChange = cbDomainChange
TabOrder = 1
end
object UserDefinedChartSource1: TUserDefinedChartSource
OnGetChartDataItem = UserDefinedChartSource1GetChartDataItem
PointsNumber = 14
left = 135
top = 114
end
end