home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / printers.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  6KB  |  172 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'Printers.pas' rev: 5.00
  6.  
  7. #ifndef PrintersHPP
  8. #define PrintersHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Forms.hpp>    // Pascal unit
  14. #include <Graphics.hpp>    // Pascal unit
  15. #include <Classes.hpp>    // Pascal unit
  16. #include <SysUtils.hpp>    // Pascal unit
  17. #include <WinSpool.hpp>    // Pascal unit
  18. #include <Windows.hpp>    // Pascal unit
  19. #include <SysInit.hpp>    // Pascal unit
  20. #include <System.hpp>    // Pascal unit
  21.  
  22. //-- user supplied -----------------------------------------------------------
  23.  
  24. namespace Printers
  25. {
  26. //-- type declarations -------------------------------------------------------
  27. class DELPHICLASS EPrinter;
  28. class PASCALIMPLEMENTATION EPrinter : public Sysutils::Exception 
  29. {
  30.     typedef Sysutils::Exception inherited;
  31.     
  32. public:
  33.     #pragma option push -w-inl
  34.     /* Exception.Create */ inline __fastcall EPrinter(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  35.         
  36.     #pragma option pop
  37.     #pragma option push -w-inl
  38.     /* Exception.CreateFmt */ inline __fastcall EPrinter(const AnsiString Msg, const System::TVarRec * 
  39.         Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  40.     #pragma option pop
  41.     #pragma option push -w-inl
  42.     /* Exception.CreateRes */ inline __fastcall EPrinter(int Ident)/* overload */ : Sysutils::Exception(
  43.         Ident) { }
  44.     #pragma option pop
  45.     #pragma option push -w-inl
  46.     /* Exception.CreateResFmt */ inline __fastcall EPrinter(int Ident, const System::TVarRec * Args, const 
  47.         int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  48.     #pragma option pop
  49.     #pragma option push -w-inl
  50.     /* Exception.CreateHelp */ inline __fastcall EPrinter(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(
  51.         Msg, AHelpContext) { }
  52.     #pragma option pop
  53.     #pragma option push -w-inl
  54.     /* Exception.CreateFmtHelp */ inline __fastcall EPrinter(const AnsiString Msg, const System::TVarRec 
  55.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  56.         ) { }
  57.     #pragma option pop
  58.     #pragma option push -w-inl
  59.     /* Exception.CreateResHelp */ inline __fastcall EPrinter(int Ident, int AHelpContext)/* overload */
  60.          : Sysutils::Exception(Ident, AHelpContext) { }
  61.     #pragma option pop
  62.     #pragma option push -w-inl
  63.     /* Exception.CreateResFmtHelp */ inline __fastcall EPrinter(System::PResStringRec ResStringRec, const 
  64.         System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(
  65.         ResStringRec, Args, Args_Size, AHelpContext) { }
  66.     #pragma option pop
  67.     
  68. public:
  69.     #pragma option push -w-inl
  70.     /* TObject.Destroy */ inline __fastcall virtual ~EPrinter(void) { }
  71.     #pragma option pop
  72.     
  73. };
  74.  
  75.  
  76. #pragma option push -b-
  77. enum TPrinterState { psNoHandle, psHandleIC, psHandleDC };
  78. #pragma option pop
  79.  
  80. #pragma option push -b-
  81. enum TPrinterOrientation { poPortrait, poLandscape };
  82. #pragma option pop
  83.  
  84. #pragma option push -b-
  85. enum TPrinterCapability { pcCopies, pcOrientation, pcCollation };
  86. #pragma option pop
  87.  
  88. typedef Set<TPrinterCapability, pcCopies, pcCollation>  TPrinterCapabilities;
  89.  
  90. class DELPHICLASS TPrinter;
  91. class PASCALIMPLEMENTATION TPrinter : public System::TObject 
  92. {
  93.     typedef System::TObject inherited;
  94.     
  95. private:
  96.     Graphics::TCanvas* FCanvas;
  97.     Classes::TStrings* FFonts;
  98.     int FPageNumber;
  99.     Classes::TStrings* FPrinters;
  100.     int FPrinterIndex;
  101.     AnsiString FTitle;
  102.     bool FPrinting;
  103.     bool FAborted;
  104.     TPrinterCapabilities FCapabilities;
  105.     TPrinterState State;
  106.     HDC DC;
  107.     _devicemodeA *DevMode;
  108.     unsigned DeviceMode;
  109.     unsigned FPrinterHandle;
  110.     void __fastcall SetState(TPrinterState Value);
  111.     Graphics::TCanvas* __fastcall GetCanvas(void);
  112.     int __fastcall GetNumCopies(void);
  113.     Classes::TStrings* __fastcall GetFonts(void);
  114.     HDC __fastcall GetHandle(void);
  115.     TPrinterOrientation __fastcall GetOrientation(void);
  116.     int __fastcall GetPageHeight(void);
  117.     int __fastcall GetPageWidth(void);
  118.     int __fastcall GetPrinterIndex(void);
  119.     void __fastcall SetPrinterCapabilities(int Value);
  120.     void __fastcall SetPrinterIndex(int Value);
  121.     Classes::TStrings* __fastcall GetPrinters(void);
  122.     void __fastcall SetNumCopies(int Value);
  123.     void __fastcall SetOrientation(TPrinterOrientation Value);
  124.     void __fastcall SetToDefaultPrinter(void);
  125.     void __fastcall CheckPrinting(bool Value);
  126.     void __fastcall FreePrinters(void);
  127.     void __fastcall FreeFonts(void);
  128.     
  129. public:
  130.     __fastcall TPrinter(void);
  131.     __fastcall virtual ~TPrinter(void);
  132.     void __fastcall Abort(void);
  133.     void __fastcall BeginDoc(void);
  134.     void __fastcall EndDoc(void);
  135.     void __fastcall NewPage(void);
  136.     void __fastcall GetPrinter(char * ADevice, char * ADriver, char * APort, unsigned &ADeviceMode);
  137.     void __fastcall SetPrinter(char * ADevice, char * ADriver, char * APort, unsigned ADeviceMode);
  138.     void __fastcall Refresh(void);
  139.     __property bool Aborted = {read=FAborted, nodefault};
  140.     __property Graphics::TCanvas* Canvas = {read=GetCanvas};
  141.     __property TPrinterCapabilities Capabilities = {read=FCapabilities, nodefault};
  142.     __property int Copies = {read=GetNumCopies, write=SetNumCopies, nodefault};
  143.     __property Classes::TStrings* Fonts = {read=GetFonts};
  144.     __property HDC Handle = {read=GetHandle, nodefault};
  145.     __property TPrinterOrientation Orientation = {read=GetOrientation, write=SetOrientation, nodefault}
  146.         ;
  147.     __property int PageHeight = {read=GetPageHeight, nodefault};
  148.     __property int PageWidth = {read=GetPageWidth, nodefault};
  149.     __property int PageNumber = {read=FPageNumber, nodefault};
  150.     __property int PrinterIndex = {read=GetPrinterIndex, write=SetPrinterIndex, nodefault};
  151.     __property bool Printing = {read=FPrinting, nodefault};
  152.     __property Classes::TStrings* Printers = {read=GetPrinters};
  153.     __property AnsiString Title = {read=FTitle, write=FTitle};
  154. };
  155.  
  156.  
  157. //-- var, const, procedure ---------------------------------------------------
  158. extern PACKAGE void __fastcall AssignPrn(TextFile &F);
  159. extern PACKAGE TPrinter* __fastcall Printer(void);
  160. extern PACKAGE TPrinter* __fastcall SetPrinter(TPrinter* NewPrinter);
  161.  
  162. }    /* namespace Printers */
  163. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  164. using namespace Printers;
  165. #endif
  166. #pragma option pop    // -w-
  167. #pragma option pop    // -Vx
  168.  
  169. #pragma delphiheader end.
  170. //-- end unit ----------------------------------------------------------------
  171. #endif    // Printers
  172.