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;