You've already forked lazarus-ccr
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:
@ -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;
|
||||||
|
Reference in New Issue
Block a user