paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-02 07:23:42 +02:00
Code Issues Packages Projects Releases Wiki Activity
dbe82166d0
lazarus/components/tachart/demo/axisalign/main.lfm
wp 856c8e9f37 TAChart: Add rotated axes demo. Improved layout of the other axis demos. 
git-svn-id: trunk@63678 -
2020-08-03 15:13:17 +00:00

462 lines
13 KiB
Plaintext
Raw Blame History

object Form1: TForm1
Left = 583
Height = 500
Top = 262
Width = 674
Caption = 'Axis Align Demo'
ClientHeight = 500
ClientWidth = 674
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
object PageControl1: TPageControl
Left = 0
Height = 471
Top = 0
Width = 674
ActivePage = TabSheet1
Align = alClient
TabIndex = 0
TabOrder = 0
OnChange = PageControl1Change
object TabSheet1: TTabSheet
Caption = 'stacked'
ClientHeight = 443
ClientWidth = 666
object Panel1: TPanel
Left = 0
Height = 62
Top = 0
Width = 666
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 62
ClientWidth = 666
TabOrder = 0
object EdLabelSizeLeft: TSpinEdit
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 91
Height = 23
Top = 6
Width = 74
BorderSpacing.Left = 24
BorderSpacing.Top = 6
OnChange = EdLabelSizeLeftChange
TabOrder = 0
end
object Label1: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = EdLabelSizeLeft
AnchorSideTop.Side = asrCenter
Left = 16
Height = 15
Top = 10
Width = 51
BorderSpacing.Left = 16
Caption = 'LabelSize:'
ParentColor = False
end
object EdLabelSizeRight: TSpinEdit
AnchorSideTop.Control = EdLabelSizeLeft
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 576
Height = 23
Top = 6
Width = 66
Anchors = [akTop, akRight]
BorderSpacing.Right = 24
OnChange = EdLabelSizeRightChange
TabOrder = 1
end
object Label2: TLabel
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = EdPositionLeft
AnchorSideTop.Side = asrCenter
Left = 16
Height = 15
Top = 37
Width = 46
Caption = 'Position:'
ParentColor = False
end
object EdPositionLeft: TSpinEdit
AnchorSideLeft.Control = EdLabelSizeLeft
AnchorSideTop.Control = EdLabelSizeLeft
AnchorSideTop.Side = asrBottom
Left = 91
Height = 23
Top = 33
Width = 74
BorderSpacing.Top = 4
BorderSpacing.Bottom = 6
OnChange = EdPositionLeftChange
TabOrder = 2
end
object Label6: TLabel
AnchorSideTop.Control = Label1
AnchorSideRight.Control = EdLabelSizeRight
Left = 501
Height = 15
Top = 10
Width = 51
Anchors = [akTop, akRight]
BorderSpacing.Right = 24
Caption = 'LabelSize:'
ParentColor = False
end
object Bevel2: TBevel
Left = 0
Height = 3
Top = 59
Width = 666
Align = alBottom
Shape = bsBottomLine
end
end
object ChartBottom: TChart
Left = 0
Height = 176
Top = 267
Width = 666
AxisList = <
item
Grid.Color = clSilver
AxisPen.Visible = True
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.Visible = True
Title.Caption = 'Y axis title'
Title.LabelBrush.Style = bsClear
end
item
Grid.Color = clSilver
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end
item
Alignment = calRight
Marks.Visible = False
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
BackColor = clWhite
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
MarginsExternal.Left = 10
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alBottom
Color = clWhite
object ChartBottomLineSeries1: TLineSeries
Source = RandomChartSource2
end
end
object ChartTop: TChart
Left = 0
Height = 205
Top = 62
Width = 666
AntialiasingMode = amOn
AxisList = <
item
Grid.Color = clSilver
AxisPen.Visible = True
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.Visible = True
Title.Caption = 'Y axis title'
Title.LabelBrush.Style = bsClear
end
item
Grid.Color = clSilver
Alignment = calBottom
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.Visible = True
Title.Caption = 'x'
Title.LabelBrush.Style = bsClear
end
item
Alignment = calRight
Marks.Visible = False
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
BackColor = clWhite
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
MarginsExternal.Left = 10
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
Color = clWhite
object ChartTopLineSeries1: TLineSeries
Source = RandomChartSource1
end
end
end
object TabSheet2: TTabSheet
Caption = 'side-by-side'
ClientHeight = 443
ClientWidth = 666
object Panel2: TPanel
Left = 0
Height = 443
Top = 0
Width = 88
Align = alLeft
AutoSize = True
BevelOuter = bvNone
ClientHeight = 443
ClientWidth = 88
TabOrder = 0
object EdLabelSizeBottom: TSpinEdit
AnchorSideLeft.Control = Label5
AnchorSideRight.Control = EdLabelSizeTop
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Panel2
AnchorSideBottom.Side = asrBottom
Left = 10
Height = 23
Top = 396
Width = 66
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Bottom = 24
OnChange = EdLabelSizeBottomChange
TabOrder = 0
end
object Label3: TLabel
AnchorSideLeft.Control = Label5
AnchorSideBottom.Control = EdLabelSizeBottom
Left = 10
Height = 15
Top = 377
Width = 51
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 4
Caption = 'LabelSize:'
ParentColor = False
end
object EdLabelSizeTop: TSpinEdit
AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = Label5
AnchorSideTop.Side = asrBottom
Left = 10
Height = 23
Top = 27
Width = 66
BorderSpacing.Left = 10
BorderSpacing.Top = 4
BorderSpacing.Right = 12
OnChange = EdLabelSizeTopChange
TabOrder = 1
end
object Label4: TLabel
AnchorSideLeft.Control = Label5
AnchorSideBottom.Control = EdPositionBottom
Left = 10
Height = 15
Top = 303
Width = 46
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 4
Caption = 'Position:'
ParentColor = False
end
object EdPositionBottom: TSpinEdit
AnchorSideLeft.Control = Label5
AnchorSideRight.Control = EdLabelSizeTop
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Label3
Left = 10
Height = 23
Top = 322
Width = 66
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Bottom = 32
OnChange = EdPositionBottomChange
TabOrder = 2
end
object Label5: TLabel
AnchorSideLeft.Control = EdLabelSizeTop
AnchorSideTop.Control = Panel2
Left = 10
Height = 15
Top = 8
Width = 51
BorderSpacing.Top = 8
Caption = 'LabelSize:'
ParentColor = False
end
object Bevel1: TBevel
Left = 80
Height = 443
Top = 0
Width = 8
Align = alRight
Shape = bsRightLine
end
end
object ChartRight: TChart
Left = 384
Height = 443
Top = 0
Width = 282
AxisList = <
item
Grid.Color = clSilver
AxisPen.Visible = True
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.Visible = True
Title.Caption = 'Y axis'
Title.LabelBrush.Style = bsClear
end
item
Grid.Color = clSilver
Alignment = calBottom
AxisPen.Visible = True
Marks.LabelFont.Orientation = 900
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.Visible = True
Title.Caption = 'X axis'
Title.LabelBrush.Style = bsClear
end
item
Alignment = calTop
Marks.Visible = False
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
BackColor = clWhite
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
MarginsExternal.Left = 10
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alRight
Color = clWhite
object Chart2LineSeries2: TLineSeries
Source = RandomChartSource2
end
end
object ChartLeft: TChart
Left = 88
Height = 443
Top = 0
Width = 296
AntialiasingMode = amOn
AxisList = <
item
Grid.Color = clSilver
AxisPen.Visible = True
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelFont.Orientation = 900
Title.Visible = True
Title.Caption = 'Y axis'
Title.LabelBrush.Style = bsClear
end
item
Grid.Color = clSilver
Alignment = calBottom
AxisPen.Visible = True
Marks.LabelFont.Orientation = 900
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.Visible = True
Title.Caption = 'X axis'
Title.LabelBrush.Style = bsClear
end
item
Alignment = calTop
Marks.Visible = False
Marks.LabelBrush.Style = bsClear
Minors = <>
Title.LabelBrush.Style = bsClear
end>
BackColor = clWhite
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
MarginsExternal.Left = 10
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
Color = clWhite
object Chart1LineSeries2: TLineSeries
Source = RandomChartSource1
end
end
end
end
object Panel3: TPanel
AnchorSideTop.Side = asrCenter
Left = 0
Height = 29
Top = 471
Width = 674
Align = alBottom
AutoSize = True
ClientHeight = 29
ClientWidth = 674
TabOrder = 1
object lblInfo: TLabel
AnchorSideLeft.Control = Panel3
AnchorSideTop.Control = Panel3
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Panel3
AnchorSideRight.Side = asrBottom
Left = 7
Height = 15
Top = 7
Width = 660
Alignment = taCenter
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Caption = 'lblInfo'
ParentColor = False
end
end
object RandomChartSource1: TRandomChartSource
PointsNumber = 10
RandSeed = 1952997387
XMax = 1
YMax = 1
Left = 264
Top = 272
end
object RandomChartSource2: TRandomChartSource
PointsNumber = 20
RandSeed = 1953042499
XMax = 1000
XMin = -1000
YMax = 1000000
Left = 392
Top = 272
end
end
Reference in New Issue View Git Blame Copy Permalink