mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-28 07:22:52 +02:00
113 lines
2.4 KiB
Plaintext
113 lines
2.4 KiB
Plaintext
object Form1: TForm1
|
|
Left = 342
|
|
Height = 385
|
|
Top = 199
|
|
Width = 559
|
|
Caption = 'Form1'
|
|
ClientHeight = 385
|
|
ClientWidth = 559
|
|
LCLVersion = '0.9.27'
|
|
object Memo1: TMemo
|
|
Left = 0
|
|
Height = 48
|
|
Top = 0
|
|
Width = 559
|
|
Align = alTop
|
|
Lines.Strings = (
|
|
'Modify sources at design-time.'
|
|
'Same-colored series from each chart have common sources.'
|
|
)
|
|
TabOrder = 0
|
|
end
|
|
object Chart1: TChart
|
|
Left = 293
|
|
Height = 337
|
|
Top = 48
|
|
Width = 266
|
|
BottomAxis.Grid.Style = psDot
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
LeftAxis.Grid.Style = psDot
|
|
LeftAxis.Title.Angle = 90
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
Align = alRight
|
|
ParentColor = False
|
|
object Chart1BarSeries1: TBarSeries
|
|
BarBrush.Color = clRed
|
|
SeriesColor = clRed
|
|
Source = RandomChartSource1
|
|
end
|
|
object Chart1LineSeries1: TLineSeries
|
|
ZPosition = 1
|
|
Pointer.Brush.Color = clBlue
|
|
SeriesColor = clBlue
|
|
ShowPoints = True
|
|
Source = ListChartSource1
|
|
end
|
|
end
|
|
object Chart2: TChart
|
|
Left = 0
|
|
Height = 337
|
|
Top = 48
|
|
Width = 288
|
|
BottomAxis.Grid.Style = psDot
|
|
Foot.Brush.Color = clBtnFace
|
|
Foot.Font.Color = clBlue
|
|
LeftAxis.Grid.Style = psDot
|
|
LeftAxis.Title.Angle = 90
|
|
Title.Brush.Color = clBtnFace
|
|
Title.Font.Color = clBlue
|
|
Title.Text.Strings = (
|
|
'TAChart'
|
|
)
|
|
Align = alClient
|
|
ParentColor = False
|
|
object Chart2LineSeries1: TLineSeries
|
|
Pointer.Brush.Color = clRed
|
|
SeriesColor = clRed
|
|
ShowPoints = True
|
|
Source = RandomChartSource1
|
|
end
|
|
object Chart2AreaSeries1: TAreaSeries
|
|
AreaLinesPen.Color = clMaroon
|
|
AreaBrush.Color = clBlue
|
|
SeriesColor = clBlue
|
|
Source = ListChartSource1
|
|
end
|
|
end
|
|
object Splitter1: TSplitter
|
|
Left = 288
|
|
Height = 337
|
|
Top = 48
|
|
Width = 5
|
|
Align = alRight
|
|
Beveled = True
|
|
ResizeAnchor = akRight
|
|
end
|
|
object RandomChartSource1: TRandomChartSource
|
|
PointsNumber = 8
|
|
RandSeed = 624484796
|
|
XMax = 5
|
|
XMin = -5
|
|
YMax = 10
|
|
YMin = 0
|
|
left = 240
|
|
top = 204
|
|
end
|
|
object ListChartSource1: TListChartSource
|
|
DataPoints.Strings = (
|
|
'-3|2||'
|
|
'-2|3||'
|
|
'-1|4||'
|
|
'0|1||'
|
|
'3|2||'
|
|
)
|
|
left = 240
|
|
top = 260
|
|
end
|
|
end
|