mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-02 06:43:41 +02:00
132 lines
3.1 KiB
Plaintext
132 lines
3.1 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 352
|
|
Height = 370
|
|
Top = 169
|
|
Width = 785
|
|
Caption = 'MainForm'
|
|
ClientHeight = 370
|
|
ClientWidth = 785
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
LCLVersion = '2.3.0.0'
|
|
object ChartPaintBox: TPaintBox
|
|
AnchorSideLeft.Control = Bevel1
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Owner
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = BottomPanel
|
|
Left = 400
|
|
Height = 333
|
|
Top = 6
|
|
Width = 379
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Around = 6
|
|
OnPaint = ChartPaintBoxPaint
|
|
end
|
|
object BottomPanel: TPanel
|
|
Left = 6
|
|
Height = 19
|
|
Top = 345
|
|
Width = 773
|
|
Align = alBottom
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
BevelOuter = bvNone
|
|
ClientHeight = 19
|
|
ClientWidth = 773
|
|
TabOrder = 0
|
|
object cbAggPas: TCheckBox
|
|
AnchorSideLeft.Control = BottomPanel
|
|
AnchorSideTop.Control = BottomPanel
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 0
|
|
Height = 19
|
|
Top = 0
|
|
Width = 193
|
|
Caption = 'Use AggPas for standard drawing'
|
|
OnClick = cbAggPasClick
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object Chart: TChart
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
AnchorSideRight.Control = Bevel1
|
|
AnchorSideBottom.Control = BottomPanel
|
|
Left = 6
|
|
Height = 333
|
|
Top = 6
|
|
Width = 378
|
|
AxisList = <
|
|
item
|
|
Visible = False
|
|
Marks.LabelBrush.Style = bsClear
|
|
Minors = <>
|
|
Title.LabelFont.Orientation = 900
|
|
Title.LabelBrush.Style = bsClear
|
|
end
|
|
item
|
|
Visible = False
|
|
Alignment = calBottom
|
|
Marks.LabelBrush.Style = bsClear
|
|
Minors = <>
|
|
Title.LabelBrush.Style = bsClear
|
|
end>
|
|
BackColor = clSkyBlue
|
|
Legend.Visible = True
|
|
Margins.Left = 25
|
|
Margins.Right = 25
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'Standard'
|
|
)
|
|
Title.Visible = True
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Around = 6
|
|
Color = clMoneyGreen
|
|
object ChartPieSeries: TPieSeries
|
|
ZPosition = 1
|
|
Source = RandomChartSource
|
|
end
|
|
object ChartConstantLine: TConstantLine
|
|
Pen.Color = clTeal
|
|
Pen.Width = 3
|
|
end
|
|
object ChartLineSeries: TLineSeries
|
|
Title = 'Line'
|
|
ZPosition = 2
|
|
LinePen.Color = clAqua
|
|
LinePen.Width = 3
|
|
Marks.Format = '%2:s %1:.2f%%'
|
|
Marks.Style = smsLabelPercent
|
|
Pointer.Style = psRightBracket
|
|
Pointer.Visible = True
|
|
ShowPoints = True
|
|
Source = RandomChartSource
|
|
end
|
|
end
|
|
object Bevel1: TBevel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideLeft.Side = asrCenter
|
|
Left = 390
|
|
Height = 50
|
|
Top = 138
|
|
Width = 4
|
|
Shape = bsSpacer
|
|
end
|
|
object RandomChartSource: TRandomChartSource
|
|
PointsNumber = 10
|
|
RandSeed = 1733195749
|
|
XMax = 10
|
|
YMax = 10
|
|
YMin = 1
|
|
Left = 496
|
|
Top = 168
|
|
end
|
|
object ChartGUIConnectorAggPas: TChartGUIConnectorAggPas
|
|
Left = 496
|
|
Top = 264
|
|
end
|
|
end
|