From 946302e6b5504c72f2aaeb08dda176e928343493 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 13 Aug 2019 16:50:27 +0000
Subject: [PATCH] jvcllaz: Fix 1-pixel offset when printing appointments in
 TJvTFDays.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7126 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/jvcllaz/examples/JvTimeFramework/tfmain.lfm | 1 +
 components/jvcllaz/run/JvTimeFramework/jvtfdays.pas    | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/jvcllaz/examples/JvTimeFramework/tfmain.lfm b/components/jvcllaz/examples/JvTimeFramework/tfmain.lfm
index f3360c50d..ec135fcfd 100644
--- a/components/jvcllaz/examples/JvTimeFramework/tfmain.lfm
+++ b/components/jvcllaz/examples/JvTimeFramework/tfmain.lfm
@@ -77,6 +77,7 @@ object MainForm: TMainForm
         SelFancyRowHdrAttr.Hr2400 = True
         SelFancyRowHdrAttr.MinorFont.Color = clBlack
         SelFancyRowHdrAttr.MajorFont.Color = clBlack
+        SelFancyRowHdrAttr.MajorFont.Height = -18
         SelFancyRowHdrAttr.TickColor = clSilver
         GridLineColor = clSilver
         PrimeTime.StartTime = 0.333333333333333
diff --git a/components/jvcllaz/run/JvTimeFramework/jvtfdays.pas b/components/jvcllaz/run/JvTimeFramework/jvtfdays.pas
index 74ca3b8bc..694194866 100644
--- a/components/jvcllaz/run/JvTimeFramework/jvtfdays.pas
+++ b/components/jvcllaz/run/JvTimeFramework/jvtfdays.pas
@@ -13573,7 +13573,7 @@ begin
   Result.Right := Result.Left + ApptWidth - ApptBuffer;
 
   // Printer bug, fixed
-  Result.Top := WorkTop;
+  Result.Top := WorkTop - 1;
 
   Result.Bottom := CellRect(Col, EndRow, PageInfo).Bottom;
 end;