Class TPRNformatDlg (unit PSPrndlg)

Inherits from

TForm

----- Renamed from PrintDlg.pas 6/20/1998 Paul Rice to avoid conflicts with others' work. File: PRINTDLG.PAS for Project CODEAPP.DPR Sends a text file to printer -----*) {.$DEFINE Testing} {enable for out to file

Constructors



Functions

procedure AutoWidthClick(Sender: TObject);


procedure HasTitleClick(Sender: TObject);


procedure HelpBtnClick(Sender: TObject);

PrintTheFile

procedure OKBtnClick(Sender: TObject);

set last

procedure SpinEditFirstChange(Sender: TObject);

-Show how many lines

procedure SpinEditLastChange(Sender: TObject);


procedure PrintTheFile(const FileSpec: String; FilesName: TLabel);


procedure SetPrintFactors;

change pitch to match

procedure AutoSetCPI;

-Tell user basic use

procedure UpdateLineRange;


Properties

Events

Variables

AutoWidth : TCheckBox;


Bevel1 : TBevel;


CancelBtn : TBitBtn;


GroupBox1 : TGroupBox;


HasTitle : TCheckBox;


HelpBtn : TBitBtn;


Label2 : TLabel;


Label3 : TLabel;


LastPageFirst : TCheckBox;


LineNumbering : TCheckBox;


LinesLabel : TLabel;


OKBtn : TBitBtn;


Panel2 : TPanel;


PrintPitch : TRadioGroup;


SpinEditFirst : TSpinEdit;


SpinEditLast : TSpinEdit;


page_width : Integer;


pcancel : boolean;

print width in # of columns

TextList : TStringList;

Public declarations

FirstPage : integer;

Private declarations

LastPage : integer;


Pages : Integer;

lines per page

PrintLength : Integer;



Constructors


Functions


procedure AutoWidthClick(Sender: TObject);


procedure HasTitleClick(Sender: TObject);


procedure HelpBtnClick(Sender: TObject);

PrintTheFile


procedure OKBtnClick(Sender: TObject);

set last


procedure SpinEditFirstChange(Sender: TObject);

-Show how many lines


procedure SpinEditLastChange(Sender: TObject);


procedure PrintTheFile(const FileSpec: String; FilesName: TLabel);


procedure SetPrintFactors;

change pitch to match


procedure AutoSetCPI;

-Tell user basic use


procedure UpdateLineRange;


Properties


Events


Variables


AutoWidth : TCheckBox;


Bevel1 : TBevel;


CancelBtn : TBitBtn;


GroupBox1 : TGroupBox;


HasTitle : TCheckBox;


HelpBtn : TBitBtn;


Label2 : TLabel;


Label3 : TLabel;


LastPageFirst : TCheckBox;


LineNumbering : TCheckBox;


LinesLabel : TLabel;


OKBtn : TBitBtn;


Panel2 : TPanel;


PrintPitch : TRadioGroup;


SpinEditFirst : TSpinEdit;


SpinEditLast : TSpinEdit;


page_width : Integer;


pcancel : boolean;

print width in # of columns


TextList : TStringList;

Public declarations


FirstPage : integer;

Private declarations


LastPage : integer;


Pages : Integer;

lines per page


PrintLength : Integer;