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
This commit is contained in:
wp_xxyyzz
2018-05-19 22:57:26 +00:00
parent 54a4101f8a
commit c35fa3e75e

View File

@ -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;