object Form1: TForm1
Left = 0
Top = 0
Caption = 'Flocke'#39's PrintToFile Test'
ClientHeight = 433
ClientWidth = 586
Color = clBtnFace
Constraints.MinHeight = 360
Constraints.MinWidth = 480
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
DesignSize = (
586
433)
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 256
Top = 352
Width = 81
Height = 13
Anchors = [akLeft, akBottom]
Caption = '&Output filename:'
FocusControl = Edit1
ExplicitTop = 320
end
object RichEdit1: TRichEdit
Left = 8
Top = 8
Width = 570
Height = 337
Anchors = [akLeft, akTop, akRight, akBottom]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Courier New'
Font.Style = []
HideSelection = False
Lines.Strings = (
'PrintToFile.pas'
''
'Delphi unit giving the ability to directly specify the filename ' +
'for printing'
'when the "Print to file" option is checked, bypassing the query ' +
'where to save'
'the file. See the included README.txt for more information and h' +
'ow to use it.'
''
'Version 1.3 - Always find the most current version at'
'http://flocke.vssd.de/prog/code/pascal/prt2file/'
''
'Copyright (C) 2005, 2006 Volker Siebert <flocke@vssd.de>'
'All rights reserved.'
''
'Permission is hereby granted, free of charge, to any person obta' +
'ining a'
'copy of this software and associated documentation files (the "S' +
'oftware"),'
'to deal in the Software without restriction, including without l' +
'imitation'
'the rights to use, copy, modify, merge, publish, distribute, sub' +
'license,'
'and/or sell copies of the Software, and to permit persons to who' +
'm the'
'Software is furnished to do so, subject to the following conditi' +
'ons:'
''
'The above copyright notice and this permission notice shall be i' +
'ncluded in'
'all copies or substantial portions of the Software.'
''
'THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' +
'EXPRESS OR'
'IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANT' +
'ABILITY,'
'FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVEN' +
'T SHALL THE'
'AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR' +
' OTHER'
'LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ' +
'ARISING'
'FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OT' +
'HER'
'DEALINGS IN THE SOFTWARE.')
ParentFont = False
ScrollBars = ssVertical
TabOrder = 0
end
object Edit1: TEdit
Left = 256
Top = 368
Width = 322
Height = 21
Anchors = [akLeft, akRight, akBottom]
TabOrder = 1
ExplicitTop = 336
ExplicitWidth = 329
end
object Button3: TButton
Left = 473
Top = 400
Width = 105
Height = 25
Anchors = [akRight, akBottom]
Caption = 'Print memo above'
TabOrder = 2
OnClick = Button3Click
ExplicitLeft = 480
ExplicitTop = 368
end
object GroupBox1: TGroupBox
Left = 8
Top = 352
Width = 233
Height = 73
Anchors = [akLeft, akBottom]
Caption = ' Patching Method '
TabOrder = 3
ExplicitTop = 320
object RadioButton1: TRadioButton
Left = 8
Top = 16
Width = 217
Height = 17
Caption = 'TPrinter.BeginDoc'
TabOrder = 0
end
object RadioButton2: TRadioButton
Left = 8
Top = 32
Width = 217
Height = 17
Caption = 'Windows.StartDoc @ import table'
Checked = True
TabOrder = 1
TabStop = True
end
object RadioButton3: TRadioButton
Left = 8
Top = 48
Width = 217
Height = 17
Caption = 'Windows.StartDoc @ DLL function entry'
TabOrder = 2
end
end
object Button1: TButton
Left = 256
Top = 400
Width = 89
Height = 25
Anchors = [akLeft, akBottom]
Caption = 'Select file ...'
TabOrder = 4
OnClick = Button1Click
ExplicitTop = 368
end
object Button2: TButton
Left = 369
Top = 400
Width = 97
Height = 25
Anchors = [akRight, akBottom]
Caption = 'Setup printer...'
TabOrder = 5
OnClick = Button2Click
ExplicitLeft = 376
ExplicitTop = 368
end
object SaveDialog1: TSaveDialog
DefaultExt = 'prn'
Filter = 'Printer output (*.prn)|*.prn|All files|*.*'
Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing]
Title = 'Select printer output file'
Left = 344
Top = 472
end
object PrinterSetupDialog1: TPrinterSetupDialog
Left = 376
Top = 472
end
end |