home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / ROLLDIAL.PAK / ROLLDLGX.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-05-06  |  2.2 KB  |  118 lines
  1. //----------------------------------------------------------------------------
  2. // ObjectWindows
  3. // Copyright (c) 1995, 1995 by Borland International, All Rights Reserved
  4. //
  5. // Filename:    RollDlgX.cpp
  6. //
  7. // Date:         8-Jun-95
  8. //
  9. // Description:
  10. //----------------------------------------------------------------------------
  11. #include <owl/pch.h>
  12. #include <owl/applicat.h>
  13. #include <owl/rolldial.h>
  14. #include "RollDlgX.rh"
  15.  
  16. //
  17. // class RollDlgXApplication
  18. // ~~~~~ ~~~~~~~~~~~~~~~~~~
  19. class TRollDlgXApp : public TApplication {
  20.   public:
  21.     TRollDlgXApp()
  22.     :
  23.       TApplication()
  24.     {
  25.     }
  26.  
  27.     void InitMainWindow();
  28. };
  29.  
  30.  
  31. //
  32. // class RollDlgXWindow
  33. // ~~~~~ ~~~~~~~~~~~~~
  34. class TRollDlgXWindow : public TWindow {
  35.   public:
  36.     TRollDlgXWindow()
  37.     :
  38.       TWindow(0, 0, 0)
  39.     {
  40.     }
  41.  
  42.   protected:
  43.     void CmTest1Dialog();
  44.  
  45.   DECLARE_RESPONSE_TABLE(TRollDlgXWindow);
  46. };
  47.  
  48. //
  49. // class TTest1Dialog
  50. // ~~~~~ ~~~~~~~~~~~~
  51. class TTest1Dialog : public TRollDialog {
  52.   public:
  53.     TTest1Dialog(TWindow* parent, TResId resId, bool animated = true,
  54.                  bool fullSize = true, TModule* module = 0)
  55.     :
  56.       TRollDialog(parent, resId, animated, fullSize, module)
  57.     {
  58.     }
  59.  
  60.     void EvLButtonDown(uint modKeys, TPoint& point) {
  61. #if defined(BI_PLAT_WIN32)
  62.       Reposition();
  63. #endif
  64.     }
  65.  
  66.   DECLARE_RESPONSE_TABLE(TTest1Dialog);
  67. };
  68.  
  69. DEFINE_RESPONSE_TABLE1(TTest1Dialog, TRollDialog)
  70.   EV_WM_LBUTTONDOWN,
  71. END_RESPONSE_TABLE;
  72.  
  73.  
  74. //
  75. // Response table for RollDlgXWindow
  76. //
  77. DEFINE_RESPONSE_TABLE1(TRollDlgXWindow, TWindow)
  78.   EV_COMMAND(CM_TEST1DIALOG, CmTest1Dialog),
  79. END_RESPONSE_TABLE;
  80.  
  81.  
  82. //
  83. //
  84. //
  85. void
  86. TRollDlgXWindow::CmTest1Dialog()
  87. {
  88.   TTest1Dialog* dialog = new TTest1Dialog(this, IDD_TEST1);
  89.   dialog->SetFlag(wfDeleteOnClose);
  90.   dialog->Create();
  91.   dialog->Show(SW_SHOWNORMAL);
  92. }
  93.  
  94.  
  95. //
  96. // InitMainWindow
  97. //
  98. void
  99. TRollDlgXApp::InitMainWindow()
  100. {
  101.   TFrameWindow* frame = new TFrameWindow(0, "RollDlgX application",
  102.     new TRollDlgXWindow);
  103.   frame->AssignMenu(IDM_MAINMENU);
  104.   SetMainWindow(frame);
  105. }
  106.  
  107.  
  108. //
  109. // OwlMain
  110. //
  111. int
  112. OwlMain(int /*argc*/, char* /*argv*/ [])
  113. {
  114.   TRollDlgXApp app;
  115.   return app.Run();
  116. }
  117.  
  118.