mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-20 11:06:09 +02:00
61 lines
1.3 KiB
Plaintext
61 lines
1.3 KiB
Plaintext
object GetPointerStyleFrame: TGetPointerStyleFrame
|
|
Left = 0
|
|
Height = 381
|
|
Top = 0
|
|
Width = 556
|
|
ClientHeight = 381
|
|
ClientWidth = 556
|
|
TabOrder = 0
|
|
DesignLeft = 630
|
|
DesignTop = 250
|
|
object Chart: TChart
|
|
Left = 0
|
|
Height = 381
|
|
Top = 0
|
|
Width = 556
|
|
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 LineSeries: TLineSeries
|
|
Pointer.Brush.Color = clRed
|
|
Pointer.HorizSize = 6
|
|
Pointer.Pen.Color = clRed
|
|
Pointer.Pen.Width = 2
|
|
Pointer.VertSize = 6
|
|
Pointer.Visible = True
|
|
ShowPoints = True
|
|
Source = RandomChartSource
|
|
OnGetPointerStyle = LineSeriesGetPointerStyle
|
|
end
|
|
end
|
|
object RandomChartSource: TRandomChartSource
|
|
PointsNumber = 25
|
|
RandSeed = 840176578
|
|
XMax = 20
|
|
XMin = -10
|
|
YMax = 8
|
|
YMin = 1
|
|
Left = 132
|
|
Top = 148
|
|
end
|
|
end
|