home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / MCIWND.PAK / MCIWNDX.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-05-06  |  955 b   |  41 lines
  1. //----------------------------------------------------------------------------
  2. // ObjectWindows
  3. // Copyright (c) 1995, 1996 by Borland International, All Rights Reserved
  4. //
  5. // Illustrates usage of TMciWnd class
  6. //----------------------------------------------------------------------------
  7. #include <owl/pch.h>
  8. #include <owl/applicat.h>
  9. #include <owl/framewin.h>
  10. #include "mciwnd.h"
  11. #include "mciwndx.h"
  12.  
  13. //
  14. const int ID_MCIWND = 0x100;
  15.  
  16. //
  17. // Class TSampleApp
  18. // ~~~~~ ~~~~~~~~~~
  19. class TSampleApp : public TApplication {
  20.   public:
  21.     void    InitMainWindow();
  22. };
  23.  
  24. //
  25. //
  26. //
  27. void
  28. TSampleApp::InitMainWindow()
  29. {
  30.   SetMainWindow(new TFrameWindow(0, "Sample MCIWND using OWL", 
  31.                                  new TMciWnd(0, ID_MCIWND, 0, 0, 0, 0, 0),
  32.                                  true));
  33.   GetMainWindow()->AssignMenu(IDM_APPMENU);
  34. }
  35.  
  36. int
  37. OwlMain(int /*argc*/, char* /*argv*/[])
  38. {
  39.   return TSampleApp().Run();
  40. }
  41.