PureBoard

Code: Alles auswählen

- OpenScreen() now accepts FlipMode, RefreshRate (see quickhelp)
- SetRefreshRate() has been removed
- FlipBuffers() doesn't take an optional parameter anymore
- 2DDrawing library optimized for size

Code: Alles auswählen

If OpenWindow(0, 0, 0, 440, 70, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
   CreateImage (0, 420, 050)
   ImageGadget (0, 010, 010, 420, 050, ImageID(0))
   If StartDrawing(ImageOutput(0))
      Box(0, 0, 420, 050, #Yellow)
      DrawText(20, 10, "Test", #Blue, #Yellow)
      StopDrawing()
   EndIf
   SetGadgetState(0, ImageID(0))
   Repeat: Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf

Code: Alles auswählen

;
; ------------------------------------------------------------
;
;   PureBasic - 2D Drawing example file
;
;    (c) 2005 - Fantaisie Software
;
; ------------------------------------------------------------
;

If OpenWindow(0, 100, 200, 300, 200, "2D Drawing Test")

  ; Create an offscreen image, with a green circle in it.
  ; It will be displayed later
  ;
  If CreateImage(0, 300, 200)
    If StartDrawing(ImageOutput(0))
      Circle(100,100,50,RGB(0,0,255))  ; a nice blue circle...

      Box(150,20,20,20, RGB(0,255,0))  ; and a green box
      
      FrontColor(RGB(255,0,0)) ; Finally, red lines..
      For k=0 To 20
        LineXY(10,10+k*8,200, 0)
      Next
      
      DrawingMode(#PB_2DDrawing_Transparent)
      BackColor(RGB(0,155,155)) ; Change the text back and front colour
      FrontColor(RGB(255,255,255)) 
      DrawText(10,50,"Hello, this is a test")

      StopDrawing()
    EndIf
  EndIf

  ; Create a gadget to display our nice image
  ;  
  ImageGadget(0, 0, 0, 0, 0, ImageID(0))
  
  ;
  ; This is the 'event loop'. All the user actions are processed here.
  ; It's very easy to understand: when an action occurs, the EventID
  ; isn't 0 and we just have to see what have happened...
  ;
  
  Repeat
    EventID = WaitWindowEvent() 
  Until EventID = #PB_Event_CloseWindow  ; If the user has pressed on the window close button
  
EndIf

Code: Alles auswählen

StartDrawing(WindowOutput(#wndSucheingabe))
Line(10,140,430,0)
StopDrawing()