lazarus/components/tachart/demo/legend/main.lfm
2018-10-03 10:55:04 +00:00

429 lines
12 KiB
Plaintext

object Form1: TForm1
Left = 529
Height = 511
Top = 174
Width = 590
Caption = 'Form1'
ClientHeight = 511
ClientWidth = 590
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter
LCLVersion = '2.1.0.0'
object PageControl1: TPageControl
Left = 0
Height = 511
Top = 0
Width = 590
ActivePage = TabSheet1
Align = alClient
TabIndex = 0
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'Basic'
ClientHeight = 483
ClientWidth = 582
object pnControls: TPanel
Left = 0
Height = 135
Top = 348
Width = 582
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 135
ClientWidth = 582
TabOrder = 0
object lblMarginY: TLabel
AnchorSideLeft.Control = lblMarginX
AnchorSideTop.Control = seMarginY
AnchorSideTop.Side = asrCenter
Left = 8
Height = 15
Top = 35
Width = 48
Caption = 'Y margin'
ParentColor = False
end
object seMarginY: TSpinEdit
AnchorSideLeft.Control = seMarginX
AnchorSideTop.Control = seMarginX
AnchorSideTop.Side = asrBottom
Left = 64
Height = 23
Top = 31
Width = 54
BorderSpacing.Top = 4
MaxValue = 20
OnChange = seMarginYChange
TabOrder = 0
Value = 4
end
object seSymbolWidth: TSpinEdit
AnchorSideLeft.Control = lblSymbolWidth
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seMarginX
Left = 215
Height = 23
Top = 4
Width = 54
BorderSpacing.Left = 8
MaxValue = 50
OnChange = seSymbolWidthChange
TabOrder = 1
Value = 20
end
object lblSymbolWidth: TLabel
AnchorSideLeft.Control = seMarginX
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seSymbolWidth
AnchorSideTop.Side = asrCenter
Left = 134
Height = 15
Top = 8
Width = 73
BorderSpacing.Left = 16
Caption = 'Symbol width'
ParentColor = False
end
object rgAlignment: TRadioGroup
AnchorSideLeft.Control = seSymbolWidth
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 285
Height = 135
Top = 0
Width = 289
Align = alRight
Anchors = [akTop, akLeft, akRight, akBottom]
AutoFill = True
BorderSpacing.Left = 16
BorderSpacing.Right = 8
Caption = ' Alignment '
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ChildSizing.ControlsPerLine = 3
ClientHeight = 115
ClientWidth = 285
Columns = 3
ItemIndex = 6
Items.Strings = (
'TopLeft'
'CenterLeft'
'BottomLeft'
'TopCenter'
''
'BottomCenter'
'TopRight'
'CenterRight'
'BottomRight'
)
OnClick = rgAlignmentClick
TabOrder = 2
end
object cbUseSidebar: TCheckBox
AnchorSideLeft.Control = lblMarginX
AnchorSideTop.Control = seMarginY
AnchorSideTop.Side = asrBottom
Left = 8
Height = 19
Top = 62
Width = 59
BorderSpacing.Top = 8
Caption = 'Sidebar'
Checked = True
OnChange = cbUseSidebarChange
State = cbChecked
TabOrder = 3
end
object lblSpacing: TLabel
AnchorSideTop.Control = seSpacing
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = lblSymbolWidth
AnchorSideRight.Side = asrBottom
Left = 165
Height = 15
Top = 35
Width = 42
Anchors = [akTop, akRight]
Caption = 'Spacing'
ParentColor = False
end
object seSpacing: TSpinEdit
AnchorSideLeft.Control = seSymbolWidth
AnchorSideTop.Control = seMarginY
Left = 215
Height = 23
Top = 31
Width = 54
MaxValue = 20
OnChange = seSpacingChange
TabOrder = 4
Value = 4
end
object lblMarginX: TLabel
AnchorSideLeft.Control = pnControls
AnchorSideTop.Control = seMarginX
AnchorSideTop.Side = asrCenter
Left = 8
Height = 15
Top = 8
Width = 48
BorderSpacing.Left = 8
Caption = 'X margin'
ParentColor = False
end
object seMarginX: TSpinEdit
AnchorSideLeft.Control = lblMarginX
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnControls
Left = 64
Height = 23
Top = 4
Width = 54
BorderSpacing.Left = 8
BorderSpacing.Top = 4
MaxValue = 20
OnChange = seMarginXChange
TabOrder = 5
Value = 4
end
object cbSeries: TComboBox
AnchorSideRight.Control = seSymbolWidth
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cbGrid
AnchorSideBottom.Side = asrBottom
Left = 105
Height = 22
Top = 105
Width = 164
Anchors = [akRight, akBottom]
ItemHeight = 16
OnDrawItem = cbSeriesDrawItem
Style = csOwnerDrawFixed
TabOrder = 6
end
object lblColumnCount: TLabel
AnchorSideTop.Control = seColumnCount
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = lblSymbolWidth
AnchorSideRight.Side = asrBottom
Left = 159
Height = 15
Top = 62
Width = 48
Anchors = [akTop, akRight]
Caption = 'Columns'
ParentColor = False
end
object seColumnCount: TSpinEdit
AnchorSideLeft.Control = seSymbolWidth
AnchorSideTop.Control = seSpacing
AnchorSideTop.Side = asrBottom
Left = 215
Height = 23
Top = 58
Width = 54
BorderSpacing.Top = 4
MinValue = 1
OnChange = seColumnCountChange
TabOrder = 7
Value = 1
end
object cbByRows: TCheckBox
AnchorSideLeft.Control = cbUseSidebar
AnchorSideTop.Control = cbUseSidebar
AnchorSideTop.Side = asrBottom
Left = 8
Height = 19
Top = 85
Width = 61
BorderSpacing.Top = 4
Caption = 'By rows'
OnChange = cbByRowsChange
TabOrder = 8
end
object cbGrid: TCheckBox
AnchorSideLeft.Control = cbUseSidebar
AnchorSideTop.Control = cbByRows
AnchorSideTop.Side = asrBottom
Left = 8
Height = 19
Top = 108
Width = 42
BorderSpacing.Top = 4
BorderSpacing.Bottom = 8
Caption = 'Grid'
OnChange = cbGridChange
TabOrder = 9
end
end
object Chart1: TChart
Left = 8
Height = 332
Top = 8
Width = 566
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
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Legend.BackgroundBrush.Color = clMoneyGreen
Legend.GridHorizontal.Style = psDot
Legend.GridVertical.Style = psDot
Legend.GroupFont.Style = [fsBold]
Legend.GroupTitles.Strings = (
'Pie'
)
Legend.Visible = True
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
BorderSpacing.Around = 8
Color = clOlive
object Chart1LineSeries1: TLineSeries
Title = 'Line'
LinePen.Color = clRed
Pointer.Brush.Color = clRed
Pointer.Visible = True
ShowPoints = True
end
object Chart1AreaSeries1: TAreaSeries
Title = 'Area'
AreaBrush.Color = clGreen
AreaBrush.Style = bsCross
Source = RandomChartSource1
end
object Chart1PieSeries1: TPieSeries
Legend.Format = '%2:s %1:.2f%%'
Legend.GroupIndex = 0
Legend.Multiplicity = lmPoint
Marks.Format = '%2:s'
Marks.Style = smsLabel
Title = 'Pie'
Exploded = True
Source = ListChartSource2
end
object Chart1FuncSeries1: TFuncSeries
Legend.Order = 1
Legend.UserItemsCount = 2
Legend.OnDraw = Chart1FuncSeries1DrawLegend
Extent.UseXMax = True
Extent.UseXMin = True
Extent.XMax = 5
Title = 'Function'
Pen.Color = clPurple
Pen.Width = 2
OnCalculate = Chart1FuncSeries1Calculate
end
end
end
object TabSheet2: TTabSheet
Caption = 'OwnerDraw'
ClientHeight = 483
ClientWidth = 582
object Chart2: TChart
Left = 8
Height = 467
Top = 8
Width = 566
AxisList = <
item
Grid.Color = clSilver
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Height = -16
Title.LabelFont.Orientation = 900
Title.LabelFont.Style = [fsBold]
Title.Visible = True
Title.Caption = 'y axis'
Title.LabelBrush.Style = bsClear
end
item
Grid.Visible = False
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Height = -16
Title.LabelFont.Style = [fsBold]
Title.Visible = True
Title.Caption = 'x axis'
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'
)
OnDrawLegend = Chart2DrawLegend
Align = alClient
BorderSpacing.Around = 8
object GradientLineSeries: TLineSeries
Title = '1.0'
LineType = ltNone
Pointer.Style = psCircle
Pointer.Visible = True
ShowPoints = True
end
end
end
end
object RandomChartSource1: TRandomChartSource
PointsNumber = 7
RandSeed = 104675296
XMax = 10
XMin = 1
YMax = 10
YMin = 1
left = 380
top = 112
end
object ListChartSource1: TListChartSource
DataPoints.Strings = (
'0|0|?|'
'1|2|$00FF00|'
'2|5|?|'
'3|1|?|'
'4|6|?|'
)
left = 380
top = 168
end
object ListChartSource2: TListChartSource
DataPoints.Strings = (
'0|5|?|abcc'
'0|6|?|def'
'0.20000000000000001|4|?|пример'
'0|7|?|ещё'
'0|2|?|два слова'
)
left = 380
top = 228
end
end