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

TAChart: Add area series to rotation demo

Browse Source 
git-svn-id: trunk@27023 -
This commit is contained in:
ask 2010-08-07 16:50:09 +00:00
parent 76b6278554
commit c0a6f3aa38
3 changed files with 29 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/tachart/demo/rotate/Main.lfm
View File

@ -6,6 +6,7 @@ object Form1: TForm1
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 372 ClientHeight = 372
ClientWidth = 456 ClientWidth = 456
Position = poScreenCenter
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
object Chart1: TChart object Chart1: TChart
Left = 0 Left = 0
@ -14,7 +15,7 @@ object Form1: TForm1
Width = 456 Width = 456
AxisList = < AxisList = <
item item
Alignment = calLeft Title.LabelFont.Orientation = 900
Title.Font.Orientation = 900 Title.Font.Orientation = 900
end end
item item
@ -49,6 +50,13 @@ object Form1: TForm1
SeriesColor = clMoneyGreen SeriesColor = clMoneyGreen
Source = RandomChartSource1 Source = RandomChartSource1
end end
object Chart1AreaSeries1: TAreaSeries
AxisIndexX = 1
AxisIndexY = 0
AreaContourPen.Width = 2
AreaLinesPen.Color = clRed
Source = RandomChartSource1
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
@ -78,7 +86,7 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
end end
object cbNegative: TCheckBox object cbNegative: TCheckBox
Left = 200 Left = 292
Height = 17 Height = 17
Top = 10 Top = 10
Width = 97 Width = 97
@ -86,6 +94,15 @@ object Form1: TForm1
OnChange = cbNegativeChange OnChange = cbNegativeChange
TabOrder = 2 TabOrder = 2
end end
object cbRotateArea: TCheckBox
Left = 200
Height = 17
Top = 10
Width = 78
Caption = 'Rotate area'
OnChange = cbRotateAreaChange
TabOrder = 3
end
end end
object RandomChartSource1: TRandomChartSource object RandomChartSource1: TRandomChartSource
PointsNumber = 9 PointsNumber = 9

8
components/tachart/demo/rotate/Main.pas
View File

@ -15,13 +15,16 @@ type
TForm1 = class(TForm) TForm1 = class(TForm)
cbRotateBar: TCheckBox; cbRotateBar: TCheckBox;
cbNegative: TCheckBox; cbNegative: TCheckBox;
cbRotateArea: TCheckBox;
Chart1: TChart; Chart1: TChart;
Chart1AreaSeries1: TAreaSeries;
Chart1BarSeries1: TBarSeries; Chart1BarSeries1: TBarSeries;
Chart1LineSeries1: TLineSeries; Chart1LineSeries1: TLineSeries;
cbRotateLine: TCheckBox; cbRotateLine: TCheckBox;
Panel1: TPanel; Panel1: TPanel;
RandomChartSource1: TRandomChartSource; RandomChartSource1: TRandomChartSource;
procedure cbNegativeChange(Sender: TObject); procedure cbNegativeChange(Sender: TObject);
procedure cbRotateAreaChange(Sender: TObject);
procedure cbRotateBarChange(Sender: TObject); procedure cbRotateBarChange(Sender: TObject);
procedure cbRotateLineChange(Sender: TObject); procedure cbRotateLineChange(Sender: TObject);
end; end;
@ -51,6 +54,11 @@ begin
RandomChartSource1.YMin := -RandomChartSource1.YMin; RandomChartSource1.YMin := -RandomChartSource1.YMin;
end; end;
procedure TForm1.cbRotateAreaChange(Sender: TObject);
begin
Rotate(Chart1AreaSeries1)
end;
procedure TForm1.cbRotateBarChange(Sender: TObject); procedure TForm1.cbRotateBarChange(Sender: TObject);
begin begin
Rotate(Chart1BarSeries1) Rotate(Chart1BarSeries1)

9
components/tachart/demo/rotate/rotatedemo.lpi
View File

@ -1,15 +1,10 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="8"/>
<General> <General>
<Flags>
<UseDefaultCompilerOptions Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<Title Value="rotatedemo"/> <Title Value="rotatedemo"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
@ -17,7 +12,7 @@
<VersionInfo> <VersionInfo>
<Language Value=""/> <Language Value=""/>
<CharSet Value=""/> <CharSet Value=""/>
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/> <StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>