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

tvplanit: Cometic changes in print preview units. Activate some commented Delphi-only code.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4792 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-21 15:12:38 +00:00
parent 1ae439b458
commit 60140bfdc5
2 changed files with 459 additions and 485 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

File diff suppressed because it is too large Load Diff

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

@ -16,17 +16,17 @@ object frmPrintPreview: TfrmPrintPreview
LCLVersion = '1.7'
object Panel1: TPanel
Left = 0
Height = 73
Height = 62
Top = 0
Width = 477
Align = alTop
ClientHeight = 73
ClientHeight = 62
ClientWidth = 477
TabOrder = 0
object cboxZoom: TComboBox
Left = 217
Left = 216
Height = 23
Top = 40
Top = 32
Width = 145
ItemHeight = 15
Items.Strings = (
@ -45,7 +45,7 @@ object frmPrintPreview: TfrmPrintPreview
object VpPrintFormatComboBox1: TVpPrintFormatComboBox
Left = 8
Height = 23
Top = 40
Top = 32
Width = 201
ItemHeight = 15
Sorted = True
@ -69,13 +69,13 @@ object frmPrintPreview: TfrmPrintPreview
TabOrder = 0
object btnPrint: TToolButton
Left = 1
Top = 2
Top = 0
Action = actPrint
end
object ToolButton3: TToolButton
Left = 52
Height = 25
Top = 2
Top = 0
Width = 8
Caption = 'ToolButton3'
ImageIndex = 2
@ -83,32 +83,32 @@ object frmPrintPreview: TfrmPrintPreview
end
object btnFirstPage: TToolButton
Left = 60
Top = 2
Top = 0
Action = actFirstPage
ShowCaption = False
end
object btnPrevPage: TToolButton
Left = 85
Top = 2
Top = 0
Action = actPrevPage
ShowCaption = False
end
object btnNextPage: TToolButton
Left = 110
Top = 2
Action = actPrevPage
Top = 0
Action = actNextPage
ShowCaption = False
end
object btnLastPage: TToolButton
Left = 135
Top = 2
Top = 0
Action = actLastPage
ShowCaption = False
end
object ToolButton8: TToolButton
Left = 160
Height = 25
Top = 2
Top = 0
Width = 8
Caption = 'ToolButton8'
ImageIndex = 6
@ -116,15 +116,15 @@ object frmPrintPreview: TfrmPrintPreview
end
object btnCancel: TToolButton
Left = 168
Top = 2
Top = 0
Action = actCancel
end
end
end
object VpPrintPreview1: TVpPrintPreview
Left = 0
Height = 445
Top = 73
Height = 456
Top = 62
Width = 477
CurPage = 0
EndDate = 37355.4526088079