paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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
Height = 25
Top = 460
Width = 75
Width = 60
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Print...'
OnClick = btnPrintClick
@ -44,7 +45,7 @@ object MainForm: TMainForm
AnchorSideLeft.Control = cmbDialogs
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnPrint
Left = 275
Left = 260
Height = 25
Top = 460
Width = 76
@ -59,7 +60,7 @@ object MainForm: TMainForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnPrint
AnchorSideTop.Side = asrCenter
Left = 87
Left = 72
Height = 23
Top = 461
Width = 164
@ -81,10 +82,10 @@ object MainForm: TMainForm
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 357
Left = 342
Height = 22
Top = 461
Width = 293
Width = 308
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ItemHeight = 16

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

@ -139,7 +139,7 @@ object GridPrintHeaderFooterForm: TGridPrintHeaderFooterForm
AnchorSideRight.Side = asrBottom
Left = 10
Height = 4
Top = 224
Top = 225
Width = 550
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 16
@ -151,7 +151,7 @@ object GridPrintHeaderFooterForm: TGridPrintHeaderFooterForm
AnchorSideTop.Side = asrBottom
Left = 10
Height = 19
Top = 240
Top = 241
Width = 115
BorderSpacing.Top = 12
Caption = 'Show dividing line'
@ -163,7 +163,7 @@ object GridPrintHeaderFooterForm: TGridPrintHeaderFooterForm
AnchorSideTop.Side = asrCenter
Left = 10
Height = 15
Top = 271
Top = 272
Width = 88
Caption = 'Line width (mm)'
end
@ -174,7 +174,7 @@ object GridPrintHeaderFooterForm: TGridPrintHeaderFooterForm
AnchorSideTop.Side = asrBottom
Left = 106
Height = 23
Top = 267
Top = 268
Width = 64
Alignment = taRightJustify
BorderSpacing.Left = 8
@ -192,12 +192,14 @@ object GridPrintHeaderFooterForm: TGridPrintHeaderFooterForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seLineWidth
AnchorSideTop.Side = asrCenter
AnchorSideBottom.Control = seLineWidth
AnchorSideBottom.Side = asrBottom
Left = 186
Height = 25
Top = 266
Height = 24
Top = 267
Width = 94
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 16
BorderSpacing.Bottom = 8
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
@ -206,10 +208,14 @@ object GridPrintHeaderFooterForm: TGridPrintHeaderFooterForm
Margin = 4
end
object lblTextInfo: TLabel
AnchorSideLeft.Control = edTextLeft
AnchorSideTop.Control = edTextLeft
AnchorSideTop.Side = asrBottom
Left = 10
Height = 120
Top = 88
Top = 89
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'
end
end