home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / DATAFORM.HPP < prev    next >
C/C++ Source or Header  |  1997-02-28  |  4KB  |  114 lines
  1. //----------------------------------------------------------------------------
  2. // Dataform.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: Dataform.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef DataformHPP
  6. #define DataformHPP
  7. //----------------------------------------------------------------------------
  8. #include <Frmexprt.hpp>
  9. #include <DBGrids.hpp>
  10. #include <Bde.hpp>
  11. #include <DBCtrls.hpp>
  12. #include <DBTables.hpp>
  13. #include <DB.hpp>
  14. #include <Controls.hpp>
  15. #include <ExtCtrls.hpp>
  16. #include <Forms.hpp>
  17. #include <Graphics.hpp>
  18. #include <StdCtrls.hpp>
  19. #include <Classes.hpp>
  20. #include <Windows.hpp>
  21. #include <SysUtils.hpp>
  22. #include <System.hpp>
  23. #pragma warn -par
  24. #pragma warn -hid 
  25. #pragma warn -inl
  26.  
  27. namespace Dataform
  28. {
  29. //-- type declarations -------------------------------------------------------
  30. enum TUsedControls { ucGrid, ucScrollBox };
  31.  
  32. class __declspec(delphiclass) TDataForm;
  33. class __declspec(pascalimplementation) TDataForm : public Forms::TForm
  34. {
  35.     typedef Forms::TForm inherited;
  36.     
  37. __published:
  38.     Dbtables::TQuery* Query1;
  39.     Dbtables::TQuery* Query2;
  40.     Db::TDataSource* DataSource1;
  41.     Db::TDataSource* DataSource2;
  42.     Extctrls::TPanel* Panel1;
  43.     Dbtables::TTable* Table1;
  44.     Dbtables::TTable* Table2;
  45.     Dbctrls::TDBNavigator* DBNavigator;
  46.     void __fastcall FormCreate(System::TObject* Sender);
  47.     
  48. private:
  49.     int NumFields;
  50.     int XPos;
  51.     int YPos;
  52.     Forms::TScrollBox* FScrollBox;
  53.     Extctrls::TPanel* FScrollPanel;
  54.     Extctrls::TPanel* FGridPanel1;
  55.     Extctrls::TPanel* FGridPanel2;
  56.     int MaxLabelWidth;
  57.     Word CharWidth;
  58.     int LowestControl;
  59.     System::Set<TUsedControls, ucGrid, ucScrollBox>  UsedControls;
  60.     Controls::TControl* __fastcall CreateControl(Frmexprt::PFieldInfo Field);
  61.     System::AnsiString __fastcall CreateName(Classes::TComponent* Component,  System::AnsiString Value)
  62.         ;
  63.     POINT __fastcall GetMaxControlValue(void);
  64.     void __fastcall RestructureForm(int Value);
  65.     
  66. public:
  67.     bool MultiQuery;
  68.     bool ByRow;
  69.     int Pass;
  70.     bool LabelsLeft;
  71.     int LastHeight;
  72.     bool CreateTable;
  73.     bool GenDataSets;
  74.     System::AnsiString UsesName;
  75.     Db::TDataSource* MainDataSource1;
  76.     Db::TDataSource* MainDataSource2;
  77.     void __fastcall NextPass(void);
  78.     Classes::TMemoryStream* __fastcall CreateRes(const System::AnsiString FormName);
  79.     Classes::TMemoryStream* __fastcall CreateHdrSource(const System::AnsiString FilePath, const System::AnsiString 
  80.         FormName);
  81.     Classes::TMemoryStream* __fastcall CreateSource(const System::AnsiString FilePath, const System::AnsiString 
  82.         FormName,  System::AnsiString DMFileName);
  83.     void __fastcall CreateField(const System::AnsiString FieldName, Frmexprt::PFieldInfo Field);
  84.     void __fastcall CreateGrid(void);
  85.     __property Forms::TScrollBox* ScrollBox = {read=FScrollBox, nodefault};
  86. public:
  87.     /* TForm.Create */ __fastcall virtual TDataForm(Classes::TComponent* AOwner) : Forms::TForm(AOwner)
  88.          { }
  89.     /* TForm.CreateNew */ __fastcall TDataForm(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(AOwner
  90.         , Dummy) { }
  91.     /* TForm.Destroy */ __fastcall virtual ~TDataForm(void) { }
  92.     
  93. public:
  94.     /* TWinControl.CreateParented */ __fastcall TDataForm(HWND ParentWindow) : Forms::TForm(ParentWindow
  95.         ) { }
  96.     
  97. };
  98.  
  99. //-- var, const, procedure ---------------------------------------------------
  100. //-- template instantiations -------------------------------------------------
  101. template class System::Set<TUsedControls, ucGrid, ucScrollBox>  ;
  102.  
  103. }    /* namespace Dataform */
  104.  
  105. #pragma warn .par
  106. #pragma warn .hid 
  107. #pragma warn .inl
  108.  
  109. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  110. using namespace Dataform;
  111. #endif
  112. //-- end unit ----------------------------------------------------------------
  113. #endif    // Dataform
  114.