paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 19:16:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Update demos to use TConstantLine

Browse Source 
git-svn-id: trunk@24647 -
This commit is contained in:
ask 2010-04-16 06:28:05 +00:00
parent f19e3d4ca3
commit 07678eb2fd
9 changed files with 19 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/demo/basic/demo.lpi
View File

@ -14,9 +14,9 @@
<ResourceType Value="res"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<Language Value="0403"/>
<CharSet Value="04E2"/>
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>

8
components/tachart/demo/basic/unit1.lfm
View File

@ -19,16 +19,12 @@ object Form1: TForm1
Grid.Color = clGray
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Transformation.Offset = 0
Transformation.Scale = 1
end
item
Alignment = calBottom
Grid.Color = clGray
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Transformation.Offset = 0
Transformation.Scale = 1
end>
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clRed
@ -50,13 +46,13 @@ object Form1: TForm1
Title.Visible = True
Align = alClient
ParentColor = False
object Chart1LineHor: TLine
object Chart1LineHor: TConstantLine
Pen.Style = psDash
Position = 0
SeriesColor = clBlack
ShowInLegend = False
end
object Chart1LineVert: TLine
object Chart1LineVert: TConstantLine
LineStyle = lsVertical
Pen.Style = psDash
Position = 0

4
components/tachart/demo/basic/unit1.pas
View File

@ -31,8 +31,8 @@ type
cbInverted: TCheckBox;
cbLegend: TCheckBox;
cbShowGridCheckBox: TCheckBox;
Chart1LineHor: TLine;
Chart1LineVert: TLine;
Chart1LineHor: TConstantLine;
Chart1LineVert: TConstantLine;
cbMarkStyle: TComboBox;
lblAddCount: TLabel;
lblAdd: TLabel;

2
components/tachart/demo/extent/extentdemo.lpi
View File

@ -14,7 +14,7 @@
<ResourceType Value="res"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>

12
components/tachart/demo/extent/main.lfm
View File

@ -18,14 +18,10 @@ object Form1: TForm1
Alignment = calLeft
Grid.Visible = False
Title.Font.Orientation = 900
Transformation.Offset = 0
Transformation.Scale = 1
end
item
Alignment = calBottom
Grid.Visible = False
Transformation.Offset = 0
Transformation.Scale = 1
end>
Extent.XMin = -1.7
Extent.YMin = -1.7
@ -48,7 +44,7 @@ object Form1: TForm1
ShowPoints = True
Source = RandomChartSource1
end
object clRight: TLine
object clRight: TConstantLine
LineStyle = lsVertical
Pen.Color = clGreen
Pen.Style = psDot
@ -56,7 +52,7 @@ object Form1: TForm1
SeriesColor = clGreen
UseBounds = False
end
object clLeft: TLine
object clLeft: TConstantLine
LineStyle = lsVertical
Pen.Color = clGreen
Pen.Style = psDot
@ -64,14 +60,14 @@ object Form1: TForm1
SeriesColor = clGreen
UseBounds = False
end
object clTop: TLine
object clTop: TConstantLine
Pen.Color = clGreen
Pen.Style = psDot
Position = 1.7
SeriesColor = clGreen
UseBounds = False
end
object clBottom: TLine
object clBottom: TConstantLine
Pen.Color = clGreen
Pen.Style = psDot
Position = -1.7

8
components/tachart/demo/extent/main.pas
View File

@ -14,10 +14,10 @@ type
TForm1 = class(TForm)
cgUseBounds: TCheckGroup;
Chart1: TChart;
clRight: TLine;
clLeft: TLine;
clTop: TLine;
clBottom: TLine;
clRight: TConstantLine;
clLeft: TConstantLine;
clTop: TConstantLine;
clBottom: TConstantLine;
Chart1LineSeries: TLineSeries;
fseBounds: TFloatSpinEdit;
lblBoundValue: TLabel;

2
components/tachart/demo/func/funcdemo.lpi
View File

@ -14,7 +14,7 @@
<ResourceType Value="res"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>

4
components/tachart/demo/func/main.lfm
View File

@ -51,12 +51,12 @@ object Form1: TForm1
Step = 4
Title = '1 / Sin(x)'
end
object Chart1XAxis: TLine
object Chart1XAxis: TConstantLine
Position = 0
SeriesColor = clBlack
ShowInLegend = False
end
object Chart1YAxis: TLine
object Chart1YAxis: TConstantLine
LineStyle = lsVertical
Position = 0
SeriesColor = clBlack

4
components/tachart/demo/func/main.pas
View File

@ -16,8 +16,8 @@ type
Chart1BarSeries1: TBarSeries;
Chart1FuncSeries1: TFuncSeries;
Chart1UserDrawnSeries1: TUserDrawnSeries;
Chart1YAxis: TLine;
Chart1XAxis: TLine;
Chart1YAxis: TConstantLine;
Chart1XAxis: TConstantLine;
cbDomain: TCheckBox;
UserDefinedChartSource1: TUserDefinedChartSource;
procedure cbDomainChange(Sender: TObject);