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

TAChart: Allow multiplication of double point by scalar

Browse Source 
git-svn-id: trunk@41849 -
This commit is contained in:
ask 2013-06-23 18:44:02 +00:00
parent 729679cdfd
commit da34f73db2
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/tageometry.pas
View File

@ -97,6 +97,7 @@ operator div(const A: TPoint; ADivisor: Integer): TPoint; inline;
operator *(const A: TPoint; AMultiplier: Integer): TPoint; inline;
operator *(const A, B: TPoint): TPoint; inline;
operator *(const A, B: TDoublePoint): TDoublePoint; overload; inline;
operator * (const A: TDoublePoint; B: Double): TDoublePoint; overload; inline;
operator /(const A, B: TDoublePoint): TDoublePoint; overload; inline;
operator = (const A, B: TDoublePoint): Boolean; overload; inline;
operator = (const A, B: TDoubleRect): Boolean; overload; inline;
@ -719,6 +720,12 @@ begin
Result.Y := A.Y * B.Y;
end;
operator * (const A: TDoublePoint; B: Double): TDoublePoint;
begin
Result.X := A.X * B;
Result.Y := A.Y * B;
end;
operator / (const A, B: TDoublePoint): TDoublePoint;
begin
Result.X := A.X / B.X;