home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ool.zip / OOL / samples / sample3 / sample3.cpp < prev    next >
Text File  |  1997-04-03  |  7KB  |  237 lines
  1. #include "sample3.h"
  2.  
  3. #include XColor_i
  4. #include XFont_i
  5. #include XToolBar_i
  6. #include XBubbleHelp_i
  7. #include XFileDialog_i
  8. #include XString_i
  9. #include XControlEvent_i
  10. #include XException_i
  11. #include XMessageBox_i
  12.  
  13. #include <stdlib.h>
  14.  
  15. SHORT volume = 50;
  16. MyApp * app;
  17.  
  18. //this sample support bubble-help done like in sample2
  19. class MyBubble: public XBubbleHelp
  20. {
  21.    public:
  22.       MyBubble( XResource * r, XWindow*w);
  23.       BOOL SetMsgText( ULONG windowID );
  24. };
  25.  
  26.  
  27. MyBubble :: MyBubble( XResource * r, XWindow*w): XBubbleHelp(r, w) 
  28. { 
  29.    XFont * font = new XFont(GetGraphicDevice(), "Tms Rmn", 9);
  30.     GetTextObject()->SetFont( font );    
  31. }
  32.  
  33.  
  34. //set the text for the controls
  35. BOOL MyBubble :: SetMsgText( ULONG windowID )
  36. {
  37.    switch( windowID)
  38.       {
  39.          case IDM_PLAY:
  40.             SetText( "Play a loaded file");
  41.             break;
  42.          case IDM_HALT:
  43.             SetText("Stop playing a file");
  44.             break;
  45.          case IDM_BACK:
  46.             SetText("Seek to the beginning of the file");
  47.             break;
  48.          case IDM_PLUS:
  49.             SetText("more volume");
  50.             break;
  51.          case IDM_MIN:
  52.             SetText( "less volume");
  53.             break;
  54.          case IDM_SEL:
  55.             SetText( "load a file");
  56.             break;
  57.          default:
  58.             return FALSE;
  59.       }
  60.    return TRUE;
  61. }
  62.  
  63.  
  64. MyAppWindow :: MyAppWindow( XApplication * app, XResource * r ): XFrameWindow( r, "Sample3 - Videoplayer", XFrameWindow::defaultDialogStyle | FRM_TASKLIST | FRM_ICON)
  65. {
  66.    //we create a toolbar for the buttons at the top...
  67.    XToolBar * toolBar = new XToolBar( this, TB_TOP);
  68.  
  69.    //now create pushbuttons with bitmaps, the bitmaps are in the resources of the exe
  70.    XRect rec( 0, 0, 20, 20);
  71.  
  72.    back = new XPushButton( toolBar, &rec, (USHORT) IDM_BACK, BU_BITMAP);
  73.    play = new XPushButton( toolBar, &rec, (USHORT) IDM_PLAY, BU_BITMAP);
  74.    halt = new XPushButton( toolBar, &rec, (USHORT) IDM_HALT, BU_BITMAP);
  75.    mini = new XPushButton( toolBar, &rec, (USHORT) IDM_MIN, BU_BITMAP);
  76.    plus = new XPushButton( toolBar, &rec, (USHORT) IDM_PLUS, BU_BITMAP);
  77.    sel = new XPushButton( toolBar, &rec, (USHORT) IDM_SEL, BU_BITMAP);
  78.  
  79.    //disable buttons
  80.    play->Enable(FALSE);
  81.    halt->Enable(FALSE);
  82.    back->Enable(FALSE);
  83.  
  84.    //add the pushbuttons to the toolbar, the toolbar will use the size of the first button
  85.    toolBar->AddWindow( play , FALSE, TRUE);
  86.    toolBar->AddWindow( halt );
  87.    toolBar->AddWindow( back );
  88.    toolBar->AddWindow( plus, TRUE );
  89.    toolBar->AddWindow( mini );
  90.    toolBar->AddWindow( sel, TRUE );
  91.  
  92.    // set the size of the window and display it
  93.    XColor col( COL_BLACK);
  94.    SetBackgroundColor( &col);
  95.  
  96.    XRect rect( 150, 150, 280, 230);
  97.    SetSize(&rect);
  98.  
  99.    Show();
  100.  
  101.    // know we generate a videoplayer and open it
  102.    video = new XVideo ( this); //this is the needed REIHENFOLGE
  103.    if( video->OpenDevice() != 0)
  104.       XMessageBox( "cannot open video-device");
  105.  
  106.    // if you don∩t set the viewport like this, the default ULTIMOTION-window
  107.    // will be opened, but our window will receive the media-control messages
  108.    // (see below function DoControl() )
  109.    if( video->SetViewPort( this) != 0)
  110.       XMessageBox( "cannot set viewport");
  111.  
  112.    //create the bubblehelp
  113.    XResource resource(0, r->GetResourceLibrary());
  114.    MyBubble * bubble = new MyBubble( &resource, toolBar);
  115.  
  116.    Activate();
  117. }
  118.  
  119.  
  120. BOOL MyAppWindow :: QueryForClose( void )
  121. {
  122.    /* we MUST close the video and destroy it ourselves */
  123.    video->CloseDevice();
  124.    delete video;
  125.    return TRUE;
  126. }
  127.  
  128.  
  129. void MyAppWindow :: Draw( void )
  130. {
  131.    FillBackground( );
  132. }
  133.  
  134.  
  135. /* here the command of the toolbar are posted */
  136. BOOL MyAppWindow :: DoCommand( LONG com)
  137. {
  138.   switch(com)
  139.      {
  140.          case IDM_SEL:
  141.             {
  142.                XFileDialog dlg( this, "c:\\mmos2\\movies\\*.AVI");
  143.                if( dlg.GetCommand() == DID_OK)
  144.                   {
  145.                      XString s;
  146.                      dlg.GetFileName( &s );
  147.                      if( video->SetDataFile( (char*) s ) != 0)
  148.                               XMessageBox( "cannot load video file");
  149.                      play->Enable();
  150.                   }
  151.             }
  152.             return TRUE;
  153.          case IDM_PLAY:
  154.             Activate();
  155.             back->Enable();
  156.             halt->Enable();
  157.             play->Enable(FALSE);
  158.             if( video->Play() != 0)
  159.                XMessageBox( "cannot play video-device");
  160.             return TRUE;
  161.          case IDM_BACK:
  162.             video->Rewind();
  163.             return TRUE;
  164.          case IDM_HALT:
  165.             video->Pause();
  166.             return TRUE;
  167.          case IDM_PLUS:
  168.             if( volume < 100)
  169.                {
  170.                   volume += 10;
  171.                   if( video->SetVolume( volume ) != 0)
  172.                      XMessageBox( "cannot set volume");
  173.                }
  174.             if(volume == 100)
  175.                plus->Enable(FALSE);
  176.             if(volume == 10)
  177.                mini->Enable();
  178.             return TRUE;
  179.          case IDM_MIN:
  180.             if( volume > 0)
  181.                {
  182.                   volume -= 10;
  183.                   video->SetVolume( volume );
  184.                }
  185.             if(volume == 0)
  186.                mini->Enable(FALSE);
  187.             if(volume == 90)
  188.                plus->Enable();
  189.             return TRUE;
  190.      }
  191.    return FALSE;
  192. }
  193.  
  194.  
  195. void MyAppWindow :: DoControl( XControlEvent * event)
  196. {
  197.    //here the control-messages are posted, we only care about media-messages */
  198.    switch( event->GetEventID())
  199.       {
  200.          case MEDIA_PLAYED: //end of file reached
  201.             play->Enable(FALSE);
  202.             halt->Enable(FALSE);
  203.             return;
  204.          case MEDIA_PAUSED: //video stopped
  205.             halt->Enable(FALSE);
  206.             play->Enable();
  207.             return;
  208.          case MEDIA_REWINDED: //file has been seeked to start
  209.             halt->Enable(FALSE);
  210.             back->Enable(FALSE);
  211.             play->Enable();
  212.             return;
  213.       }
  214. }
  215.  
  216.  
  217. MyApp :: MyApp(): XApplication()
  218. {
  219.    XResource r( IDM_MAIN, GetResourceLibrary());
  220.    window = new MyAppWindow( this, &r );   //create new framewindow (see above)
  221. }
  222.  
  223. void main ( void)
  224. {
  225.    try
  226.    {
  227.       app = new MyApp();  //create a new application
  228.    }
  229.    catch( XException e)
  230.    {
  231.       XMessageBox( e.GetErrorMessage());
  232.       exit(-1);
  233.    }
  234.  
  235.    app->Start();               //let the application work
  236. }
  237.