lazarus/components/tachart/demo/nan/Main.lfm
2011-09-21 11:30:39 +00:00

138 lines
3.1 KiB
Plaintext

object Form1: TForm1
Left = 342
Height = 474
Top = 161
Width = 646
Caption = 'Form1'
ClientHeight = 474
ClientWidth = 646
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.31'
object Chart1: TChart
Left = 0
Height = 424
Top = 0
Width = 586
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 Chart1LineSeries1: TLineSeries
ShowPoints = True
Source = lcs1
end
object Chart1BarSeries1: TBarSeries
Active = False
BarBrush.Color = clRed
Source = lcs1
end
object Chart1AreaSeries1: TAreaSeries
Active = False
Source = lcs1
end
object Chart1PieSeries1: TPieSeries
Active = False
Source = lcs1
end
end
object Panel2: TPanel
Left = 0
Height = 50
Top = 424
Width = 646
Align = alBottom
BevelOuter = bvNone
ClientHeight = 50
ClientWidth = 646
TabOrder = 1
object rgSeriesType: TRadioGroup
Left = 0
Height = 50
Top = 0
Width = 530
Align = alClient
AutoFill = True
Caption = ' Series type '
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 10
ClientHeight = 32
ClientWidth = 526
Columns = 10
ItemIndex = 0
Items.Strings = (
'Line'
'Bar'
'Area'
'Pie'
)
OnClick = rgSeriesTypeClick
TabOrder = 0
end
object rgXY: TRadioGroup
Left = 530
Height = 50
Top = 0
Width = 116
Align = alRight
AutoFill = True
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 32
ClientWidth = 112
Columns = 2
ItemIndex = 0
Items.Strings = (
'X'
'Y'
)
OnClick = rgXYClick
TabOrder = 1
end
end
object clbNans: TCheckListBox
Left = 586
Height = 424
Top = 0
Width = 60
Align = alRight
ItemHeight = 0
OnItemClick = clbNansItemClick
TabOrder = 2
end
object lcs1: TListChartSource
left = 524
top = 300
end
object lcs2: TListChartSource
left = 524
top = 352
end
end