mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-31 17:57:52 +02:00
2b8ff3ad92
Demo now does not SIGSEGV no matter what button user pressed :-) Ability to clear series in the demo Patch by Alexander Klenin Fixes: http://bugs.freepascal.org/view.php?id=12589 git-svn-id: trunk@17290 -
652 lines
16 KiB
Plaintext
652 lines
16 KiB
Plaintext
object Form1: TForm1
|
|
Left = 345
|
|
Height = 499
|
|
Top = 114
|
|
Width = 585
|
|
HelpContext = 0
|
|
ActiveControl = Panel1
|
|
Align = alNone
|
|
AllowDropFiles = False
|
|
AutoScroll = True
|
|
AutoSize = False
|
|
BorderIcons = [biSystemMenu, biMinimize, biMaximize]
|
|
BorderStyle = bsSizeable
|
|
Caption = 'Form1'
|
|
ChildSizing.LeftRightSpacing = 0
|
|
ChildSizing.TopBottomSpacing = 0
|
|
ChildSizing.HorizontalSpacing = 0
|
|
ChildSizing.VerticalSpacing = 0
|
|
ChildSizing.ControlsPerLine = 0
|
|
ClientHeight = 499
|
|
ClientWidth = 585
|
|
DockSite = False
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
Font.Height = 0
|
|
Font.Style = []
|
|
FormStyle = fsNormal
|
|
ParentBiDiMode = True
|
|
ParentFont = False
|
|
Position = poScreenCenter
|
|
ShowInTaskBar = stDefault
|
|
UseDockManager = False
|
|
LCLVersion = '0.9.27'
|
|
WindowState = wsNormal
|
|
object Chart1: TChart
|
|
Left = 0
|
|
Height = 424
|
|
Top = 0
|
|
Width = 585
|
|
HelpContext = 0
|
|
MirrorX = False
|
|
ShowVerticalReticule = False
|
|
ShowReticule = False
|
|
Legend.Visible = False
|
|
Legend.Alignment = laRight
|
|
Legend.Font.Height = -11
|
|
Legend.Font.Name = 'MS Sans Serif'
|
|
Legend.Font.Style = []
|
|
Legend.Frame.Visible = False
|
|
Title.Visible = True
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Font.Height = -11
|
|
Title.Font.Name = 'MS Sans Serif'
|
|
Title.Font.Style = []
|
|
Title.Frame.Visible = False
|
|
Title.Alignment = taCenter
|
|
Title.Text.Strings = (
|
|
'Centered Chart Title'
|
|
)
|
|
Foot.Visible = False
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clRed
|
|
Foot.Font.Height = -13
|
|
Foot.Font.Name = 'MS Sans Serif'
|
|
Foot.Font.Style = [fsBold]
|
|
Foot.Frame.Visible = False
|
|
Foot.Alignment = taLeftJustify
|
|
Foot.Text.Strings = (
|
|
'This a LeftAligned Footer'
|
|
)
|
|
LeftAxis.Visible = True
|
|
LeftAxis.Inverted = False
|
|
LeftAxis.Title.Angle = 90
|
|
LeftAxis.Title.Font.Height = -11
|
|
LeftAxis.Title.Font.Name = 'MS Sans Serif'
|
|
LeftAxis.Title.Font.Style = []
|
|
LeftAxis.Grid.Color = clGray
|
|
LeftAxis.Grid.Style = psDot
|
|
LeftAxis.Grid.Visible = True
|
|
BottomAxis.Visible = True
|
|
BottomAxis.Inverted = False
|
|
BottomAxis.Title.Angle = 0
|
|
BottomAxis.Title.Font.Height = -11
|
|
BottomAxis.Title.Font.Name = 'MS Sans Serif'
|
|
BottomAxis.Title.Font.Style = []
|
|
BottomAxis.Grid.Color = clGray
|
|
BottomAxis.Grid.Style = psDot
|
|
BottomAxis.Grid.Visible = True
|
|
Frame.Visible = True
|
|
BackColor = clBtnFace
|
|
Align = alClient
|
|
Color = clBtnFace
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentColor = False
|
|
ParentShowHint = True
|
|
Visible = True
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Height = 75
|
|
Top = 424
|
|
Width = 585
|
|
HelpContext = 0
|
|
Align = alBottom
|
|
Alignment = taCenter
|
|
AutoSize = False
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
BevelInner = bvNone
|
|
BevelOuter = bvRaised
|
|
BevelWidth = 1
|
|
BorderWidth = 0
|
|
BorderStyle = bsNone
|
|
ChildSizing.LeftRightSpacing = 0
|
|
ChildSizing.TopBottomSpacing = 0
|
|
ChildSizing.HorizontalSpacing = 0
|
|
ChildSizing.VerticalSpacing = 0
|
|
ChildSizing.ControlsPerLine = 0
|
|
ClientHeight = 75
|
|
ClientWidth = 585
|
|
DockSite = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
FullRepaint = True
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 0
|
|
TabStop = False
|
|
Visible = True
|
|
object lblAdd: TLabel
|
|
Left = 13
|
|
Height = 18
|
|
Top = 10
|
|
Width = 30
|
|
HelpContext = 0
|
|
Align = alNone
|
|
Alignment = taLeftJustify
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'Add:'
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
Layout = tlTop
|
|
ParentBidiMode = True
|
|
ParentColor = False
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ShowAccelChar = True
|
|
Transparent = True
|
|
Visible = True
|
|
WordWrap = False
|
|
OptimalFill = False
|
|
end
|
|
object lblAdd1: TLabel
|
|
Left = 13
|
|
Height = 18
|
|
Top = 42
|
|
Width = 38
|
|
HelpContext = 0
|
|
Align = alNone
|
|
Alignment = taLeftJustify
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'Clear:'
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
Layout = tlTop
|
|
ParentBidiMode = True
|
|
ParentColor = False
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ShowAccelChar = True
|
|
Transparent = True
|
|
Visible = True
|
|
WordWrap = False
|
|
OptimalFill = False
|
|
end
|
|
object btnAddPie: TButton
|
|
Left = 64
|
|
Height = 25
|
|
Top = 8
|
|
Width = 52
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AutoSize = False
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.InnerBorder = 4
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Cancel = False
|
|
Caption = 'Pie'
|
|
Default = False
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentBidiMode = True
|
|
ModalResult = 0
|
|
OnClick = btnAddPieClick
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 0
|
|
TabStop = True
|
|
Visible = True
|
|
end
|
|
object btnAddLine: TButton
|
|
Left = 232
|
|
Height = 25
|
|
Top = 8
|
|
Width = 52
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AutoSize = False
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.InnerBorder = 4
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Cancel = False
|
|
Caption = 'Line'
|
|
Default = False
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentBidiMode = True
|
|
ModalResult = 0
|
|
OnClick = btnAddLineClick
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 1
|
|
TabStop = True
|
|
Visible = True
|
|
end
|
|
object btnAddArea: TButton
|
|
Left = 120
|
|
Height = 25
|
|
Top = 8
|
|
Width = 52
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AutoSize = False
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.InnerBorder = 4
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Cancel = False
|
|
Caption = 'Area'
|
|
Default = False
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentBidiMode = True
|
|
ModalResult = 0
|
|
OnClick = btnAddAreaClick
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 2
|
|
TabStop = True
|
|
Visible = True
|
|
end
|
|
object btnAddBar: TButton
|
|
Left = 176
|
|
Height = 25
|
|
Top = 8
|
|
Width = 52
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AutoSize = False
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.InnerBorder = 4
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Cancel = False
|
|
Caption = 'Bar'
|
|
Default = False
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentBidiMode = True
|
|
ModalResult = 0
|
|
OnClick = btnAddBarClick
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 3
|
|
TabStop = True
|
|
Visible = True
|
|
end
|
|
object cbLegend: TCheckBox
|
|
Left = 408
|
|
Height = 22
|
|
Top = 8
|
|
Width = 71
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AllowGrayed = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'Legend'
|
|
Checked = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
OnChange = cbLegendChange
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ParentBidiMode = True
|
|
State = cbUnchecked
|
|
TabOrder = 4
|
|
TabStop = True
|
|
UseOnChange = False
|
|
Visible = True
|
|
end
|
|
object cbBottomAxis: TCheckBox
|
|
Left = 408
|
|
Height = 22
|
|
Top = 24
|
|
Width = 102
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AllowGrayed = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'Bottom Axis'
|
|
Checked = True
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
OnChange = cbBottomAxisChange
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ParentBidiMode = True
|
|
State = cbChecked
|
|
TabOrder = 5
|
|
TabStop = True
|
|
UseOnChange = False
|
|
Visible = True
|
|
end
|
|
object cbLeftAxis: TCheckBox
|
|
Left = 408
|
|
Height = 22
|
|
Top = 40
|
|
Width = 78
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AllowGrayed = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'Left Axis'
|
|
Checked = True
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
OnChange = cbLeftAxisChange
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ParentBidiMode = True
|
|
State = cbChecked
|
|
TabOrder = 6
|
|
TabStop = True
|
|
UseOnChange = False
|
|
Visible = True
|
|
end
|
|
object cbTitle: TCheckBox
|
|
Left = 496
|
|
Height = 22
|
|
Top = 8
|
|
Width = 50
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AllowGrayed = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'Title'
|
|
Checked = True
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
OnChange = cbTitleChange
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ParentBidiMode = True
|
|
State = cbChecked
|
|
TabOrder = 7
|
|
TabStop = True
|
|
UseOnChange = False
|
|
Visible = True
|
|
end
|
|
object cbFooter: TCheckBox
|
|
Left = 496
|
|
Height = 22
|
|
Top = 24
|
|
Width = 65
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AllowGrayed = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'Footer'
|
|
Checked = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
OnChange = cbFooterChange
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ParentBidiMode = True
|
|
State = cbUnchecked
|
|
TabOrder = 8
|
|
TabStop = True
|
|
UseOnChange = False
|
|
Visible = True
|
|
end
|
|
object cbInverted: TCheckBox
|
|
Left = 496
|
|
Height = 22
|
|
Top = 40
|
|
Width = 76
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AllowGrayed = False
|
|
AutoSize = True
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Caption = 'Inverted'
|
|
Checked = False
|
|
DragCursor = crDrag
|
|
DragKind = dkDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
OnChange = cbInvertedChange
|
|
ParentColor = True
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
ParentBidiMode = True
|
|
State = cbUnchecked
|
|
TabOrder = 9
|
|
TabStop = True
|
|
UseOnChange = False
|
|
Visible = True
|
|
end
|
|
object btnClearBar: TButton
|
|
Left = 176
|
|
Height = 25
|
|
Top = 40
|
|
Width = 52
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AutoSize = False
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.InnerBorder = 4
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Cancel = False
|
|
Caption = 'Bar'
|
|
Default = False
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentBidiMode = True
|
|
ModalResult = 0
|
|
OnClick = btnClearBarClick
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 10
|
|
TabStop = True
|
|
Visible = True
|
|
end
|
|
object btnClearArea: TButton
|
|
Left = 120
|
|
Height = 25
|
|
Top = 40
|
|
Width = 52
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AutoSize = False
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.InnerBorder = 4
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Cancel = False
|
|
Caption = 'Area'
|
|
Default = False
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentBidiMode = True
|
|
ModalResult = 0
|
|
OnClick = btnClearAreaClick
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 11
|
|
TabStop = True
|
|
Visible = True
|
|
end
|
|
object btnClearLine: TButton
|
|
Left = 232
|
|
Height = 25
|
|
Top = 40
|
|
Width = 52
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AutoSize = False
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.InnerBorder = 4
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Cancel = False
|
|
Caption = 'Line'
|
|
Default = False
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentBidiMode = True
|
|
ModalResult = 0
|
|
OnClick = btnClearLineClick
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 12
|
|
TabStop = True
|
|
Visible = True
|
|
end
|
|
object btnClearPie: TButton
|
|
Left = 64
|
|
Height = 25
|
|
Top = 40
|
|
Width = 52
|
|
HelpContext = 0
|
|
Align = alNone
|
|
AutoSize = False
|
|
BorderSpacing.Left = 0
|
|
BorderSpacing.Top = 0
|
|
BorderSpacing.Right = 0
|
|
BorderSpacing.Bottom = 0
|
|
BorderSpacing.Around = 0
|
|
BorderSpacing.InnerBorder = 4
|
|
BorderSpacing.CellAlignHorizontal = ccaFill
|
|
BorderSpacing.CellAlignVertical = ccaFill
|
|
Cancel = False
|
|
Caption = 'Pie'
|
|
Default = False
|
|
DragCursor = crDrag
|
|
DragMode = dmManual
|
|
Enabled = True
|
|
ParentBidiMode = True
|
|
ModalResult = 0
|
|
OnClick = btnClearPieClick
|
|
ParentFont = True
|
|
ParentShowHint = True
|
|
TabOrder = 13
|
|
TabStop = True
|
|
Visible = True
|
|
end
|
|
end
|
|
end
|