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

GridPrinter: Fix anchoring in header/footer form

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8608 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-11-11 15:25:24 +00:00
parent 69338a23b5
commit 8bd3387381
2 changed files with 20 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/gridprinter/examples/multi-language/main.lfm
View File

@ -33,8 +33,9 @@ object MainForm: TMainForm
Left = 6 Left = 6
Height = 25 Height = 25
Top = 460 Top = 460
Width = 75 Width = 60
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Print...' Caption = 'Print...'
OnClick = btnPrintClick OnClick = btnPrintClick
@ -44,7 +45,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = cmbDialogs AnchorSideLeft.Control = cmbDialogs
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnPrint AnchorSideTop.Control = btnPrint
Left = 275 Left = 260
Height = 25 Height = 25
Top = 460 Top = 460
Width = 76 Width = 76
@ -59,7 +60,7 @@ object MainForm: TMainForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnPrint AnchorSideTop.Control = btnPrint
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 87 Left = 72
Height = 23 Height = 23
Top = 461 Top = 461
Width = 164 Width = 164
@ -81,10 +82,10 @@ object MainForm: TMainForm
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 357 Left = 342
Height = 22 Height = 22
Top = 461 Top = 461
Width = 293 Width = 308
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 16 ItemHeight = 16

22
components/gridprinter/source/gridprnheaderfooterform.lfm
View File

@ -139,7 +139,7 @@ object GridPrintHeaderFooterForm: TGridPrintHeaderFooterForm
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 10 Left = 10
Height = 4 Height = 4
Top = 224 Top = 225
Width = 550 Width = 550
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 16 BorderSpacing.Top = 16
@ -151,7 +151,7 @@ object GridPrintHeaderFooterForm: TGridPrintHeaderFooterForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 10 Left = 10
Height = 19 Height = 19
Top = 240 Top = 241
Width = 115 Width = 115
BorderSpacing.Top = 12 BorderSpacing.Top = 12
Caption = 'Show dividing line' Caption = 'Show dividing line'
@ -163,7 +163,7 @@ object GridPrintHeaderFooterForm: TGridPrintHeaderFooterForm
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 10 Left = 10
Height = 15 Height = 15
Top = 271 Top = 272
Width = 88 Width = 88
Caption = 'Line width (mm)' Caption = 'Line width (mm)'
end end
@ -174,7 +174,7 @@ object GridPrintHeaderFooterForm: TGridPrintHeaderFooterForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 106 Left = 106
Height = 23 Height = 23
Top = 267 Top = 268
Width = 64 Width = 64
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Left = 8 BorderSpacing.Left = 8
@ -192,12 +192,14 @@ object GridPrintHeaderFooterForm: TGridPrintHeaderFooterForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seLineWidth AnchorSideTop.Control = seLineWidth
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Control = seLineWidth
AnchorSideBottom.Side = asrBottom
Left = 186 Left = 186
Height = 25 Height = 24
Top = 266 Top = 267
Width = 94 Width = 94
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 16 BorderSpacing.Left = 16
BorderSpacing.Bottom = 8
BorderWidth = 2 BorderWidth = 2
ButtonColorAutoSize = False ButtonColorAutoSize = False
ButtonColorSize = 16 ButtonColorSize = 16
@ -206,10 +208,14 @@ object GridPrintHeaderFooterForm: TGridPrintHeaderFooterForm
Margin = 4 Margin = 4
end end
object lblTextInfo: TLabel object lblTextInfo: TLabel
AnchorSideLeft.Control = edTextLeft
AnchorSideTop.Control = edTextLeft
AnchorSideTop.Side = asrBottom
Left = 10 Left = 10
Height = 120 Height = 120
Top = 88 Top = 89
Width = 278 Width = 278
BorderSpacing.Top = 8
Caption = 'Each section can contain the following parameters:'#13#10' $DATE - Current date'#13#10' $TIME - Current time'#13#10' $PAGE - Page number'#13#10' $PAGECOUNT - Number of pages'#13#10' $FULL_FILENAME - Full name of the printed file'#13#10' $FILENAME - Name of the printed file, without path'#13#10' $PATH - Path of the printed file' Caption = 'Each section can contain the following parameters:'#13#10' $DATE - Current date'#13#10' $TIME - Current time'#13#10' $PAGE - Page number'#13#10' $PAGECOUNT - Number of pages'#13#10' $FULL_FILENAME - Full name of the printed file'#13#10' $FILENAME - Name of the printed file, without path'#13#10' $PATH - Path of the printed file'
end end
end end