From 3f05a976dc0826941e1847bfda9eb4ab647146c2 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 12 Aug 2019 08:31:21 +0000
Subject: [PATCH] jvcllaz: Fix 1-pixel offset when drawing appointments in
 TJvTFDays.

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

diff --git a/components/jvcllaz/run/JvTimeFramework/jvtfdays.pas b/components/jvcllaz/run/JvTimeFramework/jvtfdays.pas
index cb816e082..af9ebe83b 100644
--- a/components/jvcllaz/run/JvTimeFramework/jvtfdays.pas
+++ b/components/jvcllaz/run/JvTimeFramework/jvtfdays.pas
@@ -9279,7 +9279,7 @@ begin
 
   Result.Left := VirtCellRect.Left + MakeUpWidth + BaseWidth;
   Result.Right := Result.Left + ApptWidth - ApptBuffer;
-  Result.Top := VirtCellRect.Top;
+  Result.Top := VirtCellRect.Top - 1;
   Result.Bottom := VirtualCellRect(Col, EndRow).Bottom;
 end;