2008-02-03 12:05:55 +00:00
|
|
|
object frmPrnFormat: TfrmPrnFormat
|
2017-05-19 23:17:29 +00:00
|
|
|
Left = 517
|
|
|
|
Height = 490
|
|
|
|
Top = 274
|
2016-07-20 19:29:00 +00:00
|
|
|
Width = 694
|
2008-02-03 12:05:55 +00:00
|
|
|
Caption = 'Print Format Designer'
|
2017-05-19 23:17:29 +00:00
|
|
|
ClientHeight = 490
|
2016-07-20 19:29:00 +00:00
|
|
|
ClientWidth = 694
|
2008-02-03 12:05:55 +00:00
|
|
|
OnCloseQuery = FormCloseQuery
|
|
|
|
OnCreate = FormCreate
|
|
|
|
OnShow = FormShow
|
|
|
|
Position = poScreenCenter
|
2022-10-15 13:03:27 +00:00
|
|
|
LCLVersion = '2.3.0.0'
|
2016-07-06 19:34:46 +00:00
|
|
|
object LblFormats: TLabel
|
2017-05-19 23:17:29 +00:00
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideTop.Control = Owner
|
|
|
|
Left = 6
|
2016-06-09 23:49:35 +00:00
|
|
|
Height = 15
|
2017-05-19 23:17:29 +00:00
|
|
|
Top = 8
|
2016-06-09 23:49:35 +00:00
|
|
|
Width = 46
|
2017-05-19 23:17:29 +00:00
|
|
|
BorderSpacing.Left = 6
|
|
|
|
BorderSpacing.Top = 8
|
2008-02-03 12:05:55 +00:00
|
|
|
Caption = '&Formats:'
|
|
|
|
FocusControl = lbFormats
|
|
|
|
ParentColor = False
|
|
|
|
end
|
2016-07-06 19:34:46 +00:00
|
|
|
object LblElements: TLabel
|
2017-05-19 23:17:29 +00:00
|
|
|
AnchorSideLeft.Control = LblFormats
|
|
|
|
AnchorSideTop.Control = Owner
|
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
Left = 6
|
2016-06-09 23:49:35 +00:00
|
|
|
Height = 15
|
2017-05-19 23:17:29 +00:00
|
|
|
Top = 238
|
2016-06-09 23:49:35 +00:00
|
|
|
Width = 51
|
2017-05-19 23:17:29 +00:00
|
|
|
BorderSpacing.Top = 8
|
2008-02-03 12:05:55 +00:00
|
|
|
Caption = 'Ele&ments:'
|
|
|
|
FocusControl = lbElements
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object btnMoveElementUp: TSpeedButton
|
2017-05-19 23:17:29 +00:00
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = LblPrintOrder
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = btnMoveElementDn
|
|
|
|
Left = 336
|
2008-02-03 12:05:55 +00:00
|
|
|
Height = 22
|
2017-05-19 23:17:29 +00:00
|
|
|
Top = 409
|
2008-02-03 12:05:55 +00:00
|
|
|
Width = 23
|
2017-05-19 23:17:29 +00:00
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Top = 4
|
2008-02-03 12:05:55 +00:00
|
|
|
OnClick = btnMoveElementUpClick
|
|
|
|
end
|
|
|
|
object btnMoveElementDn: TSpeedButton
|
2017-05-19 23:17:29 +00:00
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = btnMoveElementUp
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = lbElements
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 336
|
2008-02-03 12:05:55 +00:00
|
|
|
Height = 22
|
2017-05-19 23:17:29 +00:00
|
|
|
Top = 435
|
2008-02-03 12:05:55 +00:00
|
|
|
Width = 23
|
2017-05-19 23:17:29 +00:00
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Top = 4
|
2022-09-10 20:38:31 +00:00
|
|
|
Spacing = 0
|
2008-02-03 12:05:55 +00:00
|
|
|
OnClick = btnMoveElementDnClick
|
|
|
|
end
|
2016-07-06 19:34:46 +00:00
|
|
|
object LblPrintOrder: TLabel
|
2017-05-19 23:17:29 +00:00
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideBottom.Control = btnMoveElementUp
|
2022-10-03 17:06:43 +00:00
|
|
|
Left = 332
|
|
|
|
Height = 30
|
|
|
|
Top = 375
|
|
|
|
Width = 30
|
2017-05-19 23:17:29 +00:00
|
|
|
Alignment = taCenter
|
|
|
|
Anchors = [akLeft, akBottom]
|
2022-10-03 17:06:43 +00:00
|
|
|
Caption = 'Print'#13#10'Order'
|
2008-02-03 12:05:55 +00:00
|
|
|
ParentColor = False
|
2017-05-19 23:17:29 +00:00
|
|
|
WordWrap = True
|
2008-02-03 12:05:55 +00:00
|
|
|
end
|
|
|
|
object btnNewFormat: TButton
|
2017-05-19 23:17:29 +00:00
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = lbFormats
|
|
|
|
Left = 310
|
2008-02-03 12:05:55 +00:00
|
|
|
Height = 25
|
2017-05-19 23:17:29 +00:00
|
|
|
Top = 27
|
2008-02-03 12:05:55 +00:00
|
|
|
Width = 75
|
|
|
|
Caption = '&New'
|
|
|
|
Enabled = False
|
|
|
|
OnClick = btnNewFormatClick
|
|
|
|
TabOrder = 1
|
|
|
|
end
|
|
|
|
object lbFormats: TListBox
|
2017-05-19 23:17:29 +00:00
|
|
|
AnchorSideLeft.Control = LblFormats
|
|
|
|
AnchorSideTop.Control = LblFormats
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = btnNewFormat
|
|
|
|
AnchorSideBottom.Control = LblElements
|
|
|
|
Left = 6
|
|
|
|
Height = 203
|
|
|
|
Top = 27
|
|
|
|
Width = 300
|
|
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
|
|
BorderSpacing.Top = 4
|
|
|
|
BorderSpacing.Right = 4
|
2016-07-06 21:49:00 +00:00
|
|
|
Columns = 1
|
2016-06-09 23:49:35 +00:00
|
|
|
ItemHeight = 0
|
2008-02-03 12:05:55 +00:00
|
|
|
OnClick = lbFormatsClick
|
|
|
|
Sorted = True
|
|
|
|
TabOrder = 0
|
|
|
|
end
|
|
|
|
object lbElements: TListBox
|
2017-05-19 23:17:29 +00:00
|
|
|
AnchorSideLeft.Control = LblFormats
|
|
|
|
AnchorSideTop.Control = LblElements
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = lbFormats
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = ButtonPanel
|
|
|
|
Left = 6
|
|
|
|
Height = 200
|
|
|
|
Top = 257
|
|
|
|
Width = 300
|
|
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
|
|
BorderSpacing.Top = 4
|
2016-06-09 23:49:35 +00:00
|
|
|
ItemHeight = 0
|
2008-02-03 12:05:55 +00:00
|
|
|
OnClick = lbElementsClick
|
|
|
|
OnDragDrop = lbElementsDragDrop
|
|
|
|
OnDragOver = lbElementsDragOver
|
|
|
|
OnMouseDown = lbElementsMouseDown
|
|
|
|
TabOrder = 4
|
|
|
|
end
|
|
|
|
object btnEditFormat: TButton
|
2017-05-19 23:17:29 +00:00
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = btnNewFormat
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 310
|
2008-02-03 12:05:55 +00:00
|
|
|
Height = 25
|
2016-07-20 19:29:00 +00:00
|
|
|
Top = 56
|
2008-02-03 12:05:55 +00:00
|
|
|
Width = 75
|
2017-05-19 23:17:29 +00:00
|
|
|
BorderSpacing.Top = 4
|
2008-02-03 12:05:55 +00:00
|
|
|
Caption = '&Edit'
|
|
|
|
Enabled = False
|
|
|
|
OnClick = btnEditFormatClick
|
|
|
|
TabOrder = 2
|
|
|
|
end
|
|
|
|
object btnDeleteFormat: TButton
|
2017-05-19 23:17:29 +00:00
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = btnEditFormat
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 310
|
2008-02-03 12:05:55 +00:00
|
|
|
Height = 25
|
2017-05-19 23:17:29 +00:00
|
|
|
Top = 85
|
2008-02-03 12:05:55 +00:00
|
|
|
Width = 75
|
2017-05-19 23:17:29 +00:00
|
|
|
BorderSpacing.Top = 4
|
2008-02-03 12:05:55 +00:00
|
|
|
Caption = '&Delete'
|
|
|
|
Enabled = False
|
|
|
|
OnClick = btnDeleteFormatClick
|
|
|
|
TabOrder = 3
|
|
|
|
end
|
|
|
|
object btnNewElement: TButton
|
2017-05-19 23:17:29 +00:00
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = lbElements
|
|
|
|
Left = 310
|
2008-02-03 12:05:55 +00:00
|
|
|
Height = 25
|
2017-05-19 23:17:29 +00:00
|
|
|
Top = 257
|
2008-02-03 12:05:55 +00:00
|
|
|
Width = 75
|
|
|
|
Caption = 'Ne&w'
|
|
|
|
Enabled = False
|
|
|
|
OnClick = btnNewElementClick
|
|
|
|
TabOrder = 5
|
|
|
|
end
|
|
|
|
object btnEditElement: TButton
|
2017-05-19 23:17:29 +00:00
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = btnNewElement
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 310
|
2008-02-03 12:05:55 +00:00
|
|
|
Height = 25
|
2017-05-19 23:17:29 +00:00
|
|
|
Top = 286
|
2008-02-03 12:05:55 +00:00
|
|
|
Width = 75
|
2017-05-19 23:17:29 +00:00
|
|
|
BorderSpacing.Top = 4
|
2008-02-03 12:05:55 +00:00
|
|
|
Caption = 'E&dit'
|
|
|
|
Enabled = False
|
|
|
|
OnClick = btnEditElementClick
|
|
|
|
TabOrder = 6
|
|
|
|
end
|
|
|
|
object btnDeleteElement: TButton
|
2017-05-19 23:17:29 +00:00
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = btnEditElement
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 310
|
2008-02-03 12:05:55 +00:00
|
|
|
Height = 25
|
2017-05-19 23:17:29 +00:00
|
|
|
Top = 315
|
2008-02-03 12:05:55 +00:00
|
|
|
Width = 75
|
2017-05-19 23:17:29 +00:00
|
|
|
BorderSpacing.Top = 4
|
2008-02-03 12:05:55 +00:00
|
|
|
Caption = 'De&lete'
|
|
|
|
Enabled = False
|
|
|
|
OnClick = btnDeleteElementClick
|
|
|
|
TabOrder = 7
|
|
|
|
end
|
2016-07-06 21:49:00 +00:00
|
|
|
object ButtonPanel: TPanel
|
2016-06-09 23:49:35 +00:00
|
|
|
Left = 0
|
2017-05-19 23:17:29 +00:00
|
|
|
Height = 33
|
|
|
|
Top = 457
|
2016-07-20 19:29:00 +00:00
|
|
|
Width = 694
|
2008-02-03 12:05:55 +00:00
|
|
|
Align = alBottom
|
2017-05-19 23:17:29 +00:00
|
|
|
AutoSize = True
|
2016-07-06 21:49:00 +00:00
|
|
|
BevelOuter = bvNone
|
2017-05-19 23:17:29 +00:00
|
|
|
ClientHeight = 33
|
2016-07-20 19:29:00 +00:00
|
|
|
ClientWidth = 694
|
2022-09-10 20:38:31 +00:00
|
|
|
TabOrder = 9
|
2008-02-03 12:05:55 +00:00
|
|
|
object btnLoadFile: TButton
|
2017-05-19 23:17:29 +00:00
|
|
|
AnchorSideLeft.Control = btnNewFile
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = btnOk
|
|
|
|
AnchorSideBottom.Control = btnOk
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 81
|
2008-02-03 12:05:55 +00:00
|
|
|
Height = 25
|
2017-05-19 23:17:29 +00:00
|
|
|
Top = 4
|
|
|
|
Width = 82
|
|
|
|
Anchors = [akTop, akLeft, akBottom]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Left = 4
|
2008-02-03 12:05:55 +00:00
|
|
|
Caption = 'L&oad File...'
|
|
|
|
OnClick = btnLoadFileClick
|
|
|
|
TabOrder = 1
|
|
|
|
end
|
|
|
|
object btnSaveFile: TButton
|
2017-05-19 23:17:29 +00:00
|
|
|
AnchorSideLeft.Control = btnLoadFile
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = btnOk
|
|
|
|
AnchorSideBottom.Control = btnOk
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 167
|
2008-02-03 12:05:55 +00:00
|
|
|
Height = 25
|
2017-05-19 23:17:29 +00:00
|
|
|
Top = 4
|
|
|
|
Width = 80
|
|
|
|
Anchors = [akTop, akLeft, akBottom]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Left = 4
|
2008-02-03 12:05:55 +00:00
|
|
|
Caption = '&Save File...'
|
|
|
|
OnClick = btnSaveFileClick
|
|
|
|
TabOrder = 2
|
|
|
|
end
|
|
|
|
object btnNewFile: TButton
|
2017-05-19 23:17:29 +00:00
|
|
|
AnchorSideLeft.Control = ButtonPanel
|
|
|
|
AnchorSideTop.Control = btnOk
|
|
|
|
AnchorSideBottom.Control = btnOk
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 6
|
2008-02-03 12:05:55 +00:00
|
|
|
Height = 25
|
2017-05-19 23:17:29 +00:00
|
|
|
Top = 4
|
|
|
|
Width = 71
|
|
|
|
Anchors = [akTop, akLeft, akBottom]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Left = 6
|
2008-02-03 12:05:55 +00:00
|
|
|
Caption = 'New &File'
|
|
|
|
OnClick = btnNewFileClick
|
|
|
|
TabOrder = 0
|
|
|
|
end
|
|
|
|
object btnOk: TButton
|
2017-05-19 23:17:29 +00:00
|
|
|
AnchorSideRight.Control = ButtonPanel
|
|
|
|
AnchorSideRight.Side = asrBottom
|
2022-10-03 17:06:43 +00:00
|
|
|
Left = 613
|
2008-02-03 12:05:55 +00:00
|
|
|
Height = 25
|
2017-05-19 23:17:29 +00:00
|
|
|
Top = 4
|
2022-10-03 17:06:43 +00:00
|
|
|
Width = 75
|
2016-08-06 22:18:53 +00:00
|
|
|
Anchors = [akTop, akRight]
|
2017-05-19 23:17:29 +00:00
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Top = 4
|
|
|
|
BorderSpacing.Right = 6
|
|
|
|
BorderSpacing.Bottom = 4
|
2008-02-03 12:05:55 +00:00
|
|
|
Caption = 'OK'
|
2022-10-03 17:06:43 +00:00
|
|
|
Constraints.MinWidth = 75
|
2008-02-03 12:05:55 +00:00
|
|
|
OnClick = btnOkClick
|
|
|
|
TabOrder = 3
|
|
|
|
end
|
|
|
|
end
|
2016-08-06 22:18:53 +00:00
|
|
|
object Bevel1: TBevel
|
|
|
|
Left = 688
|
2017-05-19 23:17:29 +00:00
|
|
|
Height = 457
|
2016-08-06 22:18:53 +00:00
|
|
|
Top = 0
|
|
|
|
Width = 6
|
|
|
|
Align = alRight
|
|
|
|
Shape = bsSpacer
|
|
|
|
end
|
2017-05-19 23:17:29 +00:00
|
|
|
object LblPrintPreview: TLabel
|
|
|
|
AnchorSideLeft.Control = btnNewFormat
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = LblFormats
|
|
|
|
Left = 389
|
|
|
|
Height = 15
|
|
|
|
Top = 8
|
|
|
|
Width = 44
|
|
|
|
BorderSpacing.Left = 4
|
|
|
|
Caption = 'Preview:'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object PrintPreview: TVpPrintPreview
|
|
|
|
AnchorSideLeft.Control = LblPrintPreview
|
|
|
|
AnchorSideTop.Control = lbFormats
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = lbElements
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
2022-09-12 22:39:54 +00:00
|
|
|
Left = 389
|
2017-05-19 23:17:29 +00:00
|
|
|
Height = 430
|
|
|
|
Top = 27
|
2022-09-12 22:39:54 +00:00
|
|
|
Width = 299
|
2017-05-19 23:17:29 +00:00
|
|
|
CurPage = 0
|
|
|
|
DrawingStyle = dsFlat
|
|
|
|
EndDate = 37377.6447728357
|
|
|
|
StartDate = 37370.6447728357
|
|
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
2022-09-12 22:39:54 +00:00
|
|
|
BorderSpacing.Right = 6
|
2017-05-19 23:17:29 +00:00
|
|
|
Parent = Owner
|
|
|
|
TabStop = True
|
2022-09-10 20:38:31 +00:00
|
|
|
TabOrder = 8
|
2017-05-19 23:17:29 +00:00
|
|
|
end
|
2022-09-10 20:38:31 +00:00
|
|
|
object OpenDialog: TOpenDialog
|
2008-02-03 12:05:55 +00:00
|
|
|
Title = 'Open filter file'
|
|
|
|
DefaultExt = '.xml'
|
|
|
|
FileName = '*.xml'
|
2022-09-10 20:38:31 +00:00
|
|
|
Filter = 'Print Format Files (.xml)|*.xml|All Files (*.*)|*.*'
|
2022-09-09 16:45:06 +00:00
|
|
|
Left = 400
|
|
|
|
Top = 128
|
2008-02-03 12:05:55 +00:00
|
|
|
end
|
2022-09-10 20:38:31 +00:00
|
|
|
object SaveDialog: TSaveDialog
|
2008-02-03 12:05:55 +00:00
|
|
|
Title = 'Save formats as'
|
|
|
|
DefaultExt = '.xml'
|
|
|
|
FileName = '*.xml'
|
2022-09-10 20:38:31 +00:00
|
|
|
Filter = 'Print Format Files (.xml)|*.xml|All Files (*.*)|*.*'
|
2008-02-03 12:05:55 +00:00
|
|
|
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
|
2022-09-09 16:45:06 +00:00
|
|
|
Left = 400
|
|
|
|
Top = 200
|
2008-02-03 12:05:55 +00:00
|
|
|
end
|
|
|
|
end
|