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

TAChart: Add "Intervals" page to the axis demo

Browse Source 
git-svn-id: trunk@31858 -
This commit is contained in:
ask 2011-08-03 15:42:09 +00:00
parent ce27587010
commit e486d01537
2 changed files with 110 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

104
components/tachart/demo/axis/main.lfm
View File

@ -126,6 +126,9 @@ object Form1: TForm1
Title.LabelFont.Orientation = 900
end
item
Intervals.MaxLength = 100
Intervals.MinLength = 30
Intervals.NiceSteps = '0.2|0.25|0.5|1.0'
TickLength = 6
Alignment = calBottom
Group = 2
@ -134,6 +137,9 @@ object Form1: TForm1
item
Grid.Color = clGray
Grid.Cosmetic = False
Intervals.Count = 10
Intervals.MinLength = 5
Intervals.Options = [aipUseCount, aipUseMinLength]
Marks.Distance = 4
Marks.LabelFont.Height = -9
Marks.LabelFont.Orientation = 900
@ -203,6 +209,102 @@ object Form1: TForm1
end
end
end
object tsIntervals: TTabSheet
Caption = 'Intervals'
ClientHeight = 404
ClientWidth = 525
object ChartIntervals: TChart
Left = 0
Height = 404
Top = 0
Width = 525
AxisList = <
item
Grid.Visible = False
Intervals.NiceSteps = '0.25|1.0'
TickColor = clMaroon
TickLength = 3
AxisPen.Color = clMaroon
AxisPen.Visible = True
Marks.LabelFont.Color = clMaroon
Minors = <>
Title.LabelFont.Color = clMaroon
Title.LabelFont.Orientation = 900
Title.Visible = True
Title.Caption = 'NiceSteps = 0.25'
end
item
Grid.Visible = False
Intervals.MinLength = 20
Intervals.NiceSteps = '0.3|0.6'
Alignment = calBottom
AxisPen.Visible = True
Marks.Format = '%0:.6g'
Marks.Range.Max = 0.6
Marks.Range.Min = -0.3
Marks.Range.UseMax = True
Marks.Range.UseMin = True
Marks.Style = smsCustom
Minors = <>
Title.Visible = True
Title.Caption = 'Marks.Range = -0.3 .. 0.6'
end
item
Grid.Visible = False
Intervals.Count = 10
Intervals.MinLength = 4
Intervals.Options = [aipUseCount, aipUseMaxLength, aipUseMinLength, aipUseNiceSteps]
TickColor = clGreen
TickLength = 3
AxisPen.Color = clGreen
AxisPen.Visible = True
Marks.LabelFont.Color = clGreen
Minors = <>
Title.LabelFont.Color = clGreen
Title.LabelFont.Orientation = 900
Title.Visible = True
Title.Caption = 'MinLength = 4'
end
item
Grid.Visible = False
Intervals.MaxLength = 200
Intervals.Options = [aipUseCount, aipUseMaxLength, aipUseMinLength, aipUseNiceSteps]
TickColor = clNavy
TickLength = 3
AxisPen.Color = clNavy
AxisPen.Visible = True
Marks.LabelFont.Color = clNavy
Minors = <>
Title.LabelFont.Color = clNavy
Title.LabelFont.Orientation = 900
Title.Visible = True
Title.Caption = 'MaxLength = 200'
end
item
Grid.Visible = False
Intervals.Options = [aipUseMaxLength, aipUseMinLength]
TickLength = 3
AxisPen.Visible = True
Marks.Format = '%0:.4g'
Marks.Style = smsCustom
Minors = <>
Title.LabelFont.Orientation = 900
Title.Visible = True
Title.Caption = 'No nice steps'
end>
BackColor = clSilver
Foot.Brush.Color = clBtnFace
Foot.Font.Color = clBlue
Frame.Visible = False
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'TAChart'
)
Align = alClient
ParentColor = False
end
end
end
object lcsMarks: TListChartSource
DataPoints.Strings = (
@ -222,7 +324,7 @@ object Form1: TForm1
XMin = 0
YMax = 50
YMin = 5
left = 87
left = 216
top = 216
end
object DateTimeIntervalChartSource1: TDateTimeIntervalChartSource

7
components/tachart/demo/axis/main.pas
View File

@ -18,6 +18,7 @@ type
catTAutoAutoScaleAxisTransform1: TAutoScaleAxisTransform;
catTAutoScaleAxisTransform1: TAutoScaleAxisTransform;
catTFahrToCel: TLinearAxisTransform;
ChartIntervals: TChart;
ChartAxisGroup: TChart;
ChartCustomMarks: TChart;
ChartCustomMarksBarSeries1: TBarSeries;
@ -33,6 +34,7 @@ type
lcsMarks: TListChartSource;
PageControl1: TPageControl;
rcsDates: TRandomChartSource;
tsIntervals: TTabSheet;
tsAxisGroup: TTabSheet;
tsCustomMarks: TTabSheet;
tsDateTime: TTabSheet;
@ -99,6 +101,11 @@ begin
Marks.Range.Max := 9;
Marks.LabelFont.Orientation := 900;
Marks.LabelFont.Color := COLORS[i];
with Marks.DefaultSource.Params do begin
MinLength := 5;
MaxLength := 20;
Options := Options + [aipUseCount];
end;
TickColor := COLORS[i];
Group := 1;
end;