home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ahmstanc / _setup.1 / AHMTDBIndexLookup.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-12-05  |  4.1 KB  |  130 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'AHMTDBIndexLookup.pas' rev: 3.00
  6.  
  7. #ifndef AHMTDBIndexLookupHPP
  8. #define AHMTDBIndexLookupHPP
  9. #include <Menus.hpp>
  10. #include <Graphics.hpp>
  11. #include <AHMSControls.hpp>
  12. #include <DBTables.hpp>
  13. #include <Db.hpp>
  14. #include <StdCtrls.hpp>
  15. #include <Controls.hpp>
  16. #include <Classes.hpp>
  17. #include <Messages.hpp>
  18. #include <Windows.hpp>
  19. #include <SysUtils.hpp>
  20. #include <SysInit.hpp>
  21. #include <System.hpp>
  22.  
  23. //-- user supplied -----------------------------------------------------------
  24.  
  25. namespace Ahmtdbindexlookup
  26. {
  27. //-- type declarations -------------------------------------------------------
  28. enum TAHMDBDisplayType { dtDisplayLabel, dtFieldName, dtIndexName };
  29.  
  30. class DELPHICLASS TAHMIndexDataLink;
  31. class DELPHICLASS TAHMDBIndexLookup;
  32. class PASCALIMPLEMENTATION TAHMDBIndexLookup : public Stdctrls::TCustomComboBox 
  33. {
  34.     typedef Stdctrls::TCustomComboBox inherited;
  35.     
  36. private:
  37.     TAHMIndexDataLink* FDataLink;
  38.     bool FUpdate;
  39.     Ahmscontrols::TAHMAboutSControlStr FAboutStr;
  40.     System::AnsiString *FNoIndexItem;
  41.     bool FEnableNoIndex;
  42.     TAHMDBDisplayType FDisplayType;
  43.     Db::TDataSource* __fastcall GetDataSource(void);
  44.     void __fastcall SetDataSource(Db::TDataSource* Value);
  45.     System::AnsiString __fastcall GetIndexFieldName(void);
  46.     void __fastcall SetNoIndexItem(const System::AnsiString Value);
  47.     System::AnsiString __fastcall GetNoIndexItem(void);
  48.     void __fastcall SetEnableNoIndex(bool Value);
  49.     void __fastcall SetDisplayType(TAHMDBDisplayType Value);
  50.     void __fastcall ActiveChanged(void);
  51.     HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
  52.     
  53. protected:
  54.     virtual void __fastcall Loaded(void);
  55.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  56.         );
  57.     void __fastcall FillIndexList(Classes::TStrings* List);
  58.     DYNAMIC void __fastcall Change(void);
  59.     virtual void __fastcall UpdateList(void);
  60.     
  61. public:
  62.     __fastcall virtual TAHMDBIndexLookup(Classes::TComponent* AOwner);
  63.     __fastcall virtual ~TAHMDBIndexLookup(void);
  64.     
  65. __published:
  66.     __property Ahmscontrols::TAHMAboutSControlStr About = {read=FAboutStr, write=FAboutStr};
  67.     __property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource};
  68.     __property System::AnsiString NoIndexItemName = {read=GetNoIndexItem, write=SetNoIndexItem};
  69.     __property bool NoIndexEnabled = {read=FEnableNoIndex, write=SetEnableNoIndex, default=0};
  70.     __property TAHMDBDisplayType DisplayType = {read=FDisplayType, write=SetDisplayType, default=0};
  71.     __property DragCursor ;
  72.     __property DragMode ;
  73.     __property Enabled ;
  74.     __property Color ;
  75.     __property Ctl3D ;
  76.     __property DropDownCount ;
  77.     __property Font ;
  78.     __property ItemHeight ;
  79.     __property ParentCtl3D ;
  80.     __property ParentFont ;
  81.     __property ParentShowHint ;
  82.     __property PopupMenu ;
  83.     __property ShowHint ;
  84.     __property Sorted ;
  85.     __property TabOrder ;
  86.     __property TabStop ;
  87.     __property Visible ;
  88.     __property OnChange ;
  89.     __property OnClick ;
  90.     __property OnDblClick ;
  91.     __property OnDragDrop ;
  92.     __property OnDragOver ;
  93.     __property OnEndDrag ;
  94.     __property OnEnter ;
  95.     __property OnExit ;
  96.     __property OnKeyDown ;
  97.     __property OnKeyPress ;
  98.     __property OnKeyUp ;
  99.     __property OnStartDrag ;
  100. public:
  101.     /* TWinControl.CreateParented */ __fastcall TAHMDBIndexLookup(HWND ParentWindow) : Stdctrls::TCustomComboBox(
  102.         ParentWindow) { }
  103.     
  104. };
  105.  
  106. class PASCALIMPLEMENTATION TAHMIndexDataLink : public Db::TDataLink 
  107. {
  108.     typedef Db::TDataLink inherited;
  109.     
  110. private:
  111.     TAHMDBIndexLookup* FILookup;
  112.     
  113. protected:
  114.     virtual void __fastcall ActiveChanged(void);
  115.     virtual void __fastcall DataSetChanged(void);
  116.     
  117. public:
  118.     __fastcall TAHMIndexDataLink(TAHMDBIndexLookup* ALookup);
  119.     __fastcall virtual ~TAHMIndexDataLink(void);
  120. };
  121.  
  122. //-- var, const, procedure ---------------------------------------------------
  123.  
  124. }    /* namespace Ahmtdbindexlookup */
  125. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  126. using namespace Ahmtdbindexlookup;
  127. #endif
  128. //-- end unit ----------------------------------------------------------------
  129. #endif    // AHMTDBIndexLookup
  130.