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

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