Files
lazarus-ccr/components/gridprinter/source/gridprnheaderfooterform.lfm
2022-11-11 15:25:24 +00:00

229 lines
6.0 KiB
Plaintext

object GridPrintHeaderFooterForm: TGridPrintHeaderFooterForm
Left = 552
Height = 369
Top = 253
Width = 582
Caption = 'Header/Footer'
ClientHeight = 369
ClientWidth = 582
OnActivate = FormActivate
OnCreate = FormCreate
OnDestroy = FormDestroy
LCLVersion = '2.3.0.0'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 34
Top = 329
Width = 570
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
OKButton.OnClick = OKClick
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 0
ShowButtons = [pbOK, pbCancel]
end
object TabControl: TTabControl
Left = 6
Height = 317
Top = 6
Width = 570
OnChange = TabControlChange
OnChanging = TabControlChanging
TabIndex = 0
Tabs.Strings = (
'Header'
'Footer'
)
Align = alClient
BorderSpacing.Around = 6
TabOrder = 1
object edTextLeft: TEdit
AnchorSideLeft.Control = cbShow
AnchorSideTop.Control = cbShow
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Bevel1
Left = 10
Height = 23
Top = 58
Width = 176
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
Constraints.MinWidth = 125
TabOrder = 1
TextHint = 'Text in left-aligned section'
end
object edTextCenter: TEdit
AnchorSideLeft.Control = Bevel1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edTextLeft
AnchorSideRight.Control = Bevel2
Left = 194
Height = 23
Top = 58
Width = 185
Alignment = taCenter
Anchors = [akTop, akLeft, akRight]
Constraints.MinWidth = 125
TabOrder = 2
TextHint = 'Text in centered section'
end
object edTextRight: TEdit
AnchorSideLeft.Control = Bevel2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edTextLeft
AnchorSideRight.Control = TabControl
AnchorSideRight.Side = asrBottom
Left = 387
Height = 23
Top = 58
Width = 173
Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 8
Constraints.MinWidth = 125
TabOrder = 3
TextHint = 'Text in right-aligned section'
end
object cbShow: TCheckBox
AnchorSideLeft.Control = TabControl
AnchorSideTop.Control = TabControl
Left = 10
Height = 19
Top = 31
Width = 47
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Show'
TabOrder = 4
end
object Bevel1: TBevel
Left = 186
Height = 51
Top = 31
Width = 8
Anchors = [akTop]
Shape = bsSpacer
end
object Bevel2: TBevel
Left = 379
Height = 59
Top = 24
Width = 8
Anchors = [akTop]
Shape = bsSpacer
end
object btnFont: TButton
AnchorSideLeft.Control = cbShow
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbShow
AnchorSideTop.Side = asrCenter
Left = 89
Height = 25
Top = 28
Width = 75
BorderSpacing.Left = 32
Caption = 'Font...'
OnClick = btnFontClick
TabOrder = 5
end
object Bevel3: TBevel
AnchorSideLeft.Control = edTextLeft
AnchorSideTop.Control = lblTextInfo
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edTextRight
AnchorSideRight.Side = asrBottom
Left = 10
Height = 4
Top = 225
Width = 550
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 16
Shape = bsTopLine
end
object cbShowLine: TCheckBox
AnchorSideLeft.Control = cbShow
AnchorSideTop.Control = Bevel3
AnchorSideTop.Side = asrBottom
Left = 10
Height = 19
Top = 241
Width = 115
BorderSpacing.Top = 12
Caption = 'Show dividing line'
TabOrder = 6
end
object lblLineWidth: TLabel
AnchorSideLeft.Control = cbShowLine
AnchorSideTop.Control = seLineWidth
AnchorSideTop.Side = asrCenter
Left = 10
Height = 15
Top = 272
Width = 88
Caption = 'Line width (mm)'
end
object seLineWidth: TFloatSpinEdit
AnchorSideLeft.Control = lblLineWidth
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbShowLine
AnchorSideTop.Side = asrBottom
Left = 106
Height = 23
Top = 268
Width = 64
Alignment = taRightJustify
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Bottom = 8
DecimalPlaces = 1
Increment = 0.1
MaxValue = 3
MinValue = 0.1
TabOrder = 7
Value = 0.1
end
object clbLineColor: TColorButton
AnchorSideLeft.Control = seLineWidth
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seLineWidth
AnchorSideTop.Side = asrCenter
AnchorSideBottom.Control = seLineWidth
AnchorSideBottom.Side = asrBottom
Left = 186
Height = 24
Top = 267
Width = 94
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 16
BorderWidth = 2
ButtonColorAutoSize = False
ButtonColorSize = 16
ButtonColor = clBlack
Caption = 'Line color'
Margin = 4
end
object lblTextInfo: TLabel
AnchorSideLeft.Control = edTextLeft
AnchorSideTop.Control = edTextLeft
AnchorSideTop.Side = asrBottom
Left = 10
Height = 120
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
object FontDialog: TFontDialog
MinFontSize = 0
MaxFontSize = 0
Left = 200
Top = 16
end
end