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

tvplanit: Fix printpreview dialog not being able to show full page in preview.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4897 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-02 21:13:54 +00:00
parent 183e89afe2
commit 9fc76923f9
2 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,13 +1,13 @@
object frmPrintPreview: TfrmPrintPreview object frmPrintPreview: TfrmPrintPreview
Left = 285 Left = 285
Height = 518 Height = 704
Top = 142 Top = 142
Width = 477 Width = 539
HorzScrollBar.Page = 476 HorzScrollBar.Page = 476
VertScrollBar.Page = 517 VertScrollBar.Page = 517
Caption = 'Print Preview' Caption = 'Print Preview'
ClientHeight = 518 ClientHeight = 704
ClientWidth = 477 ClientWidth = 539
Constraints.MinHeight = 200 Constraints.MinHeight = 200
Constraints.MinWidth = 395 Constraints.MinWidth = 395
KeyPreview = True KeyPreview = True
@ -18,10 +18,10 @@ object frmPrintPreview: TfrmPrintPreview
Left = 0 Left = 0
Height = 62 Height = 62
Top = 0 Top = 0
Width = 477 Width = 539
Align = alTop Align = alTop
ClientHeight = 62 ClientHeight = 62
ClientWidth = 477 ClientWidth = 539
TabOrder = 0 TabOrder = 0
object cboxZoom: TComboBox object cboxZoom: TComboBox
Left = 216 Left = 216
@ -55,7 +55,7 @@ object frmPrintPreview: TfrmPrintPreview
Left = 1 Left = 1
Height = 27 Height = 27
Top = 1 Top = 1
Width = 475 Width = 537
AutoSize = True AutoSize = True
ButtonHeight = 25 ButtonHeight = 25
ButtonWidth = 25 ButtonWidth = 25
@ -123,9 +123,9 @@ object frmPrintPreview: TfrmPrintPreview
end end
object VpPrintPreview1: TVpPrintPreview object VpPrintPreview1: TVpPrintPreview
Left = 0 Left = 0
Height = 456 Height = 642
Top = 62 Top = 62
Width = 477 Width = 539
CurPage = 0 CurPage = 0
EndDate = 37355.4526088079 EndDate = 37355.4526088079
StartDate = 37348.4526088079 StartDate = 37348.4526088079

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

@ -228,6 +228,7 @@ begin
EditForm.VpPrintPreview1.ZoomFactor := ZoomFactor; EditForm.VpPrintPreview1.ZoomFactor := ZoomFactor;
EditForm.cboxZoom.ItemIndex := Integer (ZoomFactor); EditForm.cboxZoom.ItemIndex := Integer (ZoomFactor);
EditForm.VpPrintPreview1.Printer := Printer; EditForm.VpPrintPreview1.Printer := Printer;
EditForm.VpPrintPreview1.ForceUpdate;
EditForm.VpPrintPreview1.FirstPage; EditForm.VpPrintPreview1.FirstPage;
EditForm.ShowModal; EditForm.ShowModal;
if EditForm.ReturnCode = rtCommit then begin if EditForm.ReturnCode = rtCommit then begin