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

tvplanit: Show current page number and page count in PrintPreview.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8507 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-02 21:31:29 +00:00
parent d54c06b420
commit 6bf5ba0284
4 changed files with 63 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,7 +14,6 @@ object frmPrintPreview: TfrmPrintPreview
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnShow = FormShow
LCLVersion = '2.3.0.0'
object Panel1: TPanel
Left = 0
Height = 56
@ -42,6 +41,7 @@ object frmPrintPreview: TfrmPrintPreview
ShowCaptions = True
ShowHint = True
TabOrder = 0
OnResize = ToolBar1Resize
object btnPrint: TToolButton
Left = 1
Top = 0
@ -50,7 +50,7 @@ object frmPrintPreview: TfrmPrintPreview
end
object ToolButton3: TToolButton
Left = 55
Height = 5
Height = 25
Top = 0
Caption = 'ToolButton3'
ImageIndex = 2
@ -86,7 +86,7 @@ object frmPrintPreview: TfrmPrintPreview
end
object ToolButton8: TToolButton
Left = 152
Height = 5
Height = 25
Top = 0
Caption = 'ToolButton8'
ImageIndex = 6
@ -98,6 +98,30 @@ object frmPrintPreview: TfrmPrintPreview
Action = actCancel
AutoSize = True
end
object pnlPageCount: TPanel
AnchorSideTop.Side = asrCenter
Left = 266
Height = 25
Top = 0
Width = 119
BevelOuter = bvNone
ClientHeight = 25
ClientWidth = 119
TabOrder = 0
object PageInfo: TLabel
AnchorSideTop.Control = pnlPageCount
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = pnlPageCount
AnchorSideRight.Side = asrBottom
Left = 64
Height = 15
Top = 5
Width = 47
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'PageInfo'
end
end
end
object Panel2: TPanel
Left = 0