paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 07:43:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Merge duplicate definitions of TChartColor

Browse Source 
git-svn-id: trunk@31392 -
This commit is contained in:
ask 2011-06-26 07:14:37 +00:00
parent 2cca7ee1a8
commit 980591b46b
9 changed files with 15 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/tachartutils.pas
View File

@ -42,6 +42,9 @@ type
EListenerError = class(EChartError);
EDrawDataError = class(EChartError);
// Like TColor, but avoiding dependency on Graphics.
TChartColor = -$7FFFFFFF-1..$7FFFFFFF;
TDoublePoint = record
X, Y: Double;
end;

3
components/tachart/tacustomsource.pas
View File

@ -29,9 +29,6 @@ type
EEditableSourceRequired = class(EChartError);
EYCountError = class(EChartError);
// Like TColor, but avoiding dependency on Graphics.
TChartColor = -$7FFFFFFF-1..$7FFFFFFF;
{ TChartDataItem }
TChartDataItem = object

4
components/tachart/tadraweraggpas.pas
View File

@ -20,7 +20,7 @@ unit TADrawerAggPas;
interface
uses
Classes, FPCanvas, Agg_LCL, TADrawUtils;
Classes, FPCanvas, Agg_LCL, TAChartUtils, TADrawUtils;
type
@ -68,7 +68,7 @@ type
implementation
uses
Math, TAChartUtils, TAGeometry;
Math, TAGeometry;
{ TAggPasDrawer }

4
components/tachart/tadrawerbgra.pas
View File

@ -20,7 +20,7 @@ unit TADrawerBGRA;
interface
uses
BGRABitmap, BGRABitmapTypes, Classes, FPCanvas, TADrawUtils;
BGRABitmap, BGRABitmapTypes, Classes, FPCanvas, TAChartUtils, TADrawUtils;
type
@ -78,7 +78,7 @@ type
implementation
uses
TAChartUtils, TAGeometry;
TAGeometry;
function PointsToPointsF(
APoints: array of TPoint; AStartIndex, ANumPts: Integer): ArrayOfTPointF;

4
components/tachart/tadrawercanvas.pas
View File

@ -21,7 +21,7 @@ unit TADrawerCanvas;
interface
uses
Classes, FPCanvas, FPImage, Graphics, SysUtils, TADrawUtils;
Classes, FPCanvas, FPImage, Graphics, SysUtils, TAChartUtils, TADrawUtils;
type
IChartTCanvasDrawer = interface
@ -81,7 +81,7 @@ type
implementation
uses
TAChartUtils, TAGeometry;
TAGeometry;
function CanvasGetFontOrientationFunc(AFont: TFPCustomFont): Integer;
begin

4
components/tachart/tadrawerfpvectorial.pas
View File

@ -20,7 +20,7 @@ unit TADrawerFPVectorial;
interface
uses
Classes, FPCanvas, FPImage, FPVectorial, TADrawUtils;
Classes, FPCanvas, FPImage, FPVectorial, TAChartUtils, TADrawUtils;
type
@ -77,7 +77,7 @@ type
implementation
uses
Math, TAChartUtils, TAGeometry;
Math, TAGeometry;
{ TFPVectorialDrawer }

4
components/tachart/tadrawersvg.pas
View File

@ -20,7 +20,7 @@ unit TADrawerSVG;
interface
uses
Classes, FPImage, FPCanvas, TADrawUtils;
Classes, FPImage, FPCanvas, TAChartUtils, TADrawUtils;
type
@ -90,7 +90,7 @@ type
implementation
uses
Math, SysUtils, TAChartUtils, TAGeometry;
Math, SysUtils, TAGeometry;
const
RECT_FMT =

1
components/tachart/tadrawerwmf.pas
View File

@ -73,7 +73,6 @@ type
property MMWidth: Integer read FMMWidth write SetMMWidth;
end;
{ TMetafileCanvas }
TMetafileCanvas = class(TCanvas)

5
components/tachart/tadrawutils.pas
View File

@ -21,11 +21,10 @@ unit TADrawUtils;
interface
uses
Classes, FPCanvas, FPImage, Types;
Classes, FPCanvas, FPImage, Types, TAChartUtils;
type
// Same types as in Graphics unit, but without dependency.
TChartColor = -$7FFFFFFF-1..$7FFFFFFF;
TChartAntialiasingMode = (amDontCare, amOn, amOff);
type
@ -155,7 +154,7 @@ type
implementation
uses
Math, TAChartUtils, TAGeometry;
Math, TAGeometry;
const
LINE_INTERVAL = 2;