PureBasic Forums - English

Code: Select all

Enumeration
    #Window_0
    #Screen_1
    #Image_0
EndEnumeration
; 
; If InitSprite() = 0
;   MessageRequester("Error", "Can't initilalize OpenGL", 0) : End
; EndIf
; If InitMouse() = 0
;   MessageRequester("Error", "Can't initilalize OpenGL", 0) : End
; EndIf
; If InitKeyboard() = 0
;   MessageRequester("Error", "Can't initilalize OpenGL", 0) : End
; EndIf

#Win_0_Flags= #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget
If OpenWindow(#Window_0, 50, 50, 640,480, #Win_0_flags, "PureBasic Window") = 0
    MessageRequester("Fehler","Konnte Window_0 nicht oeffnen!") : End
EndIf
; If OpenWindowedScreen(WindowID(),0,0,640, 480,1,0,0) = 0
; 
If OpenScreen(640, 480, 32, "") = 0
    MessageRequester("Fehler","Konnte Screen nicht oeffnen!") : End
EndIf
ClearScreen(255,0,0)    
FlipBuffers()

If CreateImage(#Image_0, 640, 400) = 0
    MessageRequester("Fehler","Konnte Image nicht erzeugen") : End
EndIf
StartDrawing(ScreenOutput())    
; StartDrawing(WindowOutput())
; StartDrawing(ImageOutput())
  FrontColor(255,255,255)
  Box(10,10,50,50)
  FlipBuffers()
StopDrawing()

Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow : Quit = 1 : EndIf

    Until Quit = 1

End   ; All the opened windows are closed automatically by PureBasic