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

TAChart: Add legend to the "Stacked" page of the multi demo

Browse Source 
git-svn-id: trunk@37529 -
This commit is contained in:
ask 2012-06-05 08:49:46 +00:00
parent 38164a5dd7
commit 851ef02961
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8,7 +8,7 @@ object Form1: TForm1
ClientWidth = 529
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.31'
LCLVersion = '1.1'
object PageControl1: TPageControl
Left = 0
Height = 459
@ -82,6 +82,7 @@ object Form1: TForm1
Depth = 10
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Legend.Visible = True
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
@ -90,6 +91,7 @@ object Form1: TForm1
Align = alClient
ParentColor = False
object chStackedBarSeries1: TBarSeries
Legend.Multiplicity = lmStyle
Active = False
Marks.Format = '%0:.2g'
Marks.LinkPen.Visible = False
@ -103,6 +105,7 @@ object Form1: TForm1
Styles = ChartStyles1
end
object chStackedLineSeries1: TLineSeries
Legend.Multiplicity = lmStyle
Active = False
Marks.Format = '%0:.2g'
Marks.LinkPen.Visible = False
@ -114,6 +117,7 @@ object Form1: TForm1
Styles = ChartStyles1
end
object chStackedAreaSeries1: TAreaSeries
Legend.Multiplicity = lmStyle
Marks.Format = '%0:.2g'
Marks.LinkPen.Visible = False
Marks.Style = smsCustom
@ -294,14 +298,17 @@ object Form1: TForm1
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

9
components/tachart/demo/multi/multidemo.lpi
View File

@ -32,7 +32,7 @@
<RequiredPackages Count="3">
<Item1>
<PackageName Value="LCLBase"/>
<MinVersion Major="1" Valid="True" Release="1"/>
<MinVersion Major="1" Release="1" Valid="True"/>
</Item1>
<Item2>
<PackageName Value="TAChartLazarusPkg"/>
@ -52,13 +52,14 @@
<Filename Value="Main.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Main"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="10"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="multidemo"/>
@ -71,10 +72,6 @@
<SmartLinkUnit Value="True"/>
</CodeGeneration>
<Linking>
<Debugging>
<GenerateDebugInfo Value="True"/>
<DebugInfoType Value="dsAuto"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>