home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / CPPAWARE.PAK / DBNVGTR.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-05-06  |  2.9 KB  |  80 lines
  1. //--------------------------------------------------------
  2. // DBNVGTR.CPP
  3. // Copyright (C) 1996 Borland International
  4. //--------------------------------------------------------
  5.  
  6. #include <vdbt/dbcontrl.h>
  7. #pragma hdrstop
  8. #include <vdbt/dbnvgtr.h>
  9.  
  10. //--------------------------------------------------------
  11. // TDBNavigator (VB3)
  12. //--------------------------------------------------------
  13. TDBNavigator::TDBNavigator( TWindow *parent, int id, LPCSTR title
  14.                       , int x, int y, int w, int h, TModule *module )
  15.   : TDBControl( parent, id, "TDBNavigator", 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( OnReSize )
  24. {
  25. }
  26.  
  27. TDBNavigator::TDBNavigator( TWindow *parent, int resourceId, TModule *module )
  28.   : TDBControl( parent, resourceId, module )
  29.   , INIT_SOURCE( OnClick )
  30.   , INIT_SOURCE( OnDragDrop )
  31.   , INIT_SOURCE( OnDragOver )
  32.   , INIT_SOURCE( OnEndDrag )
  33.   , INIT_SOURCE( OnDblClick )
  34.   , INIT_SOURCE( OnEnter )
  35.   , INIT_SOURCE( OnExit )
  36.   , INIT_SOURCE( OnReSize )
  37. {
  38. }
  39.  
  40.  
  41. //--------------------------------------------------------
  42. // OWL response table
  43. //--------------------------------------------------------
  44. DEFINE_DB_RESPONSE_TABLE1( TDBNavigator, TDBControl )
  45.   EV_VBXEVENT_NAVCLICK,
  46.   EV_VBXEVENT_DRAGOVER,
  47.   EV_VBXEVENT_DRAGDROP,
  48.   EV_VBXEVENT_ENDDRAG,
  49.   EV_VBXEVENT_DBLCLICK( Event_TDBNavigator_DblClick ),
  50.   EV_VBXEVENT_ENTER(    Event_TDBNavigator_GotFocus ),
  51.   EV_VBXEVENT_EXIT(     Event_TDBNavigator_LostFocus ),
  52.   EV_VBXEVENT_NAVRESIZE,
  53.   EV_VBXEVENT_NAVCLICK,
  54. END_RESPONSE_TABLE;
  55.  
  56.  
  57. //--------------------------------------------------------
  58. // Event Handlers
  59. //--------------------------------------------------------
  60. DEFINE_DB_EVENT( TDBNavigator, OnClick,    TNavClick,      Event_TDBNavigator_ReSize + 1 );
  61. DEFINE_DB_EVENT( TDBNavigator, OnDragDrop, TDragEvent,     Event_TDBNavigator_DragDrop );
  62. DEFINE_DB_EVENT( TDBNavigator, OnDragOver, TDragOverEvent, Event_TDBNavigator_DragOver );
  63. DEFINE_DB_EVENT( TDBNavigator, OnEndDrag,  TDragEvent,     Event_TDBNavigator_EndDrag );
  64. DEFINE_DB_EVENT( TDBNavigator, OnDblClick, TNotifyEvent,   Event_TDBNavigator_DblClick );
  65. DEFINE_DB_EVENT( TDBNavigator, OnEnter,    TNotifyEvent,   Event_TDBNavigator_GotFocus );
  66. DEFINE_DB_EVENT( TDBNavigator, OnExit,     TNotifyEvent,   Event_TDBNavigator_LostFocus );
  67. DEFINE_DB_EVENT( TDBNavigator, OnReSize,   TNotifyEvent,   Event_TDBNavigator_ReSize );
  68.  
  69.  
  70. //--------------------------------------------------------
  71. // Dispatchaers
  72. //--------------------------------------------------------
  73. int32 _OWLFUNC
  74. NavClick_Dispatch(GENERIC& gnrc, void (GENERIC::*pmf)(TNavigateBtn), uint, int32)
  75. {
  76.   (gnrc.*pmf)( ((TDBNavigator&)gnrc).ClickButton );
  77.   return 0;
  78. }
  79.  
  80.