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

tvplanit: Print GanttView in multiple pages.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8513 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-05 16:30:14 +00:00
parent a35403bb3f
commit 37d4c4c837
2 changed files with 20 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -918,10 +918,13 @@ end;
the number of day columns in the view. }
function TVpGanttView.GetNumDays: Integer;
begin
Result := 0;
if (FRealStartDate <> NO_DATE) then
Result := trunc(FRealEndDate) - trunc(FRealStartDate) + 1
else
Result := 0;
begin
Result := trunc(FRealEndDate) - trunc(FRealStartDate) + 1;
if Result < 0 then
Result := 0;
end;
end;
{ Determines the number of events (= rows) to be displayed in the GanttView. }