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

TAChart: Add panning to color map series demo

Browse Source 
git-svn-id: trunk@27735 -
This commit is contained in:
ask 2010-10-17 07:50:02 +00:00
parent 5fb808de4e
commit 198c23805f
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -117,6 +117,7 @@ object Form1: TForm1
Title.Text.Strings = (
'TAChart'
)
Toolset = ChartToolset1
Align = alClient
DoubleBuffered = True
ParentColor = False
@ -126,6 +127,7 @@ object Form1: TForm1
Extent.UseXMin = True
Extent.UseXMax = True
ColorSource = ListChartSource1
OnCalculate = ChartColorMapColorMapSeries1Calculate
end
end
end
@ -147,4 +149,14 @@ object Form1: TForm1
left = 280
top = 114
end
object ChartToolset1: TChartToolset
left = 280
top = 180
object ChartToolset1ZoomDragTool1: TZoomDragTool
Shift = [ssLeft]
end
object ChartToolset1PanDragTool1: TPanDragTool
Shift = [ssRight]
end
end
end

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

@ -6,7 +6,7 @@ interface
uses
Classes, ComCtrls, StdCtrls, Forms, Graphics, TAFuncSeries, TAGraph, TASeries,
TASources;
TASources, TATools;
type
@ -22,6 +22,9 @@ type
Chart1YAxis: TConstantLine;
ChartColorMap: TChart;
ChartColorMapColorMapSeries1: TColorMapSeries;
ChartToolset1: TChartToolset;
ChartToolset1PanDragTool1: TPanDragTool;
ChartToolset1ZoomDragTool1: TZoomDragTool;
ListChartSource1: TListChartSource;
PageControl1: TPageControl;
tsDomain: TTabSheet;