home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / VPR_DATA / PROGRAM / CBTRIAL / SETUP / DATA.Z / FLDLINKS.HPP < prev    next >
C/C++ Source or Header  |  1997-02-14  |  4KB  |  121 lines
  1. //----------------------------------------------------------------------------
  2. // Fldlinks.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: Fldlinks.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef FldlinksHPP
  6. #define FldlinksHPP
  7. //----------------------------------------------------------------------------
  8. #include <DsgnIntf.hpp>
  9. #include <Buttons.hpp>
  10. #include <DBTables.hpp>
  11. #include <DB.hpp>
  12. #include <ExtCtrls.hpp>
  13. #include <StdCtrls.hpp>
  14. #include <Forms.hpp>
  15. #include <Controls.hpp>
  16. #include <Graphics.hpp>
  17. #include <Classes.hpp>
  18. #include <Messages.hpp>
  19. #include <Windows.hpp>
  20. #include <SysUtils.hpp>
  21. #include <System.hpp>
  22. #pragma warn -par
  23. #pragma warn -hid 
  24. #pragma warn -inl
  25.  
  26. namespace Fldlinks
  27. {
  28. //-- type declarations -------------------------------------------------------
  29. class __declspec(delphiclass) TLinkFields;
  30. class __declspec(pascalimplementation) TLinkFields : public Forms::TForm
  31. {
  32.     typedef Forms::TForm inherited;
  33.     
  34. __published:
  35.     Stdctrls::TListBox* DetailList;
  36.     Stdctrls::TListBox* MasterList;
  37.     Stdctrls::TListBox* BindList;
  38.     Stdctrls::TLabel* Label30;
  39.     Stdctrls::TLabel* Label31;
  40.     Stdctrls::TComboBox* IndexList;
  41.     Stdctrls::TLabel* IndexLabel;
  42.     Dbtables::TTable* Table1;
  43.     Stdctrls::TLabel* Label2;
  44.     Extctrls::TBevel* Bevel1;
  45.     Extctrls::TBevel* Bevel2;
  46.     Stdctrls::TButton* AddButton;
  47.     Stdctrls::TButton* DeleteButton;
  48.     Stdctrls::TButton* ClearButton;
  49.     Stdctrls::TButton* Button1;
  50.     Stdctrls::TButton* Button2;
  51.     Stdctrls::TButton* Help;
  52.     void __fastcall FormCreate(System::TObject* Sender);
  53.     void __fastcall IndexListChange(System::TObject* Sender);
  54.     void __fastcall BindingListClick(System::TObject* Sender);
  55.     void __fastcall AddButtonClick(System::TObject* Sender);
  56.     void __fastcall DeleteButtonClick(System::TObject* Sender);
  57.     void __fastcall BindListClick(System::TObject* Sender);
  58.     void __fastcall ClearButtonClick(System::TObject* Sender);
  59.     void __fastcall FormDestroy(System::TObject* Sender);
  60.     void __fastcall BitBtn1Click(System::TObject* Sender);
  61.     void __fastcall HelpClick(System::TObject* Sender);
  62.     
  63. private:
  64.     System::AnsiString FFullIndexName;
  65.     Classes::TStringList* OrderedDetailList;
  66.     Classes::TStringList* OrderedMasterList;
  67.     bool Local;
  68.     void __fastcall OrderFieldList(Classes::TStrings* OrderedList, Classes::TStrings* List);
  69.     
  70. public:
  71.     System::AnsiString MasterFieldList;
  72.     System::AnsiString IndexFieldList;
  73.     void __fastcall AddToBindList(const System::AnsiString Str1, const System::AnsiString Str2);
  74.     void __fastcall Initialize(Dbtables::TTable* const Table, Db::TDataSet* const DataSet);
  75.     __property System::AnsiString FullIndexName = {read=FFullIndexName, nodefault};
  76. public:
  77.     /* TForm.Create */ __fastcall virtual TLinkFields(Classes::TComponent* AOwner) : Forms::TForm(AOwner
  78.         ) { }
  79.     /* TForm.CreateNew */ __fastcall TLinkFields(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(
  80.         AOwner, Dummy) { }
  81.     /* TForm.Destroy */ __fastcall virtual ~TLinkFields(void) { }
  82.     
  83. public:
  84.     /* TWinControl.CreateParented */ __fastcall TLinkFields(HWND ParentWindow) : Forms::TForm(ParentWindow
  85.         ) { }
  86.     
  87. };
  88.  
  89. class __declspec(delphiclass) TFieldLinkProperty;
  90. class __declspec(pascalimplementation) TFieldLinkProperty : public Dsgnintf::TPropertyEditor
  91. {
  92.     typedef Dsgnintf::TPropertyEditor inherited;
  93.     
  94. public:
  95.     virtual void __fastcall Edit(void);
  96.     virtual Dsgnintf::TPropertyAttributes __fastcall GetAttributes(void);
  97.     virtual System::AnsiString __fastcall GetValue(void);
  98.     virtual void __fastcall SetValue(const System::AnsiString Value);
  99. public:
  100.     /* TPropertyEditor.Destroy */ __fastcall virtual ~TFieldLinkProperty(void) { }
  101.     
  102. public:
  103.     /* TObject.Create */ __fastcall TFieldLinkProperty(void) : Dsgnintf::TPropertyEditor() { }
  104.     
  105. };
  106.  
  107. //-- var, const, procedure ---------------------------------------------------
  108. extern TLinkFields* LinkFields;
  109.  
  110. }    /* namespace Fldlinks */
  111.  
  112. #pragma warn .par
  113. #pragma warn .hid 
  114. #pragma warn .inl
  115.  
  116. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  117. using namespace Fldlinks;
  118. #endif
  119. //-- end unit ----------------------------------------------------------------
  120. #endif    // Fldlinks
  121.