PrintToFile, Version 1.3c (alt)
Hinweis: dies ist nicht die neueste Version!
Datei: Sample/main.dfm
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 |