PrintToFile, Version 1.4

Zurück zur Übersicht

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
Flocke's Garage
Valid HTML 4.01 Transitional Valid CSS!
(C) 2005-2018 Volker Siebert.
Creative Commons-LizenzvertragDer gesamte Inhalt dieser Webseite steht unter einer Creative Commons-Lizenz (sofern nicht anders angegeben).