home *** CD-ROM | disk | FTP | other *** search
- //----------------------------------------------------------------------------
- // Dataform.hpp - dcc32 generated hdr (DO NOT EDIT) rev: -2
- // From: Dataform.pas
- //----------------------------------------------------------------------------
- #ifndef DataformHPP
- #define DataformHPP
- //----------------------------------------------------------------------------
- #ifndef FrmexprtHPP
- #include <Frmexprt.hpp>
- #endif
-
- #ifndef DBGridsHPP
- #include <DBGrids.hpp>
- #endif
-
- #ifndef BdeHPP
- #include <Bde.hpp>
- #endif
-
- #ifndef DBCtrlsHPP
- #include <DBCtrls.hpp>
- #endif
-
- #ifndef DBTablesHPP
- #include <DBTables.hpp>
- #endif
-
- #ifndef DBHPP
- #include <DB.hpp>
- #endif
-
- #ifndef ControlsHPP
- #include <Controls.hpp>
- #endif
-
- #ifndef ExtCtrlsHPP
- #include <ExtCtrls.hpp>
- #endif
-
- #ifndef FormsHPP
- #include <Forms.hpp>
- #endif
-
- #ifndef GraphicsHPP
- #include <Graphics.hpp>
- #endif
-
- #ifndef StdCtrlsHPP
- #include <StdCtrls.hpp>
- #endif
-
- #ifndef ClassesHPP
- #include <Classes.hpp>
- #endif
-
- #ifndef WindowsHPP
- #include <Windows.hpp>
- #endif
-
- #ifndef SysUtilsHPP
- #include <SysUtils.hpp>
- #endif
-
- #ifndef SystemHPP
- #include <System.hpp>
- #endif
-
- namespace Dataform
- {
- //-- type declarations -------------------------------------------------------
- enum TUsedControls { ucGrid, ucScrollBox };
-
- class __declspec(delphiclass) TDataForm;
- class __declspec(pascalimplementation) TDataForm : public Forms::TForm
- {
- typedef TDataForm ThisClass;
- typedef Forms::TForm inherited;
-
- __published:
- Dbtables::TQuery *Query1;
- Dbtables::TQuery *Query2;
- Db::TDataSource *DataSource1;
- Db::TDataSource *DataSource2;
- Extctrls::TPanel *Panel1;
- Dbtables::TTable *Table1;
- Dbtables::TTable *Table2;
- Dbctrls::TDBNavigator *DBNavigator;
- void __fastcall FormCreate(System::TObject *Sender);
-
- private:
- System::Integer NumFields;
- System::Integer XPos;
- System::Integer YPos;
- Forms::TScrollBox *FScrollBox;
- Extctrls::TPanel *FScrollPanel;
- Extctrls::TPanel *FGridPanel1;
- Extctrls::TPanel *FGridPanel2;
- System::Integer MaxLabelWidth;
- System::Word CharWidth;
- System::Integer LowestControl;
- Set<TUsedControls, ucGrid, ucScrollBox> UsedControls;
- Controls::TControl *__fastcall CreateControl(Frmexprt::PFieldInfo Field);
- System::AnsiString __fastcall CreateName(Classes::TComponent *Component, System::AnsiString Value)
- ;
- Windows::TPoint __fastcall GetMaxControlValue(void);
- void __fastcall RestructureForm(System::Integer Value);
-
- public:
- System::Boolean MultiQuery;
- System::Boolean ByRow;
- System::Integer Pass;
- System::Boolean LabelsLeft;
- System::Integer LastHeight;
- System::Boolean CreateTable;
- System::Boolean GenDataSets;
- System::AnsiString UsesName;
- Db::TDataSource *MainDataSource1;
- Db::TDataSource *MainDataSource2;
- void __fastcall NextPass(void);
- Classes::TMemoryStream *__fastcall CreateRes(const System::AnsiString FormName);
- Classes::TMemoryStream *__fastcall CreateHdrSource(const System::AnsiString FilePath, const System::AnsiString
- FormName);
- Classes::TMemoryStream *__fastcall CreateSource(const System::AnsiString FilePath, const System::AnsiString
- FormName);
- void __fastcall CreateField(const System::AnsiString FieldName, Frmexprt::PFieldInfo Field);
- void __fastcall CreateGrid(void);
- __property Forms::TScrollBox * ScrollBox = {read=FScrollBox, nodefault};
- public:
- /* !! TForm.Create */ __fastcall virtual TDataForm(Classes::TComponent *AOwner) : Forms::TForm(AOwner
- ) { }
- /* !! TForm.CreateNew */ __fastcall TDataForm(Classes::TComponent *AOwner, System::Integer Dummy) : Forms::TForm(
- AOwner, Dummy) { }
- /* !! TForm.Destroy */ __fastcall virtual ~TDataForm(void) { }
-
- };
-
- //-- var, const, procedure ---------------------------------------------------
- //-- template instantiations -------------------------------------------------
- template class Set<TUsedControls, ucGrid, ucScrollBox> ;
-
- } /* namespace Dataform */
- #if !defined(NO_IMPLICIT_NAMESPACE_USE)
- using namespace Dataform;
- #endif
- //-- end unit ----------------------------------------------------------------
- #endif // Dataform
-