home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / CPPAWARE.PAK / DBGRID.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-05-06  |  2.7 KB  |  70 lines
  1. //--------------------------------------------------------
  2. // DBGRID.CPP
  3. // Copyrights (C) 1996 Borland International
  4. //--------------------------------------------------------
  5.  
  6. #include <vdbt/dbgrid.h>
  7.  
  8. //--------------------------------------------------------
  9. // DBGrid (VB3)
  10. //--------------------------------------------------------
  11. TDBGrid::TDBGrid( TWindow *parent, int id, LPCSTR title
  12.                       , int x, int y, int w, int h, TModule *module )
  13.   : TVbxControl(parent, id, "VTSSONLY.VBX", "SSView"
  14.                , title, x, y, w, h, 0, 0, module)
  15.   , INIT_SOURCE( OnClick )
  16.   , INIT_SOURCE( OnDragDrop )
  17.   , INIT_SOURCE( OnDragOver )
  18.   , INIT_SOURCE( OnDblClick )
  19.   , INIT_SOURCE( OnEnter )
  20.   , INIT_SOURCE( OnExit )
  21.   , INIT_SOURCE( OnKeyDown )
  22.   , INIT_SOURCE( OnKeyPress )
  23.   , INIT_SOURCE( OnKeyUp )
  24. {
  25. }
  26.  
  27. TDBGrid::TDBGrid( TWindow *parent, int resourceId, TModule *module )
  28.   : TVbxControl( parent, resourceId, module )
  29.   , INIT_SOURCE( OnClick )
  30.   , INIT_SOURCE( OnDragDrop )
  31.   , INIT_SOURCE( OnDragOver )
  32.   , INIT_SOURCE( OnDblClick )
  33.   , INIT_SOURCE( OnEnter )
  34.   , INIT_SOURCE( OnExit )
  35.   , INIT_SOURCE( OnKeyDown )
  36.   , INIT_SOURCE( OnKeyPress )
  37.   , INIT_SOURCE( OnKeyUp )
  38. {
  39. }
  40.  
  41.  
  42. //--------------------------------------------------------
  43. // OWL response table
  44. //--------------------------------------------------------
  45. DEFINE_DB_RESPONSE_TABLE1( TDBGrid, TVbxControl )
  46.   EV_VBXEVENT_CLICK,
  47.   EV_VBXEVENT_DBLCLICK( Event_TDBGrid_DblClick ),
  48.   EV_VBXEVENT_GRID_DRAGDROP,
  49.   EV_VBXEVENT_GRID_DRAGOVER,
  50.   EV_VBXEVENT_ENTER( Event_TDBGrid_GotFocus ),
  51.   EV_VBXEVENT_KEYDOWN( Event_TDBGrid_KeyDown ),
  52.   EV_VBXEVENT_KEYPRESS( Event_TDBGrid_KeyPress ),
  53.   EV_VBXEVENT_KEYUP( Event_TDBGrid_KeyUp ),
  54.   EV_VBXEVENT_EXIT( Event_TDBGrid_LostFocus ),
  55. END_RESPONSE_TABLE;
  56.  
  57.  
  58. //--------------------------------------------------------
  59. // Event Handlers
  60. //--------------------------------------------------------
  61. DEFINE_DB_EVENT( TDBGrid, OnClick,    TNotifyEvent,    Event_TDBGrid_Click + 4 );
  62. DEFINE_DB_EVENT( TDBGrid, OnDblClick, TNotifyEvent,    Event_TDBGrid_DblClick + 4 );
  63. DEFINE_DB_EVENT( TDBGrid, OnDragOver, TDragOverEvent, Event_TDBGrid_DragOver + 4 );
  64. DEFINE_DB_EVENT( TDBGrid, OnDragDrop, TDragEvent,     Event_TDBGrid_DragDrop + 4 );
  65. DEFINE_DB_EVENT( TDBGrid, OnEnter,    TNotifyEvent,    Event_TDBGrid_GotFocus + 4 );
  66. DEFINE_DB_EVENT( TDBGrid, OnExit,     TNotifyEvent,    Event_TDBGrid_LostFocus + 4 );
  67. DEFINE_DB_EVENT( TDBGrid, OnKeyDown,  TKeyEvent,       Event_TDBGrid_KeyDown + 4 );
  68. DEFINE_DB_EVENT( TDBGrid, OnKeyPress, TKeyPressEvent,  Event_TDBGrid_KeyPress + 4 );
  69. DEFINE_DB_EVENT( TDBGrid, OnKeyUp,    TKeyEvent,       Event_TDBGrid_KeyUp + 4 );
  70.