diff --git a/lcl/interfaces/cocoa/cocoagdiobjects.pas b/lcl/interfaces/cocoa/cocoagdiobjects.pas
index 4239f49d98..c9e3339c5c 100644
--- a/lcl/interfaces/cocoa/cocoagdiobjects.pas
+++ b/lcl/interfaces/cocoa/cocoagdiobjects.pas
@@ -1764,8 +1764,8 @@ begin
   if (absDeltaX<=1) and (absDeltaY<=1) then
   begin
     // special case for 1-pixel lines
-    tx := bx + 0.05 * deltaX;
-    ty := by + 0.05 * deltay;
+    tx := bx + 0.5 * deltaX;
+    ty := by + 0.5 * deltay;
   end
   else
   begin