PureBasic Forums - English

Code: Select all

  If InitSprite() = 0
    MessageRequester("Error", "Can't open screen & sprite environment!", 0)
    End
  EndIf
  
  If InitMovie() = 0
    MessageRequester("Error", "Can't initialize movie playback !", 0) 
    End
  EndIf

  If OpenWindow(0, 0, 0, 260, 200, "A screen and video in a window...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ButtonGadget(0, 195, 160, 50, 20, "load")

    If OpenWindowedScreen(WindowID(0), 20, 20, 160, 160)
      CreateSprite(0, 20, 20)
      If StartDrawing(SpriteOutput(0))
        Box(0, 0, 20, 20, RGB(255, 0, 155))
        Box(5, 5, 10, 10, RGB(155, 0, 255))
        StopDrawing()
      EndIf
    Else
      MessageRequester("Error", "Can't open windowed screen!", 0)
      End
    EndIf
  EndIf
  
  direction = 2
  Repeat
    ;
    ;
    Repeat
      Event = WindowEvent()
      
      Select Event 
        Case #PB_Event_Gadget
          If EventGadget() = 0
            MovieName$ = OpenFileRequester("Choose the movie to play", "", "All files movie|*.*", 0)
            If MovieName$
              If LoadMovie(0, MovieName$)
                ResizeMovie(0, 0, 0, 200, 150)
                PlayMovie(0, ScreenID())
              Else
                MessageRequester("Error", "Can't load the movie...", 0)
              EndIf
            EndIf 
          EndIf
        Case #PB_Event_CloseWindow
          End 
      EndSelect
    Until Event = 0
  
    FlipBuffers() 
    ClearScreen(RGB(0, 0, 0))
    DisplaySprite(0, x, x)
    x + direction
    If x > 140 : direction = -2 : EndIf
    If x < 0   : direction =  2 : EndIf
    Delay(10)
  ForEver

Code: Select all

If InitSprite() = 0
    MessageRequester("Error", "Can't open screen & sprite environment!", 0)
    End
  EndIf
  
  If InitMovie() = 0
    MessageRequester("Error", "Can't initialize movie playback !", 0) 
    End
  EndIf
  
  If OpenWindow(0, 0, 0, 260, 200, "A screen and video in a window...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ButtonGadget(0, 195, 160, 50, 20, "load")
    StartDrawing(WindowOutput(0))
    Box (20,20,160,160, #Black) ; Draws a background
    StopDrawing()
  EndIf
  
  Repeat
    ;
    ;
    Repeat
      Event = WindowEvent()
      
      Select Event 
        Case #PB_Event_Gadget
          If EventGadget() = 0
            MovieName$ = OpenFileRequester("Choose the movie to play", "", "All files movie|*.*", 0)
            If MovieName$
              If LoadMovie(0, MovieName$)
                ResizeMovie(0, 20, 20, 160, 160)
                PlayMovie(0, WindowID(0))
              Else
                MessageRequester("Error", "Can't load the movie...", 0)
              EndIf
            EndIf 
          EndIf
        Case #PB_Event_CloseWindow
          End 
      EndSelect
    Until Event = 0
  
  ForEver