lazarus/components/tachart/demo/multi/Main.lfm
2013-01-22 12:07:28 +00:00

364 lines
9.5 KiB
Plaintext

object Form1: TForm1
Left = 464
Height = 459
Top = 321
Width = 529
Caption = 'Form1'
ClientHeight = 459
ClientWidth = 529
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.1'
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 = 433
ClientWidth = 521
object chBubble: TChart
Left = 0
Height = 433
Top = 0
Width = 521
AxisList = <
item
Minors = <>
Title.LabelFont.Orientation = 900
end
item
TickLength = 0
Alignment = calBottom
Marks.Attachment = maCenter
Marks.Distance = 0
Marks.LabelBrush.Style = bsSolid
Minors = <>
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Proportional = True
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
ParentColor = False
object Chart1BubbleSeries1: TBubbleSeries
Marks.Attachment = maCenter
Marks.Distance = 0
Marks.Format = '%0:.9g'
Marks.Style = smsValue
BubbleBrush.Color = clRed
BubbleBrush.Style = bsDiagCross
OverrideColor = [bocBrush, bocPen]
Source = lcsBubble
end
end
end
object tsStacked: TTabSheet
Caption = 'Stacked'
ClientHeight = 433
ClientWidth = 521
object chStacked: TChart
Left = 0
Height = 391
Top = 0
Width = 521
AxisList = <
item
Minors = <>
Title.LabelFont.Orientation = 900
end
item
Alignment = calBottom
Minors = <>
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
ParentColor = False
object chStackedBarSeries1: TBarSeries
Legend.GroupIndex = 0
Legend.Multiplicity = lmStyle
Active = False
Marks.Format = '%0:.2g'
Marks.LinkPen.Visible = False
Marks.Style = smsCustom
Marks.YIndex = -1
ZPosition = 5
BarBrush.Color = clRed
Depth = 10
MarkPositions = lmpInside
Source = ccsStacked
Styles = ChartStyles1
end
object chStackedLineSeries1: TLineSeries
Legend.GroupIndex = 0
Legend.Multiplicity = lmStyle
Active = False
Marks.Format = '%0:.2g'
Marks.LinkPen.Visible = False
Marks.Style = smsCustom
Marks.YIndex = -1
Depth = 10
MarkPositions = lmpInside
Source = ccsStacked
Styles = ChartStyles1
end
object chStackedAreaSeries1: TAreaSeries
Legend.GroupIndex = 0
Legend.Multiplicity = lmStyle
Marks.Format = '%0:.2g'
Marks.LinkPen.Visible = False
Marks.Style = smsCustom
Marks.YIndex = -1
ZPosition = 5
AreaContourPen.Color = clGreen
AreaContourPen.EndCap = pecSquare
AreaContourPen.Width = 2
Depth = 10
MarkPositions = lmpInside
Source = ccsStacked
Styles = ChartStyles1
UseZeroLevel = True
ZeroLevel = 1
end
end
object pnStackedControls: TPanel
Left = 0
Height = 42
Top = 391
Width = 521
Align = alBottom
BevelOuter = bvNone
ClientHeight = 42
ClientWidth = 521
TabOrder = 1
object rgStackedSeries: TRadioGroup
Left = 0
Height = 42
Top = 0
Width = 181
Align = alLeft
AutoFill = True
Caption = ' Type '
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.HorizontalSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3
ClientHeight = 24
ClientWidth = 177
Columns = 3
ItemIndex = 0
Items.Strings = (
'Area'
'Bar'
'Line'
)
OnClick = rgStackedSeriesClick
TabOrder = 0
end
object cbPercentage: TCheckBox
Left = 192
Height = 17
Top = 15
Width = 75
Caption = 'Percentage'
OnChange = cbPercentageChange
TabOrder = 1
end
object cgShowStackLevels: TCheckGroup
Left = 297
Height = 42
Top = 0
Width = 224
Align = alRight
AutoFill = True
Caption = 'Show levels'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3
ClientHeight = 24
ClientWidth = 220
Columns = 3
Items.Strings = (
'red'
'green'
'blue'
)
OnItemClick = cgShowStackLevelsItemClick
TabOrder = 2
Data = {
03000000030303
}
end
end
end
object tsWhiskers: TTabSheet
Caption = 'Box-and-whiskers'
ClientHeight = 433
ClientWidth = 521
object chWhiskers: TChart
Left = 0
Height = 433
Top = 0
Width = 521
AxisList = <
item
Grid.Visible = False
Minors = <>
Title.LabelFont.Orientation = 900
end
item
Alignment = calBottom
Minors = <>
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
ParentColor = False
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 = 433
ClientWidth = 521
object chOHLC: TChart
Left = 0
Height = 433
Top = 0
Width = 521
AxisList = <
item
Grid.Color = clGray
TickLength = 0
Minors = <>
Title.LabelFont.Orientation = 900
end
item
Grid.Visible = False
Alignment = calBottom
Minors = <>
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
ParentColor = False
object chOHLCOpenHighLowCloseSeries1: TOpenHighLowCloseSeries
Title = 'test'
DownLinePen.Color = clRed
DownLinePen.EndCap = pecSquare
DownLinePen.Width = 2
LinePen.Color = clBlue
LinePen.EndCap = pecSquare
LinePen.Width = 2
TickWidth = 30
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 ChartStyles1: TChartStyles
Styles = <
item
Brush.Color = clRed
Pen.Style = psDot
Text = 'red'
end
item
Brush.Color = clLime
Pen.Color = clGreen
Pen.Width = 2
Text = 'green'
end
item
Brush.Color = clBlue
Text = 'blue'
end>
left = 244
top = 208
end
end