mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-01 18:43:41 +02:00
137 lines
3.1 KiB
Plaintext
137 lines
3.1 KiB
Plaintext
object Form1: TForm1
|
|
Left = 475
|
|
Height = 369
|
|
Top = 336
|
|
Width = 629
|
|
Caption = 'Form1'
|
|
ClientHeight = 369
|
|
ClientWidth = 629
|
|
OnCreate = FormCreate
|
|
LCLVersion = '2.1.0.0'
|
|
object Chart1: TChart
|
|
Left = 0
|
|
Height = 369
|
|
Top = 0
|
|
Width = 507
|
|
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.Bottom = 0
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
Align = alClient
|
|
DoubleBuffered = True
|
|
object Chart1BarSeries1: TBarSeries
|
|
BarBrush.Color = 2183646
|
|
Source = ListChartSource1
|
|
end
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 507
|
|
Height = 369
|
|
Top = 0
|
|
Width = 122
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
ClientHeight = 369
|
|
ClientWidth = 122
|
|
TabOrder = 1
|
|
object rgMethod: TRadioGroup
|
|
Left = 6
|
|
Height = 89
|
|
Top = 6
|
|
Width = 110
|
|
Align = alTop
|
|
AutoFill = True
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = ' Method '
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 1
|
|
ClientHeight = 69
|
|
ClientWidth = 106
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'Grow'
|
|
'Add'
|
|
'Add then grow'
|
|
)
|
|
OnClick = rgMethodClick
|
|
TabOrder = 0
|
|
end
|
|
object btnStartStop: TButton
|
|
AnchorSideLeft.Control = seTime
|
|
AnchorSideTop.Control = seTime
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 12
|
|
Height = 25
|
|
Top = 134
|
|
Width = 84
|
|
AutoSize = True
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Start / stop'
|
|
OnClick = btnStartStopClick
|
|
TabOrder = 1
|
|
end
|
|
object lblSkipped: TLabel
|
|
Left = 9
|
|
Height = 1
|
|
Top = 340
|
|
Width = 1
|
|
ParentColor = False
|
|
end
|
|
object seTime: TSpinEdit
|
|
AnchorSideLeft.Control = rgMethod
|
|
AnchorSideTop.Control = rgMethod
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 12
|
|
Height = 23
|
|
Top = 103
|
|
Width = 82
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 8
|
|
Increment = 100
|
|
MaxValue = 10000
|
|
MinValue = 100
|
|
OnChange = seTimeChange
|
|
TabOrder = 2
|
|
Value = 1000
|
|
end
|
|
end
|
|
object ListChartSource1: TListChartSource
|
|
DataPoints.Strings = (
|
|
'1|2|?|'
|
|
'2|3|?|'
|
|
'3|5|?|'
|
|
'4|6|?|'
|
|
'5|9|?|'
|
|
'6|7|?|'
|
|
'7|8|?|'
|
|
)
|
|
left = 552
|
|
top = 288
|
|
end
|
|
end
|