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

TAChart: Add DoubleRect utility function, EChartError base exception class.

Browse Source 
git-svn-id: trunk@19603 -
This commit is contained in:
ask 2009-04-24 11:32:33 +00:00
parent 468a0e145f
commit 56cc734a27
2 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/tachart/tachartutils.pas
View File

@ -29,7 +29,7 @@ unit TAChartUtils;
interface
uses
Graphics, Types;
Graphics, Types, SysUtils;
const
MaxColor = 15;
@ -38,6 +38,8 @@ const
clTeal, clNavy, clMaroon, clLime, clOlive, clPurple, clSilver, clAqua);
type
EChartError = class(Exception);
TChartCoord = record
x, y: Double;
Color: TColor;
@ -110,11 +112,13 @@ const
'%1:.2f%% of %3:g', // smsLabelPercentTotal
'%4:g' // smsXValue
);
EmptyDoubleRect: TDoubleRect = (coords: (0, 0, 0, 0));
procedure CalculateIntervals(
AMin, AMax: Double; AxisScale: TAxisScale; out AStart, AStep: Double);
function DoublePoint(const ACoord: TChartCoord): TDoublePoint;
function DoublePoint(const ACoord: TChartCoord): TDoublePoint; inline;
function DoubleRect(AX1, AY1, AX2, AY2: Double): TDoubleRect; inline;
procedure Exchange(var A, B: Integer); overload;
procedure Exchange(var A, B: Double); overload;
@ -139,7 +143,7 @@ operator +(const A: TPoint; B: TSize): TPoint;
implementation
uses
Math, SysUtils, LCLIntf, LCLType;
Math, LCLIntf, LCLType;
procedure CalculateIntervals(
AMin, AMax: Double; AxisScale: TAxisScale; out AStart, AStep: Double);
@ -216,6 +220,14 @@ begin
Result.Y := ACoord.y;
end;
function DoubleRect(AX1, AY1, AX2, AY2: Double): TDoubleRect; inline;
begin
Result.a.X := AX1;
Result.a.Y := AY1;
Result.b.X := AX2;
Result.b.Y := AY2;
end;
procedure Exchange(var A, B: Integer); overload;
var
t: Integer;

4
components/tachart/taseries.pas
View File

@ -33,7 +33,7 @@ uses
TAGraph, TAChartUtils, TATypes;
type
BarException = class(Exception);
EBarError = class(EChartError);
{ TChartSeries }
@ -1083,7 +1083,7 @@ end;
procedure TBarSeries.SetBarWidthPercent(Value: Integer);
begin
if (Value < 1) or (Value > 100) then
raise BarException.Create('Wrong BarWidth Percent');
raise EBarError.Create('Wrong BarWidth Percent');
FBarWidthPercent := Value;
end;