paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 18:20:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add stacked lines to the multi-valued source demo

Browse Source 
git-svn-id: trunk@27134 -
This commit is contained in:
ask 2010-08-18 06:40:45 +00:00
parent 8592caeac1
commit 5ed0ea3d8e
2 changed files with 36 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
components/tachart/demo/multi/Main.lfm
View File

@ -14,7 +14,7 @@ object Form1: TForm1
Height = 373
Top = 0
Width = 471
ActivePage = tsWhiskers
ActivePage = tsStackedLines
Align = alClient
TabIndex = 2
TabOrder = 0
@ -89,7 +89,38 @@ object Form1: TForm1
ZPosition = 10
BarBrush.Color = clRed
Depth = 10
SeriesColor = clRed
Source = rcsStacked
end
end
end
object tsStackedLines: TTabSheet
Caption = 'Stacked lines'
ClientHeight = 347
ClientWidth = 463
object chStackedLines: TChart
Left = 0
Height = 347
Top = 0
Width = 463
AxisList = <
item
Title.LabelFont.Orientation = 900
end
item
Alignment = calBottom
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
ParentColor = False
object chStackedLinesLineSeries1: TLineSeries
Depth = 10
LinePen.Color = clYellow
Source = rcsStacked
end
end

3
components/tachart/demo/multi/Main.pas
View File

@ -13,6 +13,8 @@ type
{ TForm1 }
TForm1 = class(TForm)
chStackedLines: TChart;
chStackedLinesLineSeries1: TLineSeries;
chWhiskers: TChart;
chStackedBars: TChart;
chBubble: TChart;
@ -22,6 +24,7 @@ type
lcsBubble: TListChartSource;
PageControl1: TPageControl;
rcsStacked: TRandomChartSource;
tsStackedLines: TTabSheet;
tsWhiskers: TTabSheet;
tsStackedBar: TTabSheet;
tsBubble: TTabSheet;