paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 03:39:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Update axis demo to include fixed-point and non-proportional zooming

Browse Source 
git-svn-id: trunk@26953 -
This commit is contained in:
ask 2010-08-01 03:58:08 +00:00
parent a23994a8aa
commit 13425eb6c4
2 changed files with 21 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -304,10 +304,11 @@ object Form1: TForm1
Title.Brush.Color = clBtnFace
Title.Font.Color = clBlue
Title.Text.Strings = (
'This series contain data points for every hour in 10 years'
'Zoom in to see various labels on the bottom axis'
'The series contain data points for every hour in 10 years'
'Left/right-click to zoom and see various labels on the bottom axis'
)
Title.Visible = True
Toolset = ChartToolsetDateTime
Align = alClient
ParentColor = False
object ChartDateTimeLineSeries1: TLineSeries
@ -386,12 +387,24 @@ object Form1: TForm1
left = 87
top = 216
end
object ChartToolsetDateTime: TChartToolset
left = 352
top = 172
end
object DateTimeIntervalChartSource1: TDateTimeIntervalChartSource
left = 352
top = 232
end
object ChartToolsetDateTime: TChartToolset
left = 446
top = 172
object ChartToolset1ZoomIn: TZoomClickTool
Shift = [ssLeft]
FixedPoint = True
ZoomFactor = 4
ZoomRatio = 0.25
end
object ChartToolset1ZoomOut: TZoomClickTool
Shift = [ssRight]
FixedPoint = True
ZoomFactor = 0.25
ZoomRatio = 4
end
end
end

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

@ -24,6 +24,8 @@ type
cfsLog: TFuncSeries;
cbLog: TCheckBox;
ChartToolsetDateTime: TChartToolset;
ChartToolset1ZoomIn: TZoomClickTool;
ChartToolset1ZoomOut: TZoomClickTool;
ChartTWinterBar: TBarSeries;
clsLogPoints: TLineSeries;
ChartT: TChart;