PureBoard

Code: Alles auswählen

InitSprite()
OpenWindow(0,0,0,200,300,#PB_Window_SystemMenu,"Servus")
OpenWindowedScreen(WindowID(0),0,0,200,150,0,0,0)
Repeat:Until WaitWindowEvent()= #PB_Event_CloseWindow ; Dies Schleife wartet solange, bis du das Fenster schliesst.
End 

Code: Alles auswählen

InitSprite() ;das brauchst für den screen!!!

OpenWindow(0,0,0,200,300,#PB_Window_Systemmenu | #PB_Window_ScreenCentered,"Servus")

  If InitSprite()
    If OpenWindowedScreen(WindowID(0),0,0,200,300,0,0,0)
   

      Debug "geht!"

    EndIf
  EndIf

Delay(5000)
End

Code: Alles auswählen

InitSprite() ;das brauchst für den screen!!!

OpenWindow(0,0,0,200,300,#PB_Window_Systemmenu | #PB_Window_ScreenCentered,"Servus")

  If InitSprite()
    If OpenWindowedScreen(WindowID(0),0,0,200,300,0,0,0)
    ;Debug "geht!"
    


     Repeat 
      EventID = WindowEvent() 
        
        If EventID = #PB_Event_CloseWindow  ; If the user has pressed on the close button 
          Quit = 1 
        EndIf 
        
        FlipBuffers()
        ClearScreen(0,0,0)
        StartDrawing(ScreenOutput())
        Locate(2,2)      ;
        DrawingMode(1)
        FrontColor(255,255,0)
        DrawText("TEst")
        StopDrawing()
     Until Quit=1 
    EndIf
  EndIf

;Delay(5000)
End 

Code: Alles auswählen

OpenWindow(0,0,0,200,300,#PB_Window_Systemmenu | #PB_Window_ScreenCentered,"Servus")

  If InitSprite()
    If OpenWindowedScreen(WindowID(0),0,0,200,300,0,0,0)
    ;Debug "geht!"
   


     Repeat
      EventID = WindowEvent()
       
        If EventID = #PB_Event_CloseWindow  ; If the user has pressed on the close button
          Quit = 1
        EndIf
       
        FlipBuffers()
        ClearScreen(0,0,0)
        StartDrawing(ScreenOutput())
        
      For a=1 To 4
        Locate(Random(200),Random(300))      ;
        DrawingMode(1)
        FrontColor(Random(255),Random(255),Random(255))
        DrawText("TEST")
      Next

                    
        StopDrawing()
      Delay(25)
     Until Quit=1
    EndIf
  EndIf

;Delay(5000)

End