mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-30 17:35:57 +02:00
108 lines
2.5 KiB
Plaintext
108 lines
2.5 KiB
Plaintext
object PointsFrame: TPointsFrame
|
|
Left = 0
|
|
Height = 390
|
|
Top = 0
|
|
Width = 584
|
|
ClientHeight = 390
|
|
ClientWidth = 584
|
|
TabOrder = 0
|
|
DesignLeft = 538
|
|
DesignTop = 272
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Height = 36
|
|
Top = 0
|
|
Width = 584
|
|
Align = alTop
|
|
AutoSize = True
|
|
BevelOuter = bvNone
|
|
ClientHeight = 36
|
|
ClientWidth = 584
|
|
TabOrder = 0
|
|
object cbSorted: TCheckBox
|
|
AnchorSideLeft.Control = Panel1
|
|
AnchorSideTop.Control = Panel1
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 8
|
|
Height = 19
|
|
Top = 9
|
|
Width = 52
|
|
BorderSpacing.Around = 8
|
|
Caption = 'Sorted'
|
|
TabOrder = 0
|
|
OnChange = cbSortedChange
|
|
end
|
|
end
|
|
object Chart: TChart
|
|
Left = 0
|
|
Height = 354
|
|
Top = 36
|
|
Width = 584
|
|
AutoFocus = True
|
|
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
|
|
Margins.Left = 8
|
|
Margins.Top = 8
|
|
Margins.Right = 8
|
|
Margins.Bottom = 8
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'Drag data points while holding SHIFT key'
|
|
'Change point color by right-click'
|
|
'Show hint while holding CTRL key'
|
|
)
|
|
Title.Visible = True
|
|
Toolset = Toolset
|
|
Align = alClient
|
|
DoubleBuffered = True
|
|
object ChartLineSeries1: TLineSeries
|
|
OnGetMark = ChartLineSeries1GetMark
|
|
Marks.Clipped = False
|
|
Marks.Format = '%0:.9g'
|
|
Marks.Style = smsValue
|
|
Pointer.Brush.Color = clPurple
|
|
Pointer.HorizSize = 6
|
|
Pointer.Style = psDiamond
|
|
Pointer.VertSize = 6
|
|
Pointer.Visible = True
|
|
ShowPoints = True
|
|
end
|
|
end
|
|
object Toolset: TChartToolset
|
|
Left = 155
|
|
Top = 185
|
|
object DataPointDragTool: TDataPointDragTool
|
|
Shift = [ssShift, ssLeft]
|
|
GrabRadius = 10
|
|
ActiveCursor = crDrag
|
|
end
|
|
object DataPointClickTool: TDataPointClickTool
|
|
Shift = [ssRight]
|
|
GrabRadius = 10
|
|
ActiveCursor = crHandPoint
|
|
OnPointClick = DataPointClickToolPointClick
|
|
end
|
|
object DataPointHintTool: TDataPointHintTool
|
|
Shift = [ssCtrl]
|
|
GrabRadius = 10
|
|
ActiveCursor = crHandPoint
|
|
OnHint = DataPointHintToolHint
|
|
UseDefaultHintText = False
|
|
end
|
|
end
|
|
end
|