PureBoard

Code: Alles auswählen

OpenWindow(0,#PB_Ignore,#PB_Ignore,300,300,"Ausgabe zur Hilfe")
OpenHelp("MVCOM.chm","ComOpen.html")
Repeat 
; event=WaitWindowEvent() ; hier mein Fehler weil ich diese Zeile zuviel ausgeklammert habe!!
;  Select event   
;    Case #PB_Event_CloseWindow    ; prüft ob das Schließfelt geschlossen 
;      CloseHelp()
;  EndSelect
Until event=#PB_Event_CloseWindow ; Programmende

Code: Alles auswählen

If OpenWindow(0, #PB_Ignore, 0, 200, 200, "")
  OpenHelp(#PB_Compiler_Home + "purebasic.chm", "")
  
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Code: Alles auswählen

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

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

  ; Create an offscreen image, with a green circle in it.
  ; It will be displayed later
  ;
  AddKeyboardShortcut(0,#PB_Shortcut_F1,1)
  
  If CreateImage(1, 100, 100)
    If StartDrawing(ImageOutput(1))
      FrontColor(RGB(128,0,128)) ; Purple..
      Circle(50, 50, 10)
      Box(0,20,20,20, RGB(210,210,210))  ; and a green box
      Box(80,20,20,20, RGB(210,210,210))
      StopDrawing()
    EndIf
  EndIf
  
  ;
  ; 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

    ;Repeat
      EventID.l = WaitWindowEvent()
    ;Until EventID <> 0

    If EventID = #PB_Event_Repaint   ; If the user has resized the window or anything, we will repaint our graphic
      Gosub SomeGraphics
    EndIf
    If  EventID = #PB_Event_Menu
      If  EventMenu() =1 
        OpenHelp("..\..\PureBasic.chm","")
      EndIf 
    EndIf 
 
  Until EventID = #PB_Event_CloseWindow  ; If the user has pressed on the close button
  
EndIf

End   ; All the opened windows are closed automatically by PureBasic


;
; Some 2D graphics functions...
;

SomeGraphics:
  StartDrawing(WindowOutput(0))
  
  Circle(50,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
  
;   Locate(10, 10)
  BackColor(RGB(0,155,155)) ; Change the text back and front colour
  FrontColor(RGB(0,0,0)) 
  ;DrawText("Hello, this is a test")

  DrawingMode(1)
;  Locate(10, 50)
  DrawText(10,10,"Hello, this is a second test")
  
  DrawImage(ImageID(1), 100, 100) ; Display our image !

  StopDrawing() ; This is absolutely needed when the drawing operations are finished !!! Never forget it !

Return