lazarus/components/tachart/demo/extent/main.lfm
ask 2f19160d24 TAChart: Use random source in demos.
git-svn-id: trunk@20159 -
2009-05-24 07:18:18 +00:00

141 lines
3.1 KiB
Plaintext

object Form1: TForm1
Left = 319
Height = 397
Top = 165
Width = 396
Caption = 'Form1'
ClientHeight = 397
ClientWidth = 396
OnCreate = FormCreate
LCLVersion = '0.9.27'
object Chart1: TChart
Left = 0
Height = 307
Top = 0
Width = 396
BottomAxis.Grid.Style = psDot
BottomAxis.Grid.Visible = False
Extent.XMin = -1.7
Extent.YMin = -1.7
Extent.XMax = 1.7
Extent.YMax = 1.7
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
LeftAxis.Grid.Style = psDot
LeftAxis.Grid.Visible = False
LeftAxis.Title.Angle = 90
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
ParentColor = False
object Chart1LineSeries: TLineSeries
Pointer.Brush.Color = clRed
Pointer.Pen.Color = clRed
SeriesColor = clRed
ShowPoints = True
Source = RandomChartSource1
end
object clRight: TLine
LineStyle = lsVertical
Pen.Color = clGreen
Pen.Style = psDot
Position = 1.7
SeriesColor = clGreen
UseBounds = False
end
object clLeft: TLine
LineStyle = lsVertical
Pen.Color = clGreen
Pen.Style = psDot
Position = -1.7
SeriesColor = clGreen
UseBounds = False
end
object clTop: TLine
Pen.Color = clGreen
Pen.Style = psDot
Position = 1.7
SeriesColor = clGreen
UseBounds = False
end
object clBottom: TLine
Pen.Color = clGreen
Pen.Style = psDot
Position = -1.7
SeriesColor = clGreen
UseBounds = False
end
end
object Panel1: TPanel
Left = 0
Height = 90
Top = 307
Width = 396
Align = alBottom
ClientHeight = 90
ClientWidth = 396
TabOrder = 1
object lblBoundValue: TLabel
Left = 160
Height = 14
Top = 21
Width = 27
Caption = 'Value'
ParentColor = False
end
object cgUseBounds: TCheckGroup
Left = 1
Height = 88
Top = 1
Width = 147
Align = alLeft
AutoFill = True
Caption = ' Use bounds '
ChildSizing.LeftRightSpacing = 8
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
Items.Strings = (
'Left'
'Right'
'Bottom'
'Top'
)
OnItemClick = cgUseBoundsItemClick
TabOrder = 0
Data = {
0400000002020202
}
end
object fseBounds: TFloatSpinEdit
Left = 204
Height = 23
Top = 17
Width = 50
Increment = 0.1
MaxValue = 10
MinValue = 1
OnChange = fseBoundsChange
TabOrder = 1
Value = 1.7
end
end
object RandomChartSource1: TRandomChartSource
PointsNumber = 20
RandSeed = 628509515
XMax = 5
XMin = -5
YMax = 5
YMin = -5
left = 176
top = 118
end
end