PureBasic Forums - English

Code: Select all

#windowwidth = 800
#windowheight = 600

OpenWindow(0,0,0,#windowwidth,#windowheight,"Container Window", #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_ScreenCentered | #PB_Window_Invisible) 
   hDBWnd=OpenDBWnd(0,0, 800, 600,32,#GDK_Window_BorderLess ,WindowID(0)) 

;CreateGadgetList (WindowID (0))
If CreateMenu(0, (WindowID (0)))
          MenuTitle("Project")
          MenuItem(0, "New")
          MenuItem(1, "Quit")
          MenuTitle("Objects")
          MenuItem(2,"Load...")
          MenuTitle("Sky")
          MenuItem(3,"Load SkyBox...")
          MenuItem(4,"Load SkyDome...")
          MenuTitle("Lights")
          MenuItem(5,"Change Ambient Light...")
          MenuTitle("Textures")
          MenuItem(6,"Load Texture...")
          MenuTitle("Particle")
          MenuItem(7,"New Particles...")
          MenuTitle("About")
          MenuItem(8, "About...")
EndIf

; Unhide PureBasic window container 
HideWindow(0,0) 

; Don't lose focus to the new DarkBasic window 
SetForegroundWindow_(WindowID(0)) 

; Do something cool 
dbMakeObjectCube(1,3) 
dbScaleObject(1,35,35,35) 
dbPositionObject(1,-1.65,1.3,0) 

Repeat

   Delay(1)
   x.f+0.1: y.f+0.3: z.f+0.4 
   dbRotateObject(1,x.f,y.f,z.f) 
      
    EventID = WindowEvent()
            
    If EventID = #PB_Event_Menu  ; ToolBar are acting as menu
      
    
      Select EventMenu()
                      
        Case 1  ; Quit                  
          End
        Case 2
          StandardFile$ = "C:\"   ; anfänglichen Pfad + Dateiname festlegen
          ; Mit dem nächsten String werden die Pattern (mit "|" als Trennzeichen) für anzuzeigende
          ; Dateitypen festgelegt:
          ; Erster:  "Text (*.txt)" als Name, ".txt" und ".bat" als erlaubte Dateiendungen
          ; Zweiter: "PureBasic (*.pb)" als Name, ".pb" al erlaubte Dateiendung
          ; Dritter: "Alle Dateien (*.*) als Name, "*.*" als erlaubte Dateiendung, gültig für alle Dateien
           Pattern$ = "B3D (*.b3d)|*.b3d|X (*.x)|*.x|3DS (*.3ds)"  
           Pattern = 0    ; wir verwenden den ersten von drei möglichen Pattern als Standard
           file$ = OpenFileRequester("Bitte Datei zum Laden auswählen", StandardFile$, Pattern$, Pattern)
           index = SelectedFilePattern()
            If file$
              ;entity=bbLoadAnimMesh (file$)
              ;bbMoveEntity (entity, 0, 0, 100)
            Else
              MessageRequester("Information", "Der Requester wurde abgebrochen.", 0) 
            EndIf                     
      EndSelect
        
    EndIf
    
    dbSync()
    
    Until EventID = #PB_Event_CloseWindow ; If the user has pressed on the close button  ;WindowEvent()=#WM_CLOSE
    
End

Code: Select all

0.4.4b - Feb. 24, 2008 Changelog:

    * Fixed a bug which caused Sync() to swallow PureBasic calls to create requester windows (message, file, etc.) from a file menu when compiling without the debugger.

Code: Select all

#windowwidth = 800 
#windowheight = 600 

OpenWindow(0,0,0,#screenwidth,#screenheight,"Container Window", #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_ScreenCentered | #PB_Window_Invisible) 
   hDBWnd=OpenDBWnd(0,0,800, 600,32,#GDK_Window_BorderLess ,WindowID(0))

Code: Select all

0.4.5b - Feb. 25, 2008 Changelog:

    * Fixed a bug which caused dbSetDisplayMode() to lock up the application and also fail to change its dimensions if the DarkBasic render window was the child of another window.
    * Fixed a bug which caused dbSetWindowSize() to reset the DarkBasic render window's window style.
    * Fixed a bug which caused dbOpenDBWnd() to fail to recognize its InnerWidth, InnerHeight, and Depth parameters if they were not passed as literal numbers.