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;