pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* added re operator overloads to spkmath

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1697 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2011-06-18 01:48:37 +00:00
parent c3832331aa
commit 6c5770f6d7
1 changed files with 22 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
components/spktoolbar/SpkMath/SpkMath.pas
View File

@ -289,14 +289,34 @@ type
end;
{$endif}
{$ifndef EnhancedRecordSupport}
operator - (Left: T2DIntVector; Right: T2DIntVector): T2DIntVector;
operator - (Left: T2DIntRect; Right: T2DIntVector): T2DIntRect;
operator := (ARect: TRect): T2DIntRect;
operator - (Left: T2DVector; Right: T2DVector): T2DVector;
operator - (Left: T3DVector; Right: T3DVector): T3DVector;
{$endif}
implementation
{$ifndef EnhancedRecordSupport}
operator - (Left: T2DIntVector; Right: T2DIntVector): T2DIntVector;
begin
Result.x := Left.x - Right.x;
Result.y := Left.y - Right.y;
end;
operator - (Left: T2DIntRect; Right: T2DIntVector): T2DIntRect;
begin
Result.Create(Left.Left - Right.x, Left.Top - Right.y,
Left.Right - Right.x, Left.Bottom - Right.y);
end;
operator := (ARect: TRect): T2DIntRect;
begin
Result.Left := ARect.Left;
@ -318,6 +338,8 @@ begin
Result.z := Left.z - Right.z;
end;
{$endif}
{ T2DIntVector }
constructor T2DIntVector.Create(Ax, Ay: integer);