home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol11n19.zip / XTRA31.PAS < prev   
Pascal/Delphi Source File  |  1992-06-30  |  1KB  |  45 lines
  1. unit xtra31;
  2.  
  3. {
  4.  
  5. This unit provides interface definitions for TPW 1.0 for the handful of
  6. Windows 3.1 functions that the CDDEMO program uses.  CDDemo requires
  7. Windows 3.1 to run, but it can be compiled with TPW 1.0 or TPW 1.5.
  8.  
  9.   This file is needed only for TPW 1.0.  The Win31.pas unit shipped with
  10. TPW 1.5 supercedes this file.
  11.  
  12. }
  13.  
  14. interface
  15.  
  16. uses winprocs, wintypes;
  17.  
  18. type
  19.   PDocInfo = ^TDocInfo;
  20.   TDocInfo = record
  21.     cbSize: Integer;
  22.     lpszDocName: PChar;
  23.     lpszOutput: PChar;
  24.   end;
  25.  
  26. type
  27.   TAbortProc = function (DC: HDC; Error: Integer): Boolean;
  28.  
  29. function StartDoc(DC: HDC; var di: TDocInfo): Integer;
  30. function StartPage(DC: HDC): Integer;
  31. function EndPage(DC: HDC): Integer;
  32. function EndDoc(DC: HDC): Integer;
  33. function AbortDoc(DC: HDC): Integer;
  34. function SetAbortProc(DC: HDC; AbortProc: TAbortProc): Integer;
  35.  
  36. implementation
  37.  
  38. function StartDoc;                       external 'GDI'      index 377;
  39. function StartPage;                      external 'GDI'      index 379;
  40. function EndPage;                        external 'GDI'      index 380;
  41. function EndDoc;                         external 'GDI'      index 378;
  42. function AbortDoc;                       external 'GDI'      index 382;
  43. function SetAbortProc;                   external 'GDI'      index 381;
  44.  
  45. end.