home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / CPPAWARE.PAK / DBTEXT.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-05-06  |  2.5 KB  |  68 lines
  1. //--------------------------------------------------------
  2. // DBTEXT.CPP
  3. // Copyrights (C) 1996 Borland International
  4. //--------------------------------------------------------
  5.  
  6. #include <vdbt/dbcontrl.h>
  7. #pragma hdrstop
  8. #include <vdbt/dbtext.h>
  9.  
  10. //--------------------------------------------------------
  11. // TDBText (VB3, subclassed from STATIC)
  12. //--------------------------------------------------------
  13. TDBText::TDBText( TWindow *parent, int id, LPCSTR title
  14.                       , int x, int y, int w, int h, TModule *module )
  15.   : TDBControl( parent, id, "TDBText", 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( OnMouseDown )
  22.   , INIT_SOURCE( OnMouseMove )
  23.   , INIT_SOURCE( OnMouseUp )
  24. {
  25. }
  26.  
  27. TDBText::TDBText( 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( OnMouseDown )
  35.   , INIT_SOURCE( OnMouseMove )
  36.   , INIT_SOURCE( OnMouseUp )
  37. {
  38. }
  39.  
  40.  
  41. //--------------------------------------------------------
  42. // OWL response table.
  43. //--------------------------------------------------------
  44. DEFINE_DB_RESPONSE_TABLE1( TDBText, TDBControl )
  45.   EV_VBXEVENT_CLICK,
  46.   EV_VBXEVENT_DRAGOVER,
  47.   EV_VBXEVENT_DRAGDROP,
  48.   EV_VBXEVENT_ENDDRAG,
  49.   EV_VBXEVENT_DBLCLICK(  Event_TDBText_DblClick ),
  50.   EV_VBXEVENT_MOUSEDOWN( Event_TDBText_MouseDown ),
  51.   EV_VBXEVENT_MOUSEMOVE( Event_TDBText_MouseMove ),
  52.   EV_VBXEVENT_MOUSEUP(   Event_TDBText_MouseUp ),
  53. END_RESPONSE_TABLE;
  54.  
  55.  
  56. //--------------------------------------------------------
  57. // Event Handlers
  58. //--------------------------------------------------------
  59. DEFINE_DB_EVENT( TDBText, OnClick,     TNotifyEvent,   Event_TDBText_Click );
  60. DEFINE_DB_EVENT( TDBText, OnDragDrop,  TDragEvent,     Event_TDBText_DragDrop );
  61. DEFINE_DB_EVENT( TDBText, OnDragOver,  TDragOverEvent, Event_TDBText_DragOver );
  62. DEFINE_DB_EVENT( TDBText, OnEndDrag,   TDragEvent,     Event_TDBText_EndDrag );
  63. DEFINE_DB_EVENT( TDBText, OnDblClick,  TNotifyEvent,   Event_TDBText_DblClick );
  64. DEFINE_DB_EVENT( TDBText, OnMouseDown, TMouseEvent,    Event_TDBText_MouseDown );
  65. DEFINE_DB_EVENT( TDBText, OnMouseMove, TMouseEvent,    Event_TDBText_MouseMove );
  66. DEFINE_DB_EVENT( TDBText, OnMouseUp,   TMouseEvent,    Event_TDBText_MouseUp );
  67.  
  68.