home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / CPPAWARE.PAK / DBRADIO.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-05-06  |  2.6 KB  |  68 lines
  1. //--------------------------------------------------------
  2. // DBRADIO.CPP
  3. // Copyrights (C) 1996 Borland International
  4. //--------------------------------------------------------
  5.  
  6. #include <vdbt/dbcontrl.h>
  7. #pragma hdrstop
  8. #include <vdbt/dbradio.h>
  9.  
  10. //--------------------------------------------------------
  11. // TDBRadioGroup (VB3)
  12. //--------------------------------------------------------
  13. TDBRadioGroup::TDBRadioGroup( TWindow *parent, int id, LPCSTR title
  14.                       , int x, int y, int w, int h, TModule *module )
  15.   : TDBControl( parent, id, "TDBRadioGroup", 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( OnChange )
  22.   , INIT_SOURCE( OnEnter )
  23.   , INIT_SOURCE( OnExit )
  24. {
  25. }
  26.  
  27. TDBRadioGroup::TDBRadioGroup( 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( OnChange )
  35.   , INIT_SOURCE( OnEnter )
  36.   , INIT_SOURCE( OnExit )
  37. {
  38. }
  39.  
  40.  
  41. //--------------------------------------------------------
  42. // OWL response table
  43. //--------------------------------------------------------
  44. DEFINE_DB_RESPONSE_TABLE1( TDBRadioGroup, TDBControl )
  45.   EV_VBXEVENT_CLICK,
  46.   EV_VBXEVENT_DRAGOVER,
  47.   EV_VBXEVENT_DRAGDROP,
  48.   EV_VBXEVENT_ENDDRAG,
  49.   EV_VBXEVENT_DBLCLICK( Event_TDBRadioGroup_DblClick ),
  50.   EV_VBXEVENT_ENTER(    Event_TDBRadioGroup_GotFocus ),
  51.   EV_VBXEVENT_EXIT(     Event_TDBRadioGroup_LostFocus ),
  52.   EV_VBXEVENT_CHANGE(   Event_TDBRadioGroup_Change ),
  53. END_RESPONSE_TABLE;
  54.  
  55.  
  56. //--------------------------------------------------------
  57. // Event Handlers
  58. //--------------------------------------------------------
  59. DEFINE_DB_EVENT( TDBRadioGroup, OnClick,     TNotifyEvent,   Event_TDBRadioGroup_Click );
  60. DEFINE_DB_EVENT( TDBRadioGroup, OnDragDrop,  TDragEvent,     Event_TDBRadioGroup_DragDrop );
  61. DEFINE_DB_EVENT( TDBRadioGroup, OnDragOver,  TDragOverEvent, Event_TDBRadioGroup_DragOver );
  62. DEFINE_DB_EVENT( TDBRadioGroup, OnEndDrag,   TDragEvent,     Event_TDBRadioGroup_EndDrag );
  63. DEFINE_DB_EVENT( TDBRadioGroup, OnChange,   TNotifyEvent, Event_TDBRadioGroup_Change );
  64. DEFINE_DB_EVENT( TDBRadioGroup, OnDblClick, TNotifyEvent, Event_TDBRadioGroup_DblClick );
  65. DEFINE_DB_EVENT( TDBRadioGroup, OnEnter,    TNotifyEvent, Event_TDBRadioGroup_GotFocus );
  66. DEFINE_DB_EVENT( TDBRadioGroup, OnExit,     TNotifyEvent, Event_TDBRadioGroup_LostFocus );
  67.  
  68.