pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix incorrect VpMonthView painting when date is 0 (Dec 30, 1899).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8764 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-03-15 21:32:14 +00:00
parent 71b627aa59
commit eec167171d
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/tvplanit/source/vpmonthview.pas
View File

@ -1558,7 +1558,7 @@ end;
procedure TVpMonthView.MouseEnter; procedure TVpMonthView.MouseEnter;
begin begin
FMouseDate := 0; FMouseDate := -MaxInt;
end; end;
procedure TVpMonthView.MouseLeave; procedure TVpMonthView.MouseLeave;

2
components/tvplanit/source/vpmonthviewpainter.pas
View File

@ -841,7 +841,7 @@ var
begin begin
inherited; inherited;
FDisplayDate := IfThen(RenderDate = 0, Date, RenderDate); FDisplayDate := RenderDate;
with TVpMonthViewOpener(FMonthView) do with TVpMonthViewOpener(FMonthView) do
begin begin