mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-04 08:18:29 +02:00
91 lines
2.0 KiB
Plaintext
91 lines
2.0 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 303
|
|
Height = 420
|
|
Top = 127
|
|
Width = 595
|
|
Caption = 'Userdrawn series demo'
|
|
ClientHeight = 420
|
|
ClientWidth = 595
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
LCLVersion = '2.1.0.0'
|
|
object Chart: TChart
|
|
Left = 0
|
|
Height = 386
|
|
Top = 0
|
|
Width = 595
|
|
AxisList = <
|
|
item
|
|
Grid.Visible = False
|
|
Marks.LabelBrush.Style = bsClear
|
|
Minors = <>
|
|
Title.LabelFont.Orientation = 900
|
|
Title.LabelBrush.Style = bsClear
|
|
end
|
|
item
|
|
Grid.Visible = False
|
|
Alignment = calBottom
|
|
Marks.LabelBrush.Style = bsClear
|
|
Minors = <>
|
|
Title.LabelBrush.Style = bsClear
|
|
end>
|
|
BackColor = clWhite
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
Foot.Text.Strings = (
|
|
'Drag the horizontal line up and down.'
|
|
)
|
|
Foot.Visible = True
|
|
Margins.Left = 8
|
|
Margins.Top = 8
|
|
Margins.Right = 8
|
|
Margins.Bottom = 8
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
Toolset = ChartToolset
|
|
Align = alClient
|
|
object ReferenceLine: TConstantLine
|
|
Pen.Color = clBlue
|
|
Pen.Style = psDash
|
|
Position = 4
|
|
end
|
|
object Series: TUserDrawnSeries
|
|
OnDraw = SeriesDraw
|
|
OnGetBounds = SeriesGetBounds
|
|
end
|
|
end
|
|
object Panel: TPanel
|
|
Left = 0
|
|
Height = 34
|
|
Top = 386
|
|
Width = 595
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
ClientHeight = 34
|
|
ClientWidth = 595
|
|
TabOrder = 1
|
|
object cbShowDataPoints: TCheckBox
|
|
Left = 11
|
|
Height = 19
|
|
Top = 8
|
|
Width = 111
|
|
Caption = 'Show data points'
|
|
OnChange = cbShowDataPointsChange
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object ChartToolset: TChartToolset
|
|
left = 173
|
|
top = 119
|
|
object DataPointDragTool: TDataPointDragTool
|
|
Shift = [ssLeft]
|
|
AffectedSeries = '0'
|
|
GrabRadius = 16
|
|
ActiveCursor = crSizeNS
|
|
end
|
|
end
|
|
end
|