home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / CPPAWARE.PAK / DBIMAGE.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-05-06  |  3.4 KB  |  88 lines
  1. //--------------------------------------------------------
  2. // DBIMAGE.CPP
  3. // Copyrights (C) 1996 Borland International
  4. //--------------------------------------------------------
  5.  
  6. #include <vdbt/dbcontrl.h>
  7. #pragma hdrstop
  8. #include <vdbt/dbimage.h>
  9.  
  10. //--------------------------------------------------------
  11. // TDBImage (VB3)
  12. //--------------------------------------------------------
  13. TDBImage::TDBImage( TWindow *parent, int id, LPCSTR title
  14.                       , int x, int y, int w, int h, TModule *module )
  15.   : TDBControl( parent, id, "TDBImage", 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.   , INIT_SOURCE( OnMouseDown )
  27.   , INIT_SOURCE( OnMouseMove )
  28.   , INIT_SOURCE( OnMouseUp )
  29. {
  30. }
  31.  
  32. TDBImage::TDBImage( TWindow *parent, int resourceId, TModule *module )
  33.   : TDBControl( parent, resourceId, module )
  34.   , INIT_SOURCE( OnClick )
  35.   , INIT_SOURCE( OnDragDrop )
  36.   , INIT_SOURCE( OnDragOver )
  37.   , INIT_SOURCE( OnEndDrag )
  38.   , INIT_SOURCE( OnDblClick )
  39.   , INIT_SOURCE( OnEnter )
  40.   , INIT_SOURCE( OnExit )
  41.   , INIT_SOURCE( OnKeyDown )
  42.   , INIT_SOURCE( OnKeyPress )
  43.   , INIT_SOURCE( OnKeyUp )
  44.   , INIT_SOURCE( OnMouseDown )
  45.   , INIT_SOURCE( OnMouseMove )
  46.   , INIT_SOURCE( OnMouseUp )
  47. {
  48. }
  49.  
  50.  
  51. //--------------------------------------------------------
  52. // OWL response table
  53. //--------------------------------------------------------
  54. DEFINE_DB_RESPONSE_TABLE1( TDBImage, TDBControl )
  55.   EV_VBXEVENT_CLICK,
  56.   EV_VBXEVENT_DRAGOVER,
  57.   EV_VBXEVENT_DRAGDROP,
  58.   EV_VBXEVENT_ENDDRAG,
  59.   EV_VBXEVENT_DBLCLICK(  Event_TDBImage_DblClick ),
  60.   EV_VBXEVENT_KEYDOWN(   Event_TDBImage_KeyDown ),
  61.   EV_VBXEVENT_KEYPRESS(  Event_TDBImage_KeyPress ),
  62.   EV_VBXEVENT_KEYUP(     Event_TDBImage_KeyUp ),
  63.   EV_VBXEVENT_ENTER(     Event_TDBImage_GotFocus ),
  64.   EV_VBXEVENT_EXIT(      Event_TDBImage_LostFocus ),
  65.   EV_VBXEVENT_MOUSEDOWN( Event_TDBImage_MouseDown ),
  66.   EV_VBXEVENT_MOUSEMOVE( Event_TDBImage_MouseMove ),
  67.   EV_VBXEVENT_MOUSEUP(   Event_TDBImage_MouseUp ),
  68. END_RESPONSE_TABLE;
  69.  
  70.  
  71. //--------------------------------------------------------
  72. // Events
  73. //--------------------------------------------------------
  74. DEFINE_DB_EVENT( TDBImage, OnClick,     TNotifyEvent,   Event_TDBImage_Click );
  75. DEFINE_DB_EVENT( TDBImage, OnDragDrop,  TDragEvent,     Event_TDBImage_DragDrop );
  76. DEFINE_DB_EVENT( TDBImage, OnDragOver,  TDragOverEvent, Event_TDBImage_DragOver );
  77. DEFINE_DB_EVENT( TDBImage, OnEndDrag,   TDragEvent,     Event_TDBImage_EndDrag );
  78. DEFINE_DB_EVENT( TDBImage, OnDblClick,  TNotifyEvent,   Event_TDBImage_DblClick );
  79. DEFINE_DB_EVENT( TDBImage, OnEnter,     TNotifyEvent,   Event_TDBImage_GotFocus );
  80. DEFINE_DB_EVENT( TDBImage, OnExit,      TNotifyEvent,   Event_TDBImage_LostFocus );
  81. DEFINE_DB_EVENT( TDBImage, OnKeyDown,   TKeyEvent,      Event_TDBImage_KeyDown );
  82. DEFINE_DB_EVENT( TDBImage, OnKeyPress,  TKeyPressEvent, Event_TDBImage_KeyPress );
  83. DEFINE_DB_EVENT( TDBImage, OnKeyUp,     TKeyEvent,      Event_TDBImage_KeyUp );
  84. DEFINE_DB_EVENT( TDBImage, OnMouseDown, TMouseEvent,    Event_TDBImage_MouseDown );
  85. DEFINE_DB_EVENT( TDBImage, OnMouseMove, TMouseEvent,    Event_TDBImage_MouseMove );
  86. DEFINE_DB_EVENT( TDBImage, OnMouseUp,   TMouseEvent,    Event_TDBImage_MouseUp );
  87.  
  88.