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

tvplanit: Fix Borderspacing of TVpPrintPreview

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8478 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-12 22:39:54 +00:00
parent cc58bebf0e
commit da1df02e83
3 changed files with 30 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -314,15 +314,16 @@ object frmPrnFormat: TfrmPrnFormat
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = lbElements
AnchorSideBottom.Side = asrBottom
Left = 395
Left = 389
Height = 430
Top = 27
Width = 293
Width = 299
CurPage = 0
DrawingStyle = dsFlat
EndDate = 37377.6447728357
StartDate = 37370.6447728357
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Right = 6
Parent = Owner
TabStop = True
TabOrder = 8

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

@ -194,6 +194,7 @@ type
property Anchors;
property Align;
property BorderSpacing;
property Constraints;
property Cursor;
property DragCursor;

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

@ -16,19 +16,20 @@ object frmPrintPreview: TfrmPrintPreview
OnShow = FormShow
object Panel1: TPanel
Left = 0
Height = 58
Height = 56
Top = 0
Width = 540
Align = alTop
AutoSize = True
ClientHeight = 58
BevelOuter = bvNone
ClientHeight = 56
ClientWidth = 540
TabOrder = 0
object ToolBar1: TToolBar
Left = 1
Left = 0
Height = 27
Top = 1
Width = 538
Top = 0
Width = 540
AutoSize = True
ButtonHeight = 25
ButtonWidth = 23
@ -47,7 +48,7 @@ object frmPrintPreview: TfrmPrintPreview
AutoSize = True
end
object ToolButton3: TToolButton
Left = 52
Left = 55
Height = 25
Top = 0
Caption = 'ToolButton3'
@ -55,35 +56,35 @@ object frmPrintPreview: TfrmPrintPreview
Style = tbsDivider
end
object btnFirstPage: TToolButton
Left = 57
Left = 60
Top = 0
Action = actFirstPage
AutoSize = True
ShowCaption = False
end
object btnPrevPage: TToolButton
Left = 80
Left = 83
Top = 0
Action = actPrevPage
AutoSize = True
ShowCaption = False
end
object btnNextPage: TToolButton
Left = 103
Left = 106
Top = 0
Action = actNextPage
AutoSize = True
ShowCaption = False
end
object btnLastPage: TToolButton
Left = 126
Left = 129
Top = 0
Action = actLastPage
AutoSize = True
ShowCaption = False
end
object ToolButton8: TToolButton
Left = 149
Left = 152
Height = 25
Top = 0
Caption = 'ToolButton8'
@ -91,25 +92,25 @@ object frmPrintPreview: TfrmPrintPreview
Style = tbsDivider
end
object btnCancel: TToolButton
Left = 154
Left = 157
Top = 0
Action = actCancel
AutoSize = True
end
end
object Panel2: TPanel
Left = 1
Left = 0
Height = 29
Top = 28
Width = 538
Top = 27
Width = 540
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 29
ClientWidth = 538
ClientWidth = 540
TabOrder = 1
object cboxZoom: TComboBox
Left = 389
Left = 391
Height = 23
Top = 2
Width = 145
@ -136,7 +137,7 @@ object frmPrintPreview: TfrmPrintPreview
Left = 4
Height = 23
Top = 2
Width = 381
Width = 383
Anchors = [akTop, akLeft, akRight]
Borderspacing.Left = 4
Borderspacing.Top = 2
@ -150,14 +151,17 @@ object frmPrintPreview: TfrmPrintPreview
end
end
object VpPrintPreview1: TVpPrintPreview
Left = 0
Height = 760
Top = 58
Width = 540
Left = 4
Height = 758
Top = 56
Width = 532
CurPage = 0
EndDate = 37355.4526088079
StartDate = 37348.4526088079
Align = alClient
BorderSpacing.Left = 4
BorderSpacing.Right = 4
BorderSpacing.Bottom = 4
Parent = Owner
TabStop = True
TabOrder = 1