mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-05 06:24:11 +02:00
507 lines
14 KiB
Plaintext
507 lines
14 KiB
Plaintext
object Form1: TForm1
|
|
Left = 464
|
|
Height = 459
|
|
Top = 321
|
|
Width = 529
|
|
Caption = 'Form1'
|
|
ClientHeight = 459
|
|
ClientWidth = 529
|
|
OnCreate = FormCreate
|
|
Position = poScreenCenter
|
|
LCLVersion = '2.3.0.0'
|
|
object PageControl1: TPageControl
|
|
Left = 0
|
|
Height = 459
|
|
Top = 0
|
|
Width = 529
|
|
ActivePage = tsBubble
|
|
Align = alClient
|
|
TabIndex = 0
|
|
TabOrder = 0
|
|
object tsBubble: TTabSheet
|
|
Caption = 'Bubble'
|
|
ClientHeight = 431
|
|
ClientWidth = 521
|
|
object chBubble: TChart
|
|
Left = 0
|
|
Height = 431
|
|
Top = 0
|
|
Width = 521
|
|
AxisList = <
|
|
item
|
|
AxisPen.Visible = True
|
|
Marks.LabelBrush.Style = bsClear
|
|
Minors = <>
|
|
Title.LabelFont.Orientation = 900
|
|
Title.LabelBrush.Style = bsClear
|
|
end
|
|
item
|
|
TickLength = 0
|
|
Alignment = calBottom
|
|
Marks.Attachment = maCenter
|
|
Marks.Distance = 0
|
|
Marks.LabelBrush.Style = bsClear
|
|
Minors = <>
|
|
Title.LabelBrush.Style = bsClear
|
|
end>
|
|
BackColor = clForm
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
Frame.Visible = False
|
|
Proportional = True
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
Align = alClient
|
|
object Chart1BubbleSeries1: TBubbleSeries
|
|
BubbleBrush.Color = clRed
|
|
BubbleBrush.Style = bsDiagCross
|
|
Marks.Attachment = maCenter
|
|
Marks.Distance = 0
|
|
Marks.Format = '%0:.9g'
|
|
Marks.Style = smsValue
|
|
OverrideColor = [bocBrush, bocPen]
|
|
Source = lcsBubble
|
|
end
|
|
end
|
|
end
|
|
object tsStacked: TTabSheet
|
|
Caption = 'Stacked'
|
|
ClientHeight = 431
|
|
ClientWidth = 521
|
|
object chStacked: TChart
|
|
Left = 0
|
|
Height = 372
|
|
Top = 0
|
|
Width = 521
|
|
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>
|
|
Depth = 10
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
Legend.GroupFont.Style = [fsBold]
|
|
Legend.GroupTitles.Strings = (
|
|
'Levels'
|
|
)
|
|
Legend.Visible = True
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
Align = alClient
|
|
object chStackedBarSeries1: TBarSeries
|
|
Legend.GroupIndex = 0
|
|
Legend.Multiplicity = lmStyle
|
|
Active = False
|
|
ZPosition = 5
|
|
BarBrush.Color = clRed
|
|
Depth = 10
|
|
DepthBrightnessDelta = -40
|
|
MarkPositions = lmpInside
|
|
Marks.Format = '%0:.2g'
|
|
Marks.LinkPen.Visible = False
|
|
Marks.Style = smsCustom
|
|
Marks.YIndex = -1
|
|
Source = ccsStacked
|
|
Styles = ChartStyles
|
|
end
|
|
object chStackedLineSeries1: TLineSeries
|
|
Legend.GroupIndex = 0
|
|
Legend.Multiplicity = lmStyle
|
|
Active = False
|
|
Depth = 10
|
|
DepthBrightnessDelta = -40
|
|
MarkPositions = lmpInside
|
|
Marks.Format = '%0:.2g'
|
|
Marks.LinkPen.Visible = False
|
|
Marks.Style = smsCustom
|
|
Marks.YIndex = -1
|
|
Stacked = True
|
|
Source = ccsStacked
|
|
Styles = ChartStyles
|
|
end
|
|
object chStackedAreaSeries1: TAreaSeries
|
|
Legend.GroupIndex = 0
|
|
Legend.Multiplicity = lmStyle
|
|
ZPosition = 5
|
|
AreaContourPen.Color = clGreen
|
|
AreaContourPen.EndCap = pecSquare
|
|
AreaContourPen.Width = 2
|
|
Depth = 10
|
|
DepthBrightnessDelta = -40
|
|
MarkPositions = lmpInside
|
|
Marks.Format = '%0:.2g'
|
|
Marks.LinkPen.Visible = False
|
|
Marks.Style = smsCustom
|
|
Marks.YIndex = -1
|
|
Source = ccsStacked
|
|
Styles = ChartStyles
|
|
UseZeroLevel = True
|
|
ZeroLevel = 1
|
|
end
|
|
end
|
|
object pnStackedControls: TPanel
|
|
Left = 4
|
|
Height = 51
|
|
Top = 376
|
|
Width = 513
|
|
Align = alBottom
|
|
AutoSize = True
|
|
BorderSpacing.Around = 4
|
|
BevelOuter = bvNone
|
|
ClientHeight = 51
|
|
ClientWidth = 513
|
|
TabOrder = 1
|
|
object rgStackedSeries: TRadioGroup
|
|
Left = 0
|
|
Height = 51
|
|
Top = 0
|
|
Width = 175
|
|
Align = alLeft
|
|
AutoFill = False
|
|
AutoSize = True
|
|
Caption = ' Type '
|
|
ChildSizing.LeftRightSpacing = 12
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.HorizontalSpacing = 12
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 3
|
|
ClientHeight = 31
|
|
ClientWidth = 171
|
|
Columns = 3
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'Area'
|
|
'Bar'
|
|
'Line'
|
|
)
|
|
OnClick = rgStackedSeriesClick
|
|
TabOrder = 0
|
|
end
|
|
object cbPercentage: TCheckBox
|
|
AnchorSideLeft.Control = rgStackedSeries
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = rgStackedSeries
|
|
Left = 207
|
|
Height = 19
|
|
Top = 23
|
|
Width = 79
|
|
BorderSpacing.Left = 32
|
|
BorderSpacing.Top = 23
|
|
Caption = 'Percentage'
|
|
OnChange = cbPercentageChange
|
|
TabOrder = 1
|
|
end
|
|
object cgShowStackLevels: TCheckGroup
|
|
Left = 331
|
|
Height = 51
|
|
Top = 0
|
|
Width = 182
|
|
Align = alRight
|
|
AutoFill = False
|
|
AutoSize = True
|
|
Caption = 'Show levels'
|
|
ChildSizing.LeftRightSpacing = 12
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.HorizontalSpacing = 12
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 3
|
|
ClientHeight = 31
|
|
ClientWidth = 178
|
|
Columns = 3
|
|
Items.Strings = (
|
|
'red'
|
|
'green'
|
|
'blue'
|
|
)
|
|
OnItemClick = cgShowStackLevelsItemClick
|
|
TabOrder = 2
|
|
Data = {
|
|
03000000030303
|
|
}
|
|
end
|
|
end
|
|
end
|
|
object tsWhiskers: TTabSheet
|
|
Caption = 'Box-and-whiskers'
|
|
ClientHeight = 431
|
|
ClientWidth = 521
|
|
object chWhiskers: TChart
|
|
Left = 0
|
|
Height = 431
|
|
Top = 0
|
|
Width = 521
|
|
AxisList = <
|
|
item
|
|
Grid.Visible = False
|
|
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
|
|
Legend.SymbolWidth = 40
|
|
Legend.Visible = True
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
Align = alClient
|
|
object chWhiskersBoxAndWhiskerSeries1: TBoxAndWhiskerSeries
|
|
Title = 't1'
|
|
BoxBrush.Color = clGreen
|
|
BoxPen.Color = clMaroon
|
|
MedianPen.Color = clLime
|
|
MedianPen.Width = 2
|
|
WhiskersPen.Color = clBlue
|
|
end
|
|
end
|
|
end
|
|
object tsOHLC: TTabSheet
|
|
Caption = 'OHLC'
|
|
ClientHeight = 431
|
|
ClientWidth = 521
|
|
object chOHLC: TChart
|
|
Left = 0
|
|
Height = 431
|
|
Top = 0
|
|
Width = 521
|
|
AxisList = <
|
|
item
|
|
Grid.Color = clGray
|
|
TickLength = 0
|
|
Marks.LabelBrush.Style = bsClear
|
|
Minors = <>
|
|
Title.LabelFont.Orientation = 900
|
|
Title.LabelBrush.Style = bsClear
|
|
end
|
|
item
|
|
Grid.Visible = False
|
|
Alignment = calBottom
|
|
Marks.LabelBrush.Style = bsClear
|
|
Minors = <>
|
|
Title.LabelBrush.Style = bsClear
|
|
end>
|
|
ExpandPercentage = 5
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
Legend.Visible = True
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Brush.Style = bsClear
|
|
Title.Font.Color = clBlack
|
|
Title.Font.Style = [fsBold]
|
|
Title.Text.Strings = (
|
|
'ACME Corporation'
|
|
)
|
|
Title.Visible = True
|
|
Align = alClient
|
|
Color = clSkyBlue
|
|
object chOHLCOpenHighLowCloseSeries1: TOpenHighLowCloseSeries
|
|
Title = 'test'
|
|
CandlestickDownBrush.Color = clRed
|
|
CandlestickUpBrush.Color = clLime
|
|
DownLinePen.Color = clRed
|
|
DownLinePen.EndCap = pecSquare
|
|
DownLinePen.Width = 2
|
|
LinePen.Color = clBlue
|
|
LinePen.EndCap = pecSquare
|
|
LinePen.Width = 2
|
|
TickWidth = 30
|
|
end
|
|
end
|
|
end
|
|
object tsField: TTabSheet
|
|
Caption = 'Field'
|
|
ClientHeight = 431
|
|
ClientWidth = 521
|
|
object chField: TChart
|
|
Left = 0
|
|
Height = 397
|
|
Top = 0
|
|
Width = 521
|
|
AxisList = <
|
|
item
|
|
Grid.Visible = False
|
|
Marks.LabelBrush.Style = bsClear
|
|
Minors = <>
|
|
Title.LabelFont.Orientation = 900
|
|
Title.LabelBrush.Style = bsClear
|
|
end
|
|
item
|
|
Grid.Visible = False
|
|
Alignment = calBottom
|
|
Marks.LabelBrush.Style = bsClear
|
|
Minors = <>
|
|
Title.LabelBrush.Style = bsClear
|
|
end>
|
|
BackColor = clWhite
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
Legend.Visible = True
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
Align = alClient
|
|
object chFieldFieldSeries1: TFieldSeries
|
|
Title = 'Vector field'
|
|
Arrow.BaseLength = 30
|
|
Arrow.Length = 40
|
|
Arrow.Visible = True
|
|
Arrow.Width = 20
|
|
Pen.Color = clBlue
|
|
end
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Height = 34
|
|
Top = 397
|
|
Width = 521
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
ClientHeight = 34
|
|
ClientWidth = 521
|
|
TabOrder = 1
|
|
object rbRadial: TRadioButton
|
|
AnchorSideLeft.Control = Panel1
|
|
AnchorSideTop.Control = Panel1
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 8
|
|
Height = 19
|
|
Top = 8
|
|
Width = 49
|
|
BorderSpacing.Left = 8
|
|
Caption = 'radial'
|
|
Checked = True
|
|
OnChange = FieldTypeChange
|
|
TabOrder = 1
|
|
TabStop = True
|
|
end
|
|
object rbTangential: TRadioButton
|
|
AnchorSideLeft.Control = rbRadial
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Panel1
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 73
|
|
Height = 19
|
|
Top = 8
|
|
Width = 73
|
|
BorderSpacing.Left = 16
|
|
Caption = 'tangential'
|
|
OnChange = FieldTypeChange
|
|
TabOrder = 0
|
|
end
|
|
object Label1: TLabel
|
|
AnchorSideLeft.Control = rbTangential
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Panel1
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 196
|
|
Height = 15
|
|
Top = 10
|
|
Width = 96
|
|
BorderSpacing.Left = 50
|
|
Caption = 'Max vector length'
|
|
end
|
|
object edMaxVectorLength: TFloatSpinEdit
|
|
AnchorSideLeft.Control = Label1
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Panel1
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 300
|
|
Height = 23
|
|
Top = 6
|
|
Width = 74
|
|
Alignment = taRightJustify
|
|
BorderSpacing.Left = 8
|
|
Increment = 0.1
|
|
MaxValue = 10
|
|
MinValue = 0.1
|
|
OnChange = edMaxVectorLengthChange
|
|
TabOrder = 2
|
|
Value = 0.5
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object lcsBubble: TListChartSource
|
|
DataPoints.Strings = (
|
|
'10|50|3|?|'
|
|
'20|30|1|?|'
|
|
'35|20|9|?|'
|
|
'50|40|6|$00FF00|'
|
|
'60|50|15|?|'
|
|
'80|60|2|?|'
|
|
)
|
|
YCount = 2
|
|
Left = 130
|
|
Top = 65
|
|
end
|
|
object rcsStacked: TRandomChartSource
|
|
PointsNumber = 9
|
|
RandSeed = 317042356
|
|
XMax = 9
|
|
XMin = 1
|
|
YCount = 3
|
|
YMax = 20
|
|
YMin = 3
|
|
Left = 244
|
|
Top = 65
|
|
end
|
|
object ccsStacked: TCalculatedChartSource
|
|
Origin = rcsStacked
|
|
Left = 244
|
|
Top = 136
|
|
end
|
|
object ChartStyles: TChartStyles
|
|
Styles = <
|
|
item
|
|
Brush.Color = clRed
|
|
Pen.Color = clMaroon
|
|
Pen.Width = 2
|
|
Text = 'red'
|
|
end
|
|
item
|
|
Brush.Color = clLime
|
|
Pen.Color = clGreen
|
|
Pen.Width = 2
|
|
Text = 'green'
|
|
end
|
|
item
|
|
Brush.Color = clBlue
|
|
Pen.Color = clNavy
|
|
Pen.Width = 2
|
|
Text = 'blue'
|
|
end>
|
|
Left = 244
|
|
Top = 208
|
|
end
|
|
end
|