From f113cfc7401384d7d24a911a5ec16bdc6d9aaadf Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Thu, 4 Jan 2018 13:41:16 +0000
Subject: [PATCH] Carbon: Simplified 1 pixel drawn code. Same as r56926
 #32000402a9 for Cocoa. Issue #32926.

git-svn-id: trunk@56952 -
---
 lcl/interfaces/carbon/carboncanvas.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/carbon/carboncanvas.pp b/lcl/interfaces/carbon/carboncanvas.pp
index 26c0b21432..60711e39a1 100644
--- a/lcl/interfaces/carbon/carboncanvas.pp
+++ b/lcl/interfaces/carbon/carboncanvas.pp
@@ -1272,8 +1272,8 @@ begin
   if (absDeltaX<=1) and (absDeltaY<=1) then
   begin
     // special case for 1-pixel lines
-    tx := bx + 0.05;
-    ty := by + 0.05;
+    tx := bx + 0.05 * deltaX;
+    ty := by + 0.05 * deltaY;
   end
   else
   begin