Back

{*********************************************************}
{*                PrtDrvInterFaceTest.PAS 1.00           *}
{*        Copyright (c) Halkyon Development Team 1999    *}
{*                   All rights reserved.                *}
{*********************************************************}

unit PrtDrvInterFaceTest;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, HdtPrtCtl;

type
  TPrtDrvIntrFaceTest = class(TForm)
    HdtPrtDriverInterface1: THdtPrtDriverInterface;
    ListBox1: TListBox;
    btExit: TButton;
    Button1: TButton;
    procedure btExitClick(Sender: TObject);
    procedure HdtPrtDriverInterface1DocStart(Sender: TObject);
    procedure HdtPrtDriverInterface1InsertPaper(Sender: TObject);
    procedure HdtPrtDriverInterface1PrinterError(Sender: TObject);
    procedure HdtPrtDriverInterface1DocEnd(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PrtDrvIntrFaceTest: TPrtDrvIntrFaceTest;

implementation

{$R *.DFM}

procedure TPrtDrvIntrFaceTest.btExitClick(Sender: TObject);
begin
  Close;
end;

procedure TPrtDrvIntrFaceTest.HdtPrtDriverInterface1DocStart(
  Sender: TObject);
begin
  ListBox1.Items.Add(DateTimeToStr(Now)+': OnDocStart - Started printing document...');
end;

procedure TPrtDrvIntrFaceTest.HdtPrtDriverInterface1InsertPaper(
  Sender: TObject);
begin
  ListBox1.Items.Add(DateTimeToStr(Now)+': OnInsertPaper - Please insert paper...');
  ShowMessage('Please insert paper!');
  HdtPrtDriverInterface1.PaperIEvent := '1';
end;

procedure TPrtDrvIntrFaceTest.HdtPrtDriverInterface1PrinterError(
  Sender: TObject);
begin
  ListBox1.Items.Add(DateTimeToStr(Now)+': OnPrinterError - Error while printing!');
  ListBox1.Items.Add('                Print job canceled.');
end;

procedure TPrtDrvIntrFaceTest.HdtPrtDriverInterface1DocEnd(
  Sender: TObject);
begin
  ListBox1.Items.Add(DateTimeToStr(Now)+': OnDocEnd - Finished printing document.');
end;

procedure TPrtDrvIntrFaceTest.Button1Click(Sender: TObject);
begin
  ListBox1.Clear;
end;

end.


 Back