From c35fa3e75ec590aff03f3314bb1d026feb6248eb Mon Sep 17 00:00:00 2001 From: wp_xxyyzz 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;