paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 07:00:32 +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 = ( Title.Text.Strings = (
'TAChart' 'TAChart'
) )
Toolset = ChartToolset1
Align = alClient Align = alClient
DoubleBuffered = True DoubleBuffered = True
ParentColor = False ParentColor = False
@ -126,6 +127,7 @@ object Form1: TForm1
Extent.UseXMin = True Extent.UseXMin = True
Extent.UseXMax = True Extent.UseXMax = True
ColorSource = ListChartSource1 ColorSource = ListChartSource1
OnCalculate = ChartColorMapColorMapSeries1Calculate
end end
end end
end end
@ -147,4 +149,14 @@ object Form1: TForm1
left = 280 left = 280
top = 114 top = 114
end end
object ChartToolset1: TChartToolset
left = 280
top = 180
object ChartToolset1ZoomDragTool1: TZoomDragTool
Shift = [ssLeft]
end
object ChartToolset1PanDragTool1: TPanDragTool
Shift = [ssRight]
end
end
end end

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

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