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); procedure TVpDayView.SetCustomRowHeight(Value: Integer);
begin begin
if Value <> FCustomRowHeight then begin if Value <> FCustomRowHeight then begin
if (Value <> 0) and (Value < TextMargin) if (Value <> 0) and (Value < 1)
then FCustomRowHeight := TextMargin then FCustomRowHeight := 1
else FCustomRowHeight := Value; else FCustomRowHeight := Value;
Invalidate; Invalidate;
end; end;