home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / DBEXCEPT.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-11-06  |  3.1 KB  |  115 lines
  1. //----------------------------------------------------------------------------
  2. // Dbexcept.hpp - dcc32 generated hdr (DO NOT EDIT) rev: -2
  3. // From: Dbexcept.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef DbexceptHPP
  6. #define DbexceptHPP
  7. //----------------------------------------------------------------------------
  8. #ifndef DBHPP
  9. #include <DB.hpp>
  10. #endif
  11.  
  12. #ifndef ExtCtrlsHPP
  13. #include <ExtCtrls.hpp>
  14. #endif
  15.  
  16. #ifndef StdCtrlsHPP
  17. #include <StdCtrls.hpp>
  18. #endif
  19.  
  20. #ifndef ButtonsHPP
  21. #include <Buttons.hpp>
  22. #endif
  23.  
  24. #ifndef ControlsHPP
  25. #include <Controls.hpp>
  26. #endif
  27.  
  28. #ifndef FormsHPP
  29. #include <Forms.hpp>
  30. #endif
  31.  
  32. #ifndef GraphicsHPP
  33. #include <Graphics.hpp>
  34. #endif
  35.  
  36. #ifndef ClassesHPP
  37. #include <Classes.hpp>
  38. #endif
  39.  
  40. #ifndef SysUtilsHPP
  41. #include <SysUtils.hpp>
  42. #endif
  43.  
  44. #ifndef WindowsHPP
  45. #include <Windows.hpp>
  46. #endif
  47.  
  48. #ifndef SystemHPP
  49. #include <System.hpp>
  50. #endif
  51.  
  52. namespace Dbexcept
  53. {
  54. //-- type declarations -------------------------------------------------------
  55. class __declspec(delphiclass) TDbEngineErrorDlg;
  56. class __declspec(pascalimplementation) TDbEngineErrorDlg : public Forms::TForm
  57. {
  58.     typedef TDbEngineErrorDlg ThisClass;
  59.     typedef Forms::TForm inherited;
  60.     
  61. __published:
  62.     Extctrls::TPanel *BasicPanel;
  63.     Extctrls::TPanel *DetailsPanel;
  64.     Stdctrls::TLabel *BDELabel;
  65.     Stdctrls::TLabel *NativeLabel;
  66.     Stdctrls::TMemo *DbMessageText;
  67.     Stdctrls::TEdit *DbResult;
  68.     Stdctrls::TEdit *DbCatSub;
  69.     Stdctrls::TEdit *NativeResult;
  70.     Stdctrls::TButton *BackBtn;
  71.     Stdctrls::TButton *NextBtn;
  72.     Extctrls::TPanel *ButtonPanel;
  73.     Stdctrls::TButton *DetailsBtn;
  74.     Stdctrls::TButton *OKBtn;
  75.     Extctrls::TPanel *IconPanel;
  76.     Extctrls::TImage *IconImage;
  77.     Extctrls::TPanel *TopPanel;
  78.     Stdctrls::TLabel *ErrorText;
  79.     Extctrls::TPanel *RightPanel;
  80.     void __fastcall FormShow(System::TObject *Sender);
  81.     void __fastcall BackClick(System::TObject *Sender);
  82.     void __fastcall NextClick(System::TObject *Sender);
  83.     void __fastcall FormCreate(System::TObject *Sender);
  84.     void __fastcall DetailsBtnClick(System::TObject *Sender);
  85.     
  86. private:
  87.     Forms::TExceptionEvent FPrevOnException;
  88.     Db::EDBEngineError *DbException;
  89.     System::Integer FDetailsHeight;
  90.     System::Integer CurItem;
  91.     System::AnsiString FDetails;
  92.     void __fastcall SwitchDetails(void);
  93.     void __fastcall ShowError(void);
  94.     
  95. public:
  96.     void __fastcall ShowException(System::TObject *Sender, Sysutils::Exception *E);
  97. public:
  98.     /* !! TForm.Create */ __fastcall virtual TDbEngineErrorDlg(Classes::TComponent *AOwner) : Forms::TForm(
  99.         AOwner) { }
  100.     /* !! TForm.CreateNew */ __fastcall TDbEngineErrorDlg(Classes::TComponent *AOwner, System::Integer 
  101.         Dummy) : Forms::TForm(AOwner, Dummy) { }
  102.     /* !! TForm.Destroy */ __fastcall virtual ~TDbEngineErrorDlg(void) { }
  103.     
  104. };
  105.  
  106. //-- var, const, procedure ---------------------------------------------------
  107. extern TDbEngineErrorDlg *DbEngineErrorDlg;
  108.  
  109. }    /* namespace Dbexcept */
  110. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  111. using namespace Dbexcept;
  112. #endif
  113. //-- end unit ----------------------------------------------------------------
  114. #endif    // Dbexcept
  115.