From 3eb43e21524edc458a76039c2dc0b12affe39a96 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 15 May 2018 09:25:37 +0000
Subject: [PATCH] tvplanit: Use scaled (instead of constant) TickDist in
 TVpDayView

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6414 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpdayviewpainter.pas | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/components/tvplanit/source/vpdayviewpainter.pas b/components/tvplanit/source/vpdayviewpainter.pas
index d4354ead2..e444b59fc 100644
--- a/components/tvplanit/source/vpdayviewpainter.pas
+++ b/components/tvplanit/source/vpdayviewpainter.pas
@@ -26,6 +26,7 @@ type
     FDayView: TVpDayView;
     FScaledGutterWidth: Integer;
     FScaledIconMargin: Integer;
+    FScaledTickDist: Integer;
     // local parameters of the old render procedure
     ColHeadRect: TRect;
     CellsRect: TRect;
@@ -1384,7 +1385,7 @@ begin
         RenderCanvas.Font.Size := ScaleY(RenderCanvas.Font.Size, DesignTimeDPI);
         {$ENDIF}
         timeStr := Format('%s:%s', [hourStr, minuteStr]);
-        x := lineRect.Left + TICK_DIST;
+        x := lineRect.Left + FScaledTickDist;
         TPSTextOut(RenderCanvas, Angle, RenderIn, x, y + TextMargin, timeStr);
       end else
       begin
@@ -1447,8 +1448,8 @@ begin
   // The top-most tick is not drawn, it is identical with the lower edge of
   // the NavBar block. Only if there are all-day events we must paint it.
   if adEvHeight > 0 then begin
-    TPSMoveTo(RenderCanvas, Angle, RenderIn, lineRect.Right - TICK_DIST, y);
-    TPSLineTo(RenderCanvas, Angle, RenderIn, lineRect.Left + TICK_DIST, y);
+    TPSMoveTo(RenderCanvas, Angle, RenderIn, lineRect.Right - FScaledTickDist, y);
+    TPSLineTo(RenderCanvas, Angle, RenderIn, lineRect.Left + FScaledTickdist, y);
   end;
 
   // Begin with I = 1 because top-most tick already has been handled
@@ -1476,11 +1477,11 @@ begin
     else
       isFullHour := TVpDayViewOpener(FDayView).dvLineMatrix[0, lineIndex].Minute = 0;
 
-    TPSMoveTo(RenderCanvas, Angle, RenderIn, lineRect.Right - TICK_DIST, y - 1);
+    TPSMoveTo(RenderCanvas, Angle, RenderIn, lineRect.Right - FScaledTickDist, y - 1);
     if lineIndex mod FDayView.RowLinesStep = 0 then
       if isFullHour then
         // Hour tick line
-        TPSLineTo(RenderCanvas, Angle, RenderIn, lineRect.Left + TICK_DIST, y - 1)
+        TPSLineTo(RenderCanvas, Angle, RenderIn, lineRect.Left + FScaledTickDist, y - 1)
       else
        // Minutes tick lines
        TPSLineTo(RenderCanvas, Angle, RenderIn, lineRect.Right - MinutesLen, y - 1);
@@ -1982,6 +1983,7 @@ begin
   TVpDayViewOpener(FDayView).dvCalcColHeadHeight(Scale);
   FScaledGutterWidth := Round(FDayView.GutterWidth * Scale);
   FScaledIconMargin := Round(ICON_MARGIN * Scale);
+  FScaledTickdist := Round(TICK_Dist * Scale);
 end;
 
 procedure TVpDayViewPainter.VerifyMaxWidthDevisors;