| Class TPRNformatDlg (unit PSPrndlg) |
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);
procedure OKBtnClick(Sender: TObject);
procedure SpinEditFirstChange(Sender: TObject);
procedure SpinEditLastChange(Sender: TObject);
procedure PrintTheFile(const FileSpec: String; FilesName: TLabel);
procedure SetPrintFactors;
procedure AutoSetCPI;
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;
TextList : TStringList;
FirstPage : integer;
LastPage : integer;
Pages : Integer;
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;