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

tvplanit: Fix printing of incorrect dates. Introduced in one of previous commits.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8510 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-03 20:58:15 +00:00
parent be8de46cce
commit d8eb756310
3 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1709,9 +1709,9 @@ var
Granularity,
true
);
Element.DayOffset := TvpGanttView(RenderControl).VisibleCols;
end;
else
RenderControl.RenderToCanvas(
ACanvas,
@ -1759,6 +1759,9 @@ begin
for i := 0 to FPrintFormats.Items[CurFormat].Elements.Count - 1 do begin
elem := FPrintFormats.Items[CurFormat].Elements.Items[i];
if elem.ItemType = itGanttView then
elem.DayOffsetUnits := duDay;
GetPrintRectangle(elem);
if elem.ItemType = itCaption then begin

5
components/tvplanit/source/vpprtprvdlg.lfm
View File

@ -14,6 +14,7 @@ object frmPrintPreview: TfrmPrintPreview
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnShow = FormShow
LCLVersion = '2.3.0.0'
object Panel1: TPanel
Left = 0
Height = 56
@ -50,7 +51,7 @@ object frmPrintPreview: TfrmPrintPreview
end
object ToolButton3: TToolButton
Left = 55
Height = 25
Height = 5
Top = 0
Caption = 'ToolButton3'
ImageIndex = 2
@ -86,7 +87,7 @@ object frmPrintPreview: TfrmPrintPreview
end
object ToolButton8: TToolButton
Left = 152
Height = 25
Height = 5
Top = 0
Caption = 'ToolButton8'
ImageIndex = 6

5
components/tvplanit/source/vpprtprvdlg.pas
View File

@ -275,8 +275,6 @@ begin
DoFormPlacement(EditForm);
EditForm.WindowState := WindowState;
EditForm.VpPrintPreview1.ControlLink := ControlLink;
EditForm.VpPrintFormatComboBox1.ControlLink := ControlLink;
EditForm.VpPrintPreview1.StartDate := StartDate;
EditForm.VpPrintPreview1.EndDate := EndDate;
EditForm.VpPrintPreview1.ZoomFactor := ZoomFactor;
@ -285,7 +283,8 @@ begin
EditForm.VpPrintPreview1.ForceUpdate;
EditForm.VpPrintPreview1.FirstPage;
EditForm.DrawingStyle := FDrawingStyle;
// EditForm.PageInfo.Caption := Format('%d pages', [EditForm.VpPrintPreview1.PageCount]);
EditForm.VpPrintPreview1.ControlLink := ControlLink;
EditForm.VpPrintFormatComboBox1.ControlLink := ControlLink;
EditForm.ShowModal;
if EditForm.ReturnCode = rtCommit then begin
Result := True;