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 AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = lbElements AnchorSideBottom.Control = lbElements
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 395 Left = 389
Height = 430 Height = 430
Top = 27 Top = 27
Width = 293 Width = 299
CurPage = 0 CurPage = 0
DrawingStyle = dsFlat DrawingStyle = dsFlat
EndDate = 37377.6447728357 EndDate = 37377.6447728357
StartDate = 37370.6447728357 StartDate = 37370.6447728357
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Right = 6
Parent = Owner Parent = Owner
TabStop = True TabStop = True
TabOrder = 8 TabOrder = 8

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

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

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

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