home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / qrprnsu.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  6KB  |  178 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) 'qrprnsu.pas' rev: 5.00
  6.  
  7. #ifndef qrprnsuHPP
  8. #define qrprnsuHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Printers.hpp>    // Pascal unit
  14. #include <Dialogs.hpp>    // Pascal unit
  15. #include <StdCtrls.hpp>    // Pascal unit
  16. #include <Forms.hpp>    // Pascal unit
  17. #include <Controls.hpp>    // Pascal unit
  18. #include <Graphics.hpp>    // Pascal unit
  19. #include <Classes.hpp>    // Pascal unit
  20. #include <CommDlg.hpp>    // Pascal unit
  21. #include <SysUtils.hpp>    // Pascal unit
  22. #include <Messages.hpp>    // Pascal unit
  23. #include <Windows.hpp>    // Pascal unit
  24. #include <SysInit.hpp>    // Pascal unit
  25. #include <System.hpp>    // Pascal unit
  26.  
  27. //-- user supplied -----------------------------------------------------------
  28.  
  29. namespace Qrprnsu
  30. {
  31. //-- type declarations -------------------------------------------------------
  32. class DELPHICLASS TQRCommonDialog;
  33. class PASCALIMPLEMENTATION TQRCommonDialog : public Classes::TComponent 
  34. {
  35.     typedef Classes::TComponent inherited;
  36.     
  37. private:
  38.     bool FCtl3D;
  39.     void *FDefWndProc;
  40.     Classes::THelpContext FHelpContext;
  41.     HWND FHandle;
  42.     void *FObjectInstance;
  43.     char *FTemplate;
  44.     Classes::TNotifyEvent FOnClose;
  45.     Classes::TNotifyEvent FOnShow;
  46.     MESSAGE void __fastcall WMDestroy(Messages::TWMNoParams &Message);
  47.     MESSAGE void __fastcall WMInitDialog(Messages::TWMInitDialog &Message);
  48.     MESSAGE void __fastcall WMNCDestroy(Messages::TWMNoParams &Message);
  49.     
  50. protected:
  51.     virtual void __fastcall DefaultHandler(void *Message);
  52.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  53.     virtual bool __fastcall MessageHook(Messages::TMessage &Msg);
  54.     virtual BOOL __fastcall TaskModalDialog(void * DialogFunc, void *DialogData);
  55.     DYNAMIC void __fastcall DoClose(void);
  56.     DYNAMIC void __fastcall DoShow(void);
  57.     virtual bool __fastcall Execute(void) = 0 ;
  58.     __property char * Template = {read=FTemplate, write=FTemplate};
  59.     
  60. public:
  61.     __fastcall virtual TQRCommonDialog(Classes::TComponent* AOwner);
  62.     __fastcall virtual ~TQRCommonDialog(void);
  63.     __property HWND Handle = {read=FHandle, nodefault};
  64.     
  65. __published:
  66.     __property bool Ctl3D = {read=FCtl3D, write=FCtl3D, default=1};
  67.     __property Classes::THelpContext HelpContext = {read=FHelpContext, write=FHelpContext, default=0};
  68.     __property Classes::TNotifyEvent OnClose = {read=FOnClose, write=FOnClose};
  69.     __property Classes::TNotifyEvent OnShow = {read=FOnShow, write=FOnShow};
  70. };
  71.  
  72.  
  73. class DELPHICLASS TQRBasePrintDialog;
  74. class PASCALIMPLEMENTATION TQRBasePrintDialog : public TQRCommonDialog 
  75. {
  76.     typedef TQRCommonDialog inherited;
  77.     
  78. private:
  79.     Printers::TPrinter* FPrinter;
  80.     
  81. protected:
  82.     char Device[80];
  83.     char Driver[80];
  84.     char Port[80];
  85.     unsigned __fastcall CopyData(unsigned Handle);
  86.     void __fastcall SetPrinter(unsigned DeviceMode, unsigned DeviceNames);
  87.     void __fastcall GetPrinter(unsigned &DeviceMode, unsigned &DeviceNames);
  88.     
  89. public:
  90.     __fastcall virtual TQRBasePrintDialog(Classes::TComponent* AOwner);
  91.     __property Printers::TPrinter* Printer = {read=FPrinter, write=FPrinter};
  92. public:
  93.     #pragma option push -w-inl
  94.     /* TQRCommonDialog.Destroy */ inline __fastcall virtual ~TQRBasePrintDialog(void) { }
  95.     #pragma option pop
  96.     
  97. };
  98.  
  99.  
  100. class DELPHICLASS TQRPrinterSetupDialog;
  101. class PASCALIMPLEMENTATION TQRPrinterSetupDialog : public TQRBasePrintDialog 
  102. {
  103.     typedef TQRBasePrintDialog inherited;
  104.     
  105. public:
  106.     virtual bool __fastcall Execute(void);
  107. public:
  108.     #pragma option push -w-inl
  109.     /* TQRBasePrintDialog.Create */ inline __fastcall virtual TQRPrinterSetupDialog(Classes::TComponent* 
  110.         AOwner) : TQRBasePrintDialog(AOwner) { }
  111.     #pragma option pop
  112.     
  113. public:
  114.     #pragma option push -w-inl
  115.     /* TQRCommonDialog.Destroy */ inline __fastcall virtual ~TQRPrinterSetupDialog(void) { }
  116.     #pragma option pop
  117.     
  118. };
  119.  
  120.  
  121. class DELPHICLASS TQRPrintDialog;
  122. class PASCALIMPLEMENTATION TQRPrintDialog : public TQRBasePrintDialog 
  123. {
  124.     typedef TQRBasePrintDialog inherited;
  125.     
  126. private:
  127.     int FFromPage;
  128.     int FToPage;
  129.     bool FCollate;
  130.     Dialogs::TPrintDialogOptions FOptions;
  131.     bool FPrintToFile;
  132.     Dialogs::TPrintRange FPrintRange;
  133.     int FMinPage;
  134.     int FMaxPage;
  135.     int FCopies;
  136.     void __fastcall SetNumCopies(int Value);
  137.     
  138. public:
  139.     virtual bool __fastcall Execute(void);
  140.     
  141. __published:
  142.     __property bool Collate = {read=FCollate, write=FCollate, default=0};
  143.     __property int Copies = {read=FCopies, write=SetNumCopies, default=0};
  144.     __property int FromPage = {read=FFromPage, write=FFromPage, default=0};
  145.     __property int MinPage = {read=FMinPage, write=FMinPage, default=0};
  146.     __property int MaxPage = {read=FMaxPage, write=FMaxPage, default=0};
  147.     __property Dialogs::TPrintDialogOptions Options = {read=FOptions, write=FOptions, default=0};
  148.     __property bool PrintToFile = {read=FPrintToFile, write=FPrintToFile, default=0};
  149.     __property Dialogs::TPrintRange PrintRange = {read=FPrintRange, write=FPrintRange, default=0};
  150.     __property int ToPage = {read=FToPage, write=FToPage, default=0};
  151. public:
  152.     #pragma option push -w-inl
  153.     /* TQRBasePrintDialog.Create */ inline __fastcall virtual TQRPrintDialog(Classes::TComponent* AOwner
  154.         ) : TQRBasePrintDialog(AOwner) { }
  155.     #pragma option pop
  156.     
  157. public:
  158.     #pragma option push -w-inl
  159.     /* TQRCommonDialog.Destroy */ inline __fastcall virtual ~TQRPrintDialog(void) { }
  160.     #pragma option pop
  161.     
  162. };
  163.  
  164.  
  165. //-- var, const, procedure ---------------------------------------------------
  166. static const Shortint MaxCustomColors = 0x10;
  167.  
  168. }    /* namespace Qrprnsu */
  169. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  170. using namespace Qrprnsu;
  171. #endif
  172. #pragma option pop    // -w-
  173. #pragma option pop    // -Vx
  174.  
  175. #pragma delphiheader end.
  176. //-- end unit ----------------------------------------------------------------
  177. #endif    // qrprnsu
  178.