mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-01 08:13:28 +02:00
342 lines
9.0 KiB
Plaintext
342 lines
9.0 KiB
Plaintext
object Form1: TForm1
|
|
Left = 459
|
|
Height = 433
|
|
Top = 346
|
|
Width = 566
|
|
Caption = 'Form1'
|
|
ClientHeight = 433
|
|
ClientWidth = 566
|
|
OnCreate = FormCreate
|
|
Position = poScreenCenter
|
|
LCLVersion = '2.1.0.0'
|
|
object PageControl1: TPageControl
|
|
Left = 0
|
|
Height = 433
|
|
Top = 0
|
|
Width = 566
|
|
ActivePage = tsPie
|
|
Align = alClient
|
|
TabIndex = 0
|
|
TabOrder = 0
|
|
object tsPie: TTabSheet
|
|
Caption = 'Pie'
|
|
ClientHeight = 405
|
|
ClientWidth = 558
|
|
object ChartPie: TChart
|
|
Left = 0
|
|
Height = 337
|
|
Top = 68
|
|
Width = 558
|
|
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>
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
Toolset = ChartToolset1
|
|
Align = alClient
|
|
Color = clDefault
|
|
OnMouseDown = ChartPieMouseDown
|
|
object ChartPiePieSeries1: TPieSeries
|
|
Marks.Distance = 40
|
|
Marks.Format = '%2:s'
|
|
Marks.Style = smsLabel
|
|
Exploded = True
|
|
Source = ListChartSource1
|
|
end
|
|
end
|
|
object Panel1: TPanel
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 0
|
|
Height = 68
|
|
Top = 0
|
|
Width = 558
|
|
Align = alTop
|
|
Alignment = taLeftJustify
|
|
AutoSize = True
|
|
Caption = ' Click on a slice to explode/unexplode it'
|
|
ClientHeight = 68
|
|
ClientWidth = 558
|
|
TabOrder = 1
|
|
object seWords: TSpinEdit
|
|
AnchorSideTop.Control = Panel1
|
|
AnchorSideRight.Control = Panel1
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 491
|
|
Height = 23
|
|
Top = 9
|
|
Width = 58
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Top = 8
|
|
BorderSpacing.Right = 8
|
|
MaxValue = 10
|
|
OnChange = seWordsChange
|
|
TabOrder = 0
|
|
Value = 1
|
|
end
|
|
object lblWords: TLabel
|
|
AnchorSideTop.Control = seWords
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = seWords
|
|
Left = 420
|
|
Height = 15
|
|
Top = 13
|
|
Width = 63
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Label words'
|
|
ParentColor = False
|
|
end
|
|
object seLabelAngle: TSpinEdit
|
|
AnchorSideTop.Control = seWords
|
|
AnchorSideRight.Control = lblWords
|
|
Left = 354
|
|
Height = 23
|
|
Top = 9
|
|
Width = 50
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 16
|
|
Increment = 5
|
|
MaxValue = 360
|
|
MinValue = -360
|
|
OnChange = seLabelAngleChange
|
|
TabOrder = 1
|
|
end
|
|
object lblLabelAngle: TLabel
|
|
AnchorSideTop.Control = seLabelAngle
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 291
|
|
Height = 15
|
|
Top = 13
|
|
Width = 60
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Label angle'
|
|
ParentColor = False
|
|
end
|
|
object cbRotate: TCheckBox
|
|
AnchorSideTop.Control = cbMarkPositions
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = seWords
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 462
|
|
Height = 19
|
|
Top = 38
|
|
Width = 87
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Top = 4
|
|
BorderSpacing.Bottom = 8
|
|
Caption = 'Rotate labels'
|
|
OnChange = cbRotateChange
|
|
TabOrder = 2
|
|
end
|
|
object cbMarkPositions: TComboBox
|
|
AnchorSideTop.Control = lblLabelAngle
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = seLabelAngle
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 291
|
|
Height = 23
|
|
Top = 36
|
|
Width = 113
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Top = 8
|
|
BorderSpacing.Bottom = 8
|
|
ItemHeight = 15
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'Around'
|
|
'Inside'
|
|
'Left / right'
|
|
)
|
|
OnChange = cbMarkPositionsChange
|
|
Style = csDropDownList
|
|
TabOrder = 3
|
|
Text = 'Around'
|
|
end
|
|
end
|
|
end
|
|
object tsPolar: TTabSheet
|
|
Caption = 'Polar'
|
|
ClientHeight = 405
|
|
ClientWidth = 558
|
|
object ChartPolar: TChart
|
|
Left = 0
|
|
Height = 405
|
|
Top = 0
|
|
Width = 420
|
|
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
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
Align = alClient
|
|
Color = clDefault
|
|
object ChartPolarSeries1: TPolarSeries
|
|
Brush.Color = 14145495
|
|
OriginX = -5
|
|
Pointer.HorizSize = 6
|
|
Pointer.Style = psDiamond
|
|
Pointer.VertSize = 6
|
|
ShowPoints = False
|
|
Source = RandomChartSource1
|
|
end
|
|
object ChartPolarSeries2: TPolarSeries
|
|
Brush.Color = 12303359
|
|
LinePen.Color = clRed
|
|
OriginY = 5
|
|
Pointer.Brush.Color = clRed
|
|
Pointer.Style = psCircle
|
|
ShowPoints = False
|
|
Source = RandomChartSource1
|
|
end
|
|
end
|
|
object pnlPolar: TPanel
|
|
Left = 420
|
|
Height = 405
|
|
Top = 0
|
|
Width = 138
|
|
Align = alRight
|
|
AutoSize = True
|
|
ClientHeight = 405
|
|
ClientWidth = 138
|
|
TabOrder = 1
|
|
object cbCloseCircle: TCheckBox
|
|
AnchorSideLeft.Control = pnlPolar
|
|
AnchorSideTop.Control = pnlPolar
|
|
Left = 9
|
|
Height = 19
|
|
Top = 9
|
|
Width = 56
|
|
BorderSpacing.Left = 8
|
|
BorderSpacing.Top = 8
|
|
BorderSpacing.Bottom = 8
|
|
Caption = 'Closed'
|
|
OnChange = cbCloseCircleChange
|
|
TabOrder = 0
|
|
end
|
|
object cbShowPoints: TCheckBox
|
|
AnchorSideLeft.Control = pnlPolar
|
|
AnchorSideTop.Control = cbCloseCircle
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 9
|
|
Height = 19
|
|
Top = 36
|
|
Width = 85
|
|
BorderSpacing.Left = 8
|
|
BorderSpacing.Top = 8
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Show points'
|
|
OnChange = cbShowPointsChange
|
|
TabOrder = 1
|
|
end
|
|
object cbFilled: TCheckBox
|
|
AnchorSideLeft.Control = pnlPolar
|
|
AnchorSideTop.Control = cbShowPoints
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 9
|
|
Height = 19
|
|
Top = 63
|
|
Width = 48
|
|
BorderSpacing.Left = 8
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Filled'
|
|
OnChange = cbFilledChange
|
|
TabOrder = 2
|
|
end
|
|
object sbTransparency: TScrollBar
|
|
AnchorSideLeft.Control = pnlPolar
|
|
AnchorSideTop.Control = lblTransparency
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 9
|
|
Height = 17
|
|
Top = 117
|
|
Width = 120
|
|
BorderSpacing.Left = 8
|
|
BorderSpacing.Top = 4
|
|
BorderSpacing.Right = 8
|
|
Max = 255
|
|
PageSize = 0
|
|
TabOrder = 3
|
|
OnChange = sbTransparencyChange
|
|
end
|
|
object lblTransparency: TLabel
|
|
AnchorSideLeft.Control = pnlPolar
|
|
AnchorSideTop.Control = cbFilled
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 9
|
|
Height = 15
|
|
Top = 98
|
|
Width = 87
|
|
BorderSpacing.Left = 8
|
|
BorderSpacing.Top = 16
|
|
Caption = 'Transparency (0)'
|
|
FocusControl = sbTransparency
|
|
ParentColor = False
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object ListChartSource1: TListChartSource
|
|
DataPoints.Strings = (
|
|
'0|1|?|'
|
|
'0|2|?|'
|
|
'0|3|?|'
|
|
'0|1|?|'
|
|
'0|2|?|'
|
|
'0|3|?|'
|
|
'0|1|?|'
|
|
'0|2|?|'
|
|
'0|3|?|'
|
|
'0|5|?|'
|
|
)
|
|
left = 488
|
|
top = 296
|
|
end
|
|
object ChartToolset1: TChartToolset
|
|
left = 488
|
|
top = 240
|
|
end
|
|
object RandomChartSource1: TRandomChartSource
|
|
PointsNumber = 15
|
|
RandSeed = 1648434073
|
|
XMax = 6
|
|
XMin = 0
|
|
YCount = 2
|
|
YMax = 10
|
|
YMin = 2
|
|
left = 488
|
|
top = 356
|
|
end
|
|
end
|