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

tvplanit: Fix width of initial month in TVpGanttView

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8439 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-02 20:15:51 +00:00
parent 30acf7208e
commit 79cfe6aad2
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1281,6 +1281,8 @@ begin
nDays := DayOf(FEndDate) nDays := DayOf(FEndDate)
else else
nDays := DaysInMonth(dm); nDays := DaysInMonth(dm);
if dm + nDays > FEndDate then
nDays := trunc(FEndDate) - trunc(dm);
x2 := x1 + nDays * ColWidth; x2 := x1 + nDays * ColWidth;
FMonthRecords[i].Rect := Rect(x1, y1, x2, y2); FMonthRecords[i].Rect := Rect(x1, y1, x2, y2);
FMonthRecords[i].Date := dm; FMonthRecords[i].Date := dm;