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

tvplanit: Fix operation of navigation buttons in Preview dialog for weekview.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8533 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-11 15:24:15 +00:00
parent 2688b61c26
commit 35e35ca544
5 changed files with 46 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/tvplanit/source/vpprtfmt.pas
View File

@ -1483,7 +1483,7 @@ var
Scale: Extended;
StartLine: Integer;
EndLine: Integer;
oldGanttStartDate, oldGanttEndDate: TDateTime;
oldGanttStartDate: TDateTime;
procedure GetMeasurements;
begin
@ -1662,6 +1662,8 @@ var
Granularity,
True
);
if Element.ItemType = itWeekView then
FPrintFormats.Items[CurFormat].DefaultDayInc := 7;
end;
case Element.ItemType of
@ -2045,7 +2047,7 @@ begin
StartContact := FLastContact;
LastPage := True;
if FHaveDate and (ADate < EndDate) then
if FHaveDate and (ADate <= EndDate) then // wp: I consider the end date to be inclusive
LastPage := False;
if FHaveTaskList and (FLastTask >= 0) then
LastPage := False;

1
components/tvplanit/source/vpprtprv.pas
View File

@ -1112,6 +1112,7 @@ begin
if v <> FZoomFactor then begin
FZoomFactor := v;
ClearPageData;
GeneratePageImage;
SetScrollBars;
Invalidate;
end;