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

TAChart: Add DoublePoint utility function

Browse Source 
git-svn-id: trunk@25887 -
This commit is contained in:
ask 2010-06-04 09:20:22 +00:00
parent 1133b58566
commit ccbc4bbb33
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/tachartutils.pas
View File

@ -192,6 +192,7 @@ const
function BoundsSize(ALeft, ATop: Integer; ASize: TSize): TRect; inline; function BoundsSize(ALeft, ATop: Integer; ASize: TSize): TRect; inline;
function DoublePoint(AX, AY: Double): TDoublePoint; inline;
function DoubleRect(AX1, AY1, AX2, AY2: Double): TDoubleRect; inline; function DoubleRect(AX1, AY1, AX2, AY2: Double): TDoubleRect; inline;
procedure DrawLineDepth(ACanvas: TCanvas; AX1, AY1, AX2, AY2, ADepth: Integer); procedure DrawLineDepth(ACanvas: TCanvas; AX1, AY1, AX2, AY2, ADepth: Integer);
@ -318,6 +319,12 @@ begin
end; {case AxisScale} end; {case AxisScale}
end; end;
function DoublePoint(AX, AY: Double): TDoublePoint; inline;
begin
Result.X := AX;
Result.Y := AY;
end;
function DoubleRect(AX1, AY1, AX2, AY2: Double): TDoubleRect; inline; function DoubleRect(AX1, AY1, AX2, AY2: Double): TDoubleRect; inline;
begin begin
Result.a.X := AX1; Result.a.X := AX1;