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

TAChart: Add common TImageToGraphFunc and TGraphToImageFunc types

Browse Source 
git-svn-id: trunk@38789 -
This commit is contained in:
ask 2012-09-21 15:28:58 +00:00
parent cdecf4667d
commit 21b933340c
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tachartutils.pas
View File

@ -66,6 +66,8 @@ type
TPointDistFunc = function (const A, B: TPoint): Integer; TPointDistFunc = function (const A, B: TPoint): Integer;
TTransformFunc = function (A: Double): Double of object; TTransformFunc = function (A: Double): Double of object;
TImageToGraphFunc = function (AX: Integer): Double of object;
TGraphToImageFunc = function (AX: Double): Integer of object;
TChartUnits = (cuPercent, cuAxis, cuGraph, cuPixel); TChartUnits = (cuPercent, cuAxis, cuGraph, cuPixel);

3
components/tachart/tafuncseries.pas
View File

@ -371,7 +371,6 @@ type
strict private strict private
type type
TOnPoint = procedure (AXg, AXa: Double) of object; TOnPoint = procedure (AXg, AXa: Double) of object;
TImageToGraph = function (AX: Integer): Double of object;
var var
FAxisToGraphXr, FAxisToGraphYr, FGraphToAxisXr: TTransformFunc; FAxisToGraphXr, FAxisToGraphYr, FGraphToAxisXr: TTransformFunc;
FCalc: TTransformFunc; FCalc: TTransformFunc;
@ -382,7 +381,7 @@ type
FExtentYMax: PDouble; FExtentYMax: PDouble;
FExtentYMin: PDouble; FExtentYMin: PDouble;
FGraphStep: Double; FGraphStep: Double;
FImageToGraph: TImageToGraph; FImageToGraph: TImageToGraphFunc;
FNearestPointParams: ^TNearestPointParams; FNearestPointParams: ^TNearestPointParams;
FNearestPointResults: ^TNearestPointResults; FNearestPointResults: ^TNearestPointResults;
FMakeDP: TMakeDoublePoint; FMakeDP: TMakeDoublePoint;