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

TAChart: Add "Transform" page to the panes demo

Browse Source 
git-svn-id: trunk@32097 -
This commit is contained in:
ask 2011-08-29 14:43:56 +00:00
parent 54a4e2fd68
commit 2eff105803
2 changed files with 105 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

95
components/tachart/demo/panes/Main.lfm
View File

@ -80,7 +80,7 @@ object Form1: TForm1
end
object chLink3: TChart
Left = 0
Height = 200
Height = 204
Top = 400
Width = 612
AxisList = <
@ -99,7 +99,7 @@ object Form1: TForm1
Title.Text.Strings = (
'TAChart'
)
Align = alTop
Align = alClient
ParentColor = False
object chLink3LineSeries1: TLineSeries
LinePen.Color = clNavy
@ -108,6 +108,74 @@ object Form1: TForm1
end
end
end
object tsTransform: TTabSheet
Caption = 'Transform'
ClientHeight = 604
ClientWidth = 612
object chTransform: TChart
Left = 0
Height = 604
Top = 0
Width = 612
AxisList = <
item
Group = 1
Marks.Range.Max = 50
Marks.Range.UseMax = True
Marks.Range.UseMin = True
Minors = <>
Title.LabelFont.Orientation = 900
Transformations = catAuto1
end
item
Group = 1
Marks.Range.Max = 50
Marks.Range.UseMax = True
Marks.Range.UseMin = True
Minors = <>
Transformations = catAuto2
end
item
Group = 1
Marks.Range.Max = 50
Marks.Range.UseMax = True
Marks.Range.UseMin = True
Minors = <>
Transformations = catAuto3
end
item
Alignment = calBottom
Minors = <>
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 chTransformLineSeries1: TLineSeries
AxisIndexY = 0
LinePen.Color = clNavy
LinePen.Width = 2
Source = rcsLink1
end
object chTransformLineSeries2: TLineSeries
AxisIndexY = 1
LinePen.Color = clNavy
LinePen.Width = 2
Source = rcsLink2
end
object chTransformLineSeries3: TLineSeries
AxisIndexY = 2
LinePen.Color = clNavy
LinePen.Width = 2
Source = rcsLink3
end
end
end
end
object rcsLink1: TRandomChartSource
PointsNumber = 50
@ -153,4 +221,27 @@ object Form1: TForm1
left = 28
top = 424
end
object catAuto1: TChartAxisTransformations
left = 104
top = 32
object catAuto1AutoScaleAxisTransform1: TAutoScaleAxisTransform
MaxValue = 1.7
end
end
object catAuto2: TChartAxisTransformations
left = 96
top = 232
object catAuto1AutoScaleAxisTransform2: TAutoScaleAxisTransform
MaxValue = 3.7
MinValue = 2
end
end
object catAuto3: TChartAxisTransformations
left = 96
top = 424
object catAuto1AutoScaleAxisTransform3: TAutoScaleAxisTransform
MaxValue = 5.7
MinValue = 4
end
end
end

13
components/tachart/demo/panes/Main.pas
View File

@ -6,10 +6,17 @@ interface
uses
Classes, ComCtrls, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
TAChartExtentLink, TAGraph, TASeries, TASources;
TAChartExtentLink, TAGraph, TASeries, TASources, TATransformations;
type
TForm1 = class(TForm)
catAuto1: TChartAxisTransformations;
catAuto1AutoScaleAxisTransform1: TAutoScaleAxisTransform;
catAuto1AutoScaleAxisTransform2: TAutoScaleAxisTransform;
catAuto1AutoScaleAxisTransform3: TAutoScaleAxisTransform;
catAuto2: TChartAxisTransformations;
catAuto3: TChartAxisTransformations;
chTransform: TChart;
ChartExtentLink1: TChartExtentLink;
chLink1: TChart;
chLink1LineSeries1: TLineSeries;
@ -17,10 +24,14 @@ type
chLink3LineSeries1: TLineSeries;
chLink2: TChart;
chLink3: TChart;
chTransformLineSeries1: TLineSeries;
chTransformLineSeries2: TLineSeries;
chTransformLineSeries3: TLineSeries;
PageControl1: TPageControl;
rcsLink1: TRandomChartSource;
rcsLink2: TRandomChartSource;
rcsLink3: TRandomChartSource;
tsTransform: TTabSheet;
tsLink: TTabSheet;
end;