DelphiPrint.docVIP

DelphiPrint ============================= 给你一个我的宝贝: { Print It Twocolumn printing of texts, especially Delphi-sources, with a fixed page setup. Each page has 104 lines, each line is 72 chars long. Too long lines are cut off, this can be seen by raquo; at the line s end. The font courier is used. Numbers are adapted to A4 paper format. Usage A: Start program and select the file to print. Usage B: Send one ore more files per dragdrop to the program. rk 09/01/98 } Unit PrintIt1; Interface {} Uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Printers, StdCtrls, ExtCtrls; {} Type TForm1 = Class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; Procedure Button1Click(Sender: TObject); Procedure FormCreate(Sender: TObject); Procedure FormClose(Sender: TObject; Var Action: TCloseAction); Private StringList : TstringList; CharsPerLine, LinesPerPage, NumberOfPages, { the units of the following variables are printer-pixels } BorderLeft, BorderRight, BorderTop, BorderBottom, HeaderFooterHeight, xLine, xPos, xPosLeft, xPosRight, yPos, yPosTop, yDelta : Integer; TheTime, FileName : String; Procedure SetLineLength; Procedure PerformSettings; Procedure Print; Procedure Header; Procedure Footer; Procedure Line; Procedure PrintJob( TheFileName : String ); End; {} Var Form1 : TForm1; {} Implementation {$R *.DFM} {} Procedure TForm1.Button1Click(Sender: TObject); {} Begin If OpenDialog1