From 98806cae909619073b2ad12a9c6622e382f7414d Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sun, 1 Mar 2009 03:30:58 +0000
Subject: [PATCH] lcl: use already defined operator for TFloatPoint -> TPoint
 conversion

git-svn-id: trunk@18849 -
---
 lcl/graphmath.pp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lcl/graphmath.pp b/lcl/graphmath.pp
index be1c118a02..4c19ed0f0f 100644
--- a/lcl/graphmath.pp
+++ b/lcl/graphmath.pp
@@ -489,11 +489,11 @@ var
   var
     P : TPoint;
   begin
-    P.X := RoundToInt(Point.X);
-    P.Y := RoundToInt(Point.Y);
-    If (Pt.X <> P.X) or (Pt.Y <> P.Y) then begin
+    P := Point;
+    if (Pt.X <> P.X) or (Pt.Y <> P.Y) then
+    begin
       Inc(Count);
-      ReallocMem(Points,SizeOf(TPoint)*Count);
+      ReallocMem(Points, SizeOf(TPoint) * Count);
       Points[Count - 1] := P;
       Pt := P;
     end;