From c35fa3e75ec590aff03f3314bb1d026feb6248eb Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 19 May 2018 22:57:26 +0000
Subject: [PATCH] tvplanit: Set lower limit of VpDayView.RowHeight to 1
 (discussion of issue #33763)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6440 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpdayview.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/tvplanit/source/vpdayview.pas b/components/tvplanit/source/vpdayview.pas
index 7fe372ab9..d7a0e40cf 100644
--- a/components/tvplanit/source/vpdayview.pas
+++ b/components/tvplanit/source/vpdayview.pas
@@ -2426,8 +2426,8 @@ end;
 procedure TVpDayView.SetCustomRowHeight(Value: Integer);
 begin
   if Value <> FCustomRowHeight then begin
-    if (Value <> 0) and (Value < TextMargin)
-      then FCustomRowHeight := TextMargin
+    if (Value <> 0) and (Value < 1)
+      then FCustomRowHeight := 1
       else FCustomRowHeight := Value;
     Invalidate;
   end;