home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / CPPAWARE.PAK / DBLKUPLB.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-05-06  |  3.0 KB  |  76 lines
  1. //--------------------------------------------------------
  2. // DBLKUPLB.CPP
  3. // Copyright (C) 1996 Borland International
  4. //--------------------------------------------------------
  5.  
  6. #include <vdbt/dbcontrl.h>
  7. #pragma hdrstop
  8. #include <vdbt/dblkuplb.h>
  9.  
  10. //--------------------------------------------------------
  11. // TDBLookupList (VB3, subclassed from LISTBOX)
  12. //--------------------------------------------------------
  13. TDBLookupList::TDBLookupList( TWindow *parent, int id, LPCSTR title
  14.                       , int x, int y, int w, int h, TModule *module )
  15.   : TDBControl( parent, id, "TDBLookupList", title, x, y, w, h, module )
  16.   , INIT_SOURCE( OnClick )
  17.   , INIT_SOURCE( OnDragDrop )
  18.   , INIT_SOURCE( OnDragOver )
  19.   , INIT_SOURCE( OnEndDrag )
  20.   , INIT_SOURCE( OnDblClick )
  21.   , INIT_SOURCE( OnEnter )
  22.   , INIT_SOURCE( OnExit )
  23.   , INIT_SOURCE( OnKeyDown )
  24.   , INIT_SOURCE( OnKeyPress )
  25.   , INIT_SOURCE( OnKeyUp )
  26. {
  27. }
  28.  
  29. TDBLookupList::TDBLookupList( TWindow *parent, int resourceId, TModule *module )
  30.   : TDBControl( parent, resourceId, module )
  31.   , INIT_SOURCE( OnClick )
  32.   , INIT_SOURCE( OnDragDrop )
  33.   , INIT_SOURCE( OnDragOver )
  34.   , INIT_SOURCE( OnEndDrag )
  35.   , INIT_SOURCE( OnDblClick )
  36.   , INIT_SOURCE( OnEnter )
  37.   , INIT_SOURCE( OnExit )
  38.   , INIT_SOURCE( OnKeyDown )
  39.   , INIT_SOURCE( OnKeyPress )
  40.   , INIT_SOURCE( OnKeyUp )
  41. {
  42. }
  43.  
  44.  
  45. //--------------------------------------------------------
  46. // OWL response table
  47. //--------------------------------------------------------
  48. DEFINE_DB_RESPONSE_TABLE1( TDBLookupList, TDBControl )
  49.   EV_VBXEVENT_CLICK,
  50.   EV_VBXEVENT_DRAGOVER,
  51.   EV_VBXEVENT_DRAGDROP,
  52.   EV_VBXEVENT_ENDDRAG,
  53.   EV_VBXEVENT_DBLCLICK( Event_TDBLookupList_DblClick ),
  54.   EV_VBXEVENT_KEYDOWN(  Event_TDBLookupList_KeyDown ),
  55.   EV_VBXEVENT_KEYPRESS( Event_TDBLookupList_KeyPress ),
  56.   EV_VBXEVENT_KEYUP(    Event_TDBLookupList_KeyUp ),
  57.   EV_VBXEVENT_ENTER(    Event_TDBLookupList_GotFocus ),
  58.   EV_VBXEVENT_EXIT(     Event_TDBLookupList_LostFocus ),
  59. END_RESPONSE_TABLE;
  60.  
  61.  
  62. //--------------------------------------------------------
  63. // Event Handlers
  64. //--------------------------------------------------------
  65. DEFINE_DB_EVENT( TDBLookupList, OnClick,     TNotifyEvent,   Event_TDBLookupList_Click );
  66. DEFINE_DB_EVENT( TDBLookupList, OnDragDrop,  TDragEvent,     Event_TDBLookupList_DragDrop );
  67. DEFINE_DB_EVENT( TDBLookupList, OnDragOver,  TDragOverEvent, Event_TDBLookupList_DragOver );
  68. DEFINE_DB_EVENT( TDBLookupList, OnEndDrag,   TDragEvent,     Event_TDBLookupList_EndDrag );
  69. DEFINE_DB_EVENT( TDBLookupList, OnDblClick, TNotifyEvent,   Event_TDBLookupList_DblClick );
  70. DEFINE_DB_EVENT( TDBLookupList, OnEnter,    TNotifyEvent,   Event_TDBLookupList_GotFocus );
  71. DEFINE_DB_EVENT( TDBLookupList, OnExit,     TNotifyEvent,   Event_TDBLookupList_LostFocus );
  72. DEFINE_DB_EVENT( TDBLookupList, OnKeyDown,  TKeyEvent,      Event_TDBLookupList_KeyDown );
  73. DEFINE_DB_EVENT( TDBLookupList, OnKeyPress, TKeyPressEvent, Event_TDBLookupList_KeyPress );
  74. DEFINE_DB_EVENT( TDBLookupList, OnKeyUp,    TKeyEvent,      Event_TDBLookupList_KeyUp );
  75.  
  76.