Class TRyPreviewFrm (unit Rprev)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure Button7Click(Sender: TObject);


procedure FirstBtnClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure LastBtnClick(Sender: TObject);


procedure NextBtnClick(Sender: TObject);


procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure PaintBox1Paint(Sender: TObject);


procedure PrintBtnClick(Sender: TObject);

*************** this is for the preview form

procedure PriorBtnClick(Sender: TObject);


procedure ShwGrdBtnClick(Sender: TObject);


Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


Button6 : TButton;


Button7 : TButton;


FirstBtn : TButton;


LastBtn : TButton;


NextBtn : TButton;


PaintBox1 : TPaintBox;


Panel1 : TPanel;


Panel2 : TPanel;


PrintBtn : TButton;


PriorBtn : TButton;


sb : TScrollBox;


PageDisplaying : Integer;


Ry : TRyPrinter;

Private declarations


Constructors


Functions


procedure Button1Click(Sender: TObject);


procedure Button2Click(Sender: TObject);


procedure Button3Click(Sender: TObject);


procedure Button7Click(Sender: TObject);


procedure FirstBtnClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure LastBtnClick(Sender: TObject);


procedure NextBtnClick(Sender: TObject);


procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure PaintBox1Paint(Sender: TObject);


procedure PrintBtnClick(Sender: TObject);

*************** this is for the preview form


procedure PriorBtnClick(Sender: TObject);


procedure ShwGrdBtnClick(Sender: TObject);


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


Button6 : TButton;


Button7 : TButton;


FirstBtn : TButton;


LastBtn : TButton;


NextBtn : TButton;


PaintBox1 : TPaintBox;


Panel1 : TPanel;


Panel2 : TPanel;


PrintBtn : TButton;


PriorBtn : TButton;


sb : TScrollBox;


PageDisplaying : Integer;


Ry : TRyPrinter;

Private declarations