mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-01 17:43:38 +02:00
535 lines
15 KiB
Plaintext
535 lines
15 KiB
Plaintext
object Form1: TForm1
|
|
Left = 443
|
|
Height = 559
|
|
Top = 340
|
|
Width = 580
|
|
Caption = 'Form1'
|
|
ClientHeight = 559
|
|
ClientWidth = 580
|
|
OnCreate = FormCreate
|
|
Position = poScreenCenter
|
|
LCLVersion = '2.1.0.0'
|
|
object PageControl1: TPageControl
|
|
Left = 0
|
|
Height = 559
|
|
Top = 0
|
|
Width = 580
|
|
ActivePage = tsPie
|
|
Align = alClient
|
|
TabIndex = 0
|
|
TabOrder = 0
|
|
object tsPie: TTabSheet
|
|
Caption = 'Pie'
|
|
ClientHeight = 531
|
|
ClientWidth = 572
|
|
object ChartPie: TChart
|
|
Left = 0
|
|
Height = 384
|
|
Top = 147
|
|
Width = 572
|
|
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
|
|
DepthBrightnessDelta = -32
|
|
Exploded = True
|
|
Marks.Distance = 40
|
|
Marks.Format = '%2:s'
|
|
Marks.Style = smsLabel
|
|
Source = ListChartSource1
|
|
end
|
|
end
|
|
object Panel1: TPanel
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 0
|
|
Height = 147
|
|
Top = 0
|
|
Width = 572
|
|
Align = alTop
|
|
Alignment = taLeftJustify
|
|
Anchors = [akTop, akRight]
|
|
AutoSize = True
|
|
Caption = ' Click on a slice to explode/unexplode it'
|
|
ClientHeight = 147
|
|
ClientWidth = 572
|
|
TabOrder = 1
|
|
object seWords: TSpinEdit
|
|
AnchorSideTop.Control = Panel1
|
|
AnchorSideRight.Control = lblInnerRadius
|
|
Left = 324
|
|
Height = 23
|
|
Top = 7
|
|
Width = 72
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 24
|
|
MaxValue = 10
|
|
OnChange = seWordsChange
|
|
TabOrder = 0
|
|
Value = 1
|
|
end
|
|
object lblWords: TLabel
|
|
AnchorSideTop.Control = seWords
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = seWords
|
|
Left = 253
|
|
Height = 15
|
|
Top = 11
|
|
Width = 63
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Label words'
|
|
ParentColor = False
|
|
end
|
|
object seLabelAngle: TSpinEdit
|
|
AnchorSideLeft.Control = seWords
|
|
AnchorSideTop.Control = seWords
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = seWords
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 324
|
|
Height = 23
|
|
Top = 34
|
|
Width = 72
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Top = 4
|
|
Increment = 5
|
|
MaxValue = 360
|
|
MinValue = -360
|
|
OnChange = seLabelAngleChange
|
|
TabOrder = 1
|
|
end
|
|
object lblLabelAngle: TLabel
|
|
AnchorSideTop.Control = seLabelAngle
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = seLabelAngle
|
|
Left = 256
|
|
Height = 15
|
|
Top = 38
|
|
Width = 60
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Label angle'
|
|
ParentColor = False
|
|
end
|
|
object cbRotate: TCheckBox
|
|
AnchorSideTop.Control = cbMarkAttachment
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = cbMarkAttachment
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 309
|
|
Height = 19
|
|
Top = 121
|
|
Width = 87
|
|
Alignment = taLeftJustify
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Bottom = 6
|
|
Caption = 'Rotate labels'
|
|
OnChange = cbRotateChange
|
|
TabOrder = 2
|
|
end
|
|
object cbMarkPositions: TComboBox
|
|
AnchorSideTop.Control = cbMarkAttachment
|
|
AnchorSideRight.Control = seDepthBrightnessDelta
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 438
|
|
Height = 23
|
|
Top = 92
|
|
Width = 127
|
|
Anchors = [akTop, akRight]
|
|
AutoSize = False
|
|
BorderSpacing.Bottom = 6
|
|
ItemHeight = 15
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'Around'
|
|
'Inside'
|
|
'Left / right'
|
|
)
|
|
OnChange = cbMarkPositionsChange
|
|
Style = csDropDownList
|
|
TabOrder = 3
|
|
Text = 'Around'
|
|
end
|
|
object Cb3D: TCheckBox
|
|
AnchorSideLeft.Control = lblInnerRadius
|
|
AnchorSideTop.Control = seLabelAngle
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 420
|
|
Height = 19
|
|
Top = 36
|
|
Width = 34
|
|
Caption = '3D'
|
|
OnChange = Cb3DChange
|
|
TabOrder = 4
|
|
end
|
|
object seInnerRadius: TSpinEdit
|
|
AnchorSideTop.Control = seWords
|
|
AnchorSideRight.Control = Panel1
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 503
|
|
Height = 23
|
|
Top = 7
|
|
Width = 62
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 6
|
|
OnChange = seInnerRadiusChange
|
|
TabOrder = 5
|
|
end
|
|
object lblInnerRadius: TLabel
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = lblWords
|
|
AnchorSideRight.Control = seInnerRadius
|
|
Left = 420
|
|
Height = 15
|
|
Top = 11
|
|
Width = 75
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Inner radius %'
|
|
ParentColor = False
|
|
end
|
|
object lblDepth: TLabel
|
|
AnchorSideLeft.Control = Cb3D
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Cb3D
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = seDepth
|
|
Left = 463
|
|
Height = 15
|
|
Top = 38
|
|
Width = 32
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Left = 12
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Depth'
|
|
Enabled = False
|
|
ParentColor = False
|
|
end
|
|
object seDepth: TSpinEdit
|
|
AnchorSideLeft.Control = seInnerRadius
|
|
AnchorSideTop.Control = seLabelAngle
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = Panel1
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 503
|
|
Height = 23
|
|
Top = 34
|
|
Width = 62
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 6
|
|
Enabled = False
|
|
OnChange = seDepthChange
|
|
TabOrder = 6
|
|
Value = 20
|
|
end
|
|
object seDepthBrightnessDelta: TSpinEdit
|
|
AnchorSideLeft.Control = seInnerRadius
|
|
AnchorSideTop.Control = seDepth
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Panel1
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 503
|
|
Height = 23
|
|
Top = 61
|
|
Width = 62
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Top = 4
|
|
BorderSpacing.Right = 6
|
|
Enabled = False
|
|
MaxValue = 255
|
|
MinValue = -255
|
|
OnChange = seDepthBrightnessDeltaChange
|
|
TabOrder = 7
|
|
Value = -32
|
|
end
|
|
object lblDepthBrightnessDelta: TLabel
|
|
AnchorSideLeft.Control = cbMarkPositions
|
|
AnchorSideTop.Control = seDepthBrightnessDelta
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = seDepthBrightnessDelta
|
|
Left = 411
|
|
Height = 15
|
|
Top = 65
|
|
Width = 84
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Brightness delta'
|
|
Enabled = False
|
|
ParentColor = False
|
|
WordWrap = True
|
|
end
|
|
object cbShowLabels: TCheckBox
|
|
AnchorSideTop.Control = seWords
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = lblWords
|
|
Left = 155
|
|
Height = 19
|
|
Top = 9
|
|
Width = 82
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 16
|
|
Caption = 'Show labels'
|
|
Checked = True
|
|
OnChange = cbShowLabelsChange
|
|
State = cbChecked
|
|
TabOrder = 8
|
|
end
|
|
object lblDistance: TLabel
|
|
AnchorSideTop.Control = seDistance
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = seDistance
|
|
Left = 271
|
|
Height = 15
|
|
Top = 67
|
|
Width = 45
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 8
|
|
Caption = 'Distance'
|
|
ParentColor = False
|
|
end
|
|
object seDistance: TSpinEdit
|
|
AnchorSideTop.Control = seLabelAngle
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = seLabelAngle
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 324
|
|
Height = 23
|
|
Top = 63
|
|
Width = 72
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Top = 6
|
|
OnChange = seDistanceChange
|
|
TabOrder = 9
|
|
Value = 40
|
|
end
|
|
object cbMarkAttachment: TComboBox
|
|
AnchorSideLeft.Control = lblDistance
|
|
AnchorSideTop.Control = seDistance
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = seDistance
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 271
|
|
Height = 23
|
|
Top = 92
|
|
Width = 125
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Bottom = 6
|
|
ItemHeight = 15
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'Default'
|
|
'Edge'
|
|
'Center'
|
|
)
|
|
OnChange = cbMarkAttachmentChange
|
|
Style = csDropDownList
|
|
TabOrder = 10
|
|
Text = 'Default'
|
|
end
|
|
object cbMarkPositionsCentered: TCheckBox
|
|
AnchorSideTop.Control = cbRotate
|
|
AnchorSideRight.Control = cbMarkPositions
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 418
|
|
Height = 19
|
|
Top = 121
|
|
Width = 147
|
|
Alignment = taLeftJustify
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Mark positions centered'
|
|
OnChange = cbMarkPositionsCenteredChange
|
|
TabOrder = 11
|
|
end
|
|
end
|
|
end
|
|
object tsPolar: TTabSheet
|
|
Caption = 'Polar'
|
|
ClientHeight = 454
|
|
ClientWidth = 572
|
|
object ChartPolar: TChart
|
|
Left = 0
|
|
Height = 454
|
|
Top = 0
|
|
Width = 457
|
|
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 = 457
|
|
Height = 454
|
|
Top = 0
|
|
Width = 115
|
|
Align = alRight
|
|
AutoSize = True
|
|
ClientHeight = 454
|
|
ClientWidth = 115
|
|
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 = 97
|
|
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|7|?|'
|
|
'0|3|?|'
|
|
'0|1|?|'
|
|
'0.20000000000000001|0.20000000000000001|?|'
|
|
'0|1|?|'
|
|
)
|
|
left = 64
|
|
top = 256
|
|
end
|
|
object ChartToolset1: TChartToolset
|
|
left = 64
|
|
top = 200
|
|
end
|
|
object RandomChartSource1: TRandomChartSource
|
|
PointsNumber = 15
|
|
RandSeed = 1648434073
|
|
XMax = 6
|
|
XMin = 0
|
|
YCount = 2
|
|
YMax = 10
|
|
YMin = 2
|
|
left = 64
|
|
top = 316
|
|
end
|
|
end
|