blob: 4db9932ff56fd6da1199905c4147c9eb3aba237b (
plain) (
tree)
|
|
object PrintForm: TPrintForm
Left = 151
Top = 114
Width = 550
Height = 310
AutoSize = True
Caption = 'The Sword Printer'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
Scaled = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 450
Top = 0
Width = 92
Height = 283
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object btnPrint: TBitBtn
Left = 6
Top = 21
Width = 80
Height = 25
Caption = '&Print'
TabOrder = 0
OnClick = btnPrintClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
6666666600006666666666666666666600006666666666666666666600006666
0000000000066666000066608888888880806666000066000000000000080666
0000660888888BBB880006660000660888888777880806660000660000000000
0008806600006608888888888080806600006660000000000808006600006666
0FFFFFFFF08080660000666660F00000F00006660000666660FFFFFFFF066666
00006666660F00000F06666600006666660FFFFFFFF066660000666666600000
0000666600006666666666666666666600006666666666666666666600006666
66666666666666660000}
Margin = 2
end
object btnSetup: TBitBtn
Left = 7
Top = 90
Width = 80
Height = 25
Caption = 'Printer&s...'
TabOrder = 1
OnClick = btnSetupClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFF00FFFFF0000FFFF
FFFFFFFF4EC0FFFF0000FFFF00000004ECC0FFFF0000FFF08888884ECC80FFFF
0000FF00000000ECC0080FFF0000FF08870078CC88000FFF0000FF0878E80777
88080FFF0000FF07FE8E8000000880FF0000FF07EFE8E088808080FF0000FFF7
FEFE8000080800FF0000FFFF7FEF0FFFF08080FF0000FFFFF770F000F0000FFF
0000FFFFF0FFFFFFFF0FFFFF0000FFFFFF0F00000F0FFFFF0000FFFFFF0FFFFF
FFF0FFFF0000FFFFFFF000000000FFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
FFFFFFFFFFFFFFFF0000}
Margin = 2
end
object btnPreview: TBitBtn
Left = 7
Top = 55
Width = 80
Height = 25
Caption = 'P&review...'
TabOrder = 2
OnClick = btnPreviewClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
6666666600006666666666666666666600006666666666666666600600006600
00000000006607060000660FFFFFFFFFF06070660000660FFFFFFF0000070666
0000660FFFFFF078870066660000660FFFFF0788E77066660000660FFFFF0888
878066660000660FFFFF08E8878066660000660FFFFF07EE877066660000660F
FFFFF078870666660000660FFFFFFF00006666660000660FFFFFFFFFF0666666
0000660FFFFFFF00006666660000660FFFFFFF7F066666660000660FFFFFFF70
6666666600006600000000066666666600006666666666666666666600006666
66666666666666660000}
Margin = 2
end
object btnClose: TBitBtn
Left = 7
Top = 125
Width = 80
Height = 25
Caption = '&Close'
TabOrder = 3
OnClick = btnCloseClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
F0FFFFFFFFFF0FFF0000FFFF000FFFFFFFFFFFFF0000FFFF0000FFFFFFF0FFFF
0000FFFFF000FFFFFF0FFFFF0000FFFFFF000FFFF00FFFFF0000FFFFFFF000FF
00FFFFFF0000FFFFFFFF00000FFFFFFF0000FFFFFFFFF000FFFFFFFF0000FFFF
FFFF00000FFFFFFF0000FFFFFFF000FF00FFFFFF0000FFFFF0000FFFF00FFFFF
0000FFFF0000FFFFFF00FFFF0000FFFF000FFFFFFFFF0FFF0000FFFFFFFFFFFF
FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
FFFFFFFFFFFFFFFF0000}
Margin = 2
end
end
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 450
Height = 283
ActivePage = shtSelection
Align = alClient
TabOrder = 1
object shtSelection: TTabSheet
Caption = 'Print Selection'
object GroupBox1: TGroupBox
Left = 10
Top = 14
Width = 420
Height = 123
Caption = 'Print Source'
TabOrder = 0
object lblModName: TLabel
Left = 9
Top = 75
Width = 66
Height = 13
Caption = 'Module Name'
end
object radText: TRadioButton
Left = 8
Top = 17
Width = 105
Height = 17
Caption = 'Bible Text'
Checked = True
TabOrder = 0
TabStop = True
OnClick = radTextClick
end
object radComm: TRadioButton
Left = 8
Top = 35
Width = 105
Height = 17
Caption = 'Commentary Text'
TabOrder = 1
OnClick = radCommClick
end
object radLD: TRadioButton
Left = 8
Top = 54
Width = 137
Height = 17
Caption = 'Lexicon/Dictionary Text'
TabOrder = 2
OnClick = radLDClick
end
object cmbModule: TComboBox
Left = 8
Top = 91
Width = 264
Height = 21
ItemHeight = 13
TabOrder = 3
end
end
object GroupBox2: TGroupBox
Left = 10
Top = 152
Width = 420
Height = 71
Caption = 'Print Range'
TabOrder = 1
object staticRange: TLabel
Left = 8
Top = 16
Width = 46
Height = 13
Caption = 'Verse List'
end
object editStart: TEdit
Left = 8
Top = 31
Width = 264
Height = 21
Hint =
'Examples:'#13#10'John 1:1 Prints John ' +
'chapter 1 verse 1'#13#10'John 1 Pri' +
'nts the entire first chapter of John'#13#10'John 1,2 ' +
' Prints chapters 1 and 2 of John'#13#10'John 3:16;Rom 3:' +
'23 Prints John 3:16 and Romans 3:23'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
end
end
object shtSetup: TTabSheet
Caption = 'Page Setup'
ImageIndex = 1
object GroupBox4: TGroupBox
Left = 8
Top = 8
Width = 204
Height = 153
Caption = 'Margins (Inches)'
TabOrder = 0
object labelLeft: TLabel
Left = 15
Top = 38
Width = 21
Height = 13
Caption = 'Left:'
end
object labelBot: TLabel
Left = 122
Top = 91
Width = 36
Height = 13
Caption = 'Bottom:'
end
object labelRight: TLabel
Left = 123
Top = 40
Width = 28
Height = 13
Caption = 'Right:'
end
object labelTop: TLabel
Left = 15
Top = 88
Width = 22
Height = 13
Caption = 'Top:'
end
object editLeft: TEdit
Left = 15
Top = 53
Width = 44
Height = 21
TabOrder = 0
Text = '0.50'
end
object spinLeft: TUpDown
Left = 59
Top = 53
Width = 17
Height = 21
Min = 0
Position = 50
TabOrder = 1
Thousands = False
Wrap = False
OnClick = spinLeftClick
end
object editBottom: TEdit
Left = 122
Top = 105
Width = 44
Height = 21
TabOrder = 2
Text = '0.75'
end
object spinBottom: TUpDown
Left = 166
Top = 105
Width = 17
Height = 21
Min = 0
Position = 50
TabOrder = 3
Wrap = False
OnClick = spinBottomClick
end
object spinRight: TUpDown
Left = 166
Top = 55
Width = 17
Height = 21
Min = 0
Position = 50
TabOrder = 4
Wrap = False
OnClick = spinRightClick
end
object editRight: TEdit
Left = 122
Top = 55
Width = 44
Height = 21
TabOrder = 5
Text = '0.50'
end
object spinTop: TUpDown
Left = 59
Top = 103
Width = 17
Height = 21
Min = 0
Position = 50
TabOrder = 6
Wrap = False
OnClick = spinTopClick
end
object editTop: TEdit
Left = 15
Top = 103
Width = 44
Height = 21
TabOrder = 7
Text = '0.50'
end
end
object GroupBox5: TGroupBox
Left = 221
Top = 8
Width = 209
Height = 153
Caption = 'Header/Foooter'
TabOrder = 1
object labelHeader: TLabel
Left = 10
Top = 39
Width = 59
Height = 13
Caption = 'Header Text'
Enabled = False
end
object labelFooter: TLabel
Left = 10
Top = 104
Width = 54
Height = 13
Caption = 'Footer Text'
Enabled = False
end
object editHeader: TEdit
Left = 10
Top = 54
Width = 183
Height = 21
Enabled = False
TabOrder = 0
Text = '&d'
end
object editFooter: TEdit
Left = 10
Top = 120
Width = 183
Height = 21
Enabled = False
TabOrder = 1
Text = 'Page &p of &t'
end
object ckHeader: TCheckBox
Left = 10
Top = 19
Width = 97
Height = 17
Caption = 'Print Header'
Enabled = False
TabOrder = 2
OnClick = ckHeaderClick
end
object ckFooter: TCheckBox
Left = 10
Top = 84
Width = 97
Height = 17
Caption = 'Print Footer'
Enabled = False
TabOrder = 3
OnClick = ckFooterClick
end
end
end
object shtFormat: TTabSheet
Caption = 'Formatting Options'
ImageIndex = 2
object GroupBox3: TGroupBox
Left = 8
Top = 8
Width = 425
Height = 201
Caption = 'Font and Size'
TabOrder = 0
object Label10: TLabel
Left = 8
Top = 20
Width = 83
Height = 13
Caption = 'Chapter Heading:'
end
object Label11: TLabel
Left = 8
Top = 46
Width = 51
Height = 13
Caption = 'Body Text:'
end
object Label12: TLabel
Left = 8
Top = 73
Width = 75
Height = 13
Caption = 'Verse Numbers:'
end
object labelFont: TLabel
Left = 173
Top = 18
Width = 43
Height = 13
Caption = 'labelFont'
end
object UpDown5: TUpDown
Left = 147
Top = 16
Width = 16
Height = 21
Associate = editHeading
Min = 10
Max = 24
Position = 16
TabOrder = 0
Wrap = False
end
object editHeading: TEdit
Left = 103
Top = 16
Width = 44
Height = 21
TabOrder = 1
Text = '16'
end
object UpDown6: TUpDown
Left = 147
Top = 42
Width = 16
Height = 21
Associate = editBody
Min = 8
Max = 20
Position = 12
TabOrder = 2
Wrap = False
end
object editBody: TEdit
Left = 103
Top = 42
Width = 44
Height = 21
TabOrder = 3
Text = '12'
end
object UpDown7: TUpDown
Left = 147
Top = 69
Width = 16
Height = 21
Associate = editNumbers
Min = 6
Max = 20
Position = 10
TabOrder = 4
Wrap = False
end
object editNumbers: TEdit
Left = 103
Top = 69
Width = 44
Height = 21
TabOrder = 5
Text = '10'
end
object pnlFontComboBox: TPanel
Left = 173
Top = 34
Width = 148
Height = 29
BevelOuter = bvNone
Caption = 'Font ComboBox'
TabOrder = 6
end
object ckChHead: TCheckBox
Left = 8
Top = 125
Width = 105
Height = 17
Caption = 'Chapter Headings'
TabOrder = 7
end
object ckPrefix: TCheckBox
Left = 144
Top = 146
Width = 161
Height = 17
Caption = 'Prefixed (John 1:1 KJV)...'
TabOrder = 8
end
object ckParagraph: TCheckBox
Left = 8
Top = 146
Width = 113
Height = 17
Caption = 'Paragraph Format'
TabOrder = 9
end
object ckPostfix: TCheckBox
Left = 144
Top = 168
Width = 161
Height = 17
Caption = 'Postfixed ...(John 1:1 KJV)'
TabOrder = 10
end
object ckVSNum: TCheckBox
Left = 144
Top = 104
Width = 105
Height = 17
Caption = 'Verse Numbers'
TabOrder = 11
OnClick = ckVSNumClick
end
object ckSuperVS: TCheckBox
Left = 168
Top = 125
Width = 97
Height = 17
Caption = 'Superscripted'
Enabled = False
TabOrder = 12
end
object ckBookHead: TCheckBox
Left = 8
Top = 104
Width = 81
Height = 17
Caption = 'Book Name'
TabOrder = 13
end
end
end
end
object PrinterSetupDialog: TPrinterSetupDialog
Left = 496
Top = 160
end
end
|