PureBoard

Code: Alles auswählen

;- Konstanten
Enumeration ; Window ID
  #Window
EndEnumeration

Enumeration ; Menu ID
  #Menu
EndEnumeration

Enumeration ; MenuItem ID
  #Menu_Exit
EndEnumeration

Enumeration ; Statusbar ID
  #Statusbar
EndEnumeration

Enumeration ; Gadget ID
  
EndEnumeration

; ***************************************************************************************

;- Globale Variablen
Global exit = 0

;- Fenster
style = #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget
If OpenWindow(#Window, #PB_Ignore, #PB_Ignore, 600, 400, "Fenster", style)
  ; Menu
  If CreateMenu(#Menu, WindowID(#Window))
    MenuTitle("&Datei")
      MenuItem(#Menu_Exit, "Be&enden")
  EndIf
  ; Statusbar
  CreateStatusBar(#Statusbar, WindowID(#Window))
  ; Gadgets
  If CreateGadgetList(WindowID(#Window))
  
  EndIf
  
  ; Test
  
  rect.rect
  With rect
    \left = 20
    \top = 60
    \right = \left + 200
    \bottom = 200
  EndWith
  
  text.s = "Hallo Welt 1" + #CRLF$ + "----------"
  hdc = StartDrawing(WindowOutput(#Window))
  DrawText_(hdc,text, Len(text), rect, #DT_CENTER)

  rect.rect
  With rect
    \left = 300
    \top = 60
    \right = \left + 200
    \bottom = 200
  EndWith
  text.s = "Hallo Welt 2" + #CRLF$ + "----------"
  hdc = GetDC_(WindowID(#Window))
  DrawText_(hdc,text, Len(text), rect, #DT_CENTER)

  
  
  
  ;-- Hauptschleife
  Repeat
    event   = WaitWindowEvent()
    window  = EventWindow()
    menu    = EventMenu()
    type    = EventType()
    Select event
      Case #PB_Event_Menu                       ; ein Menü wurde ausgewählt
        Select menu
          Case #Menu_Exit
            Exit = 1
        EndSelect
      Case #PB_Event_Gadget                     ; ein Gadget wurde gedrückt
      Case #PB_Event_CloseWindow                ; das Schließgadget vom Fenster wurde gedrückt
        Exit = 1
      Case #PB_Event_Repaint                    ; der Fensterinhalt wurde zerstört und muss neu gezeichnet werden (nützlich für 2D Grafik-Operationen) 
      Case #PB_Event_SizeWindow                 ; das Fenster wurde in der Größe verändert
      Case #PB_Event_MoveWindow                 ; das Fenster wurde verschoben
      Case #PB_Event_ActivateWindow             ; das Fenster wurde aktiviert (hat den Fokus erhalten)
      Case #PB_Event_SysTray                    ; das SysTray wurde aktiviert
    
    EndSelect
    
  Until Exit
EndIf

Code: Alles auswählen

  ; Test 
  
  rect.rect 
  With rect 
    \left = 20 
    \top = 60 
    \right = \left + 200 
    \bottom = 200 
  EndWith 
  
  text.s = "Hallo Welt 1" + #CRLF$ + "----------" 
  hdc = StartDrawing(WindowOutput(#Window))
  DrawText(10,120,Str(hdc))
  DrawText_(hdc,text, Len(text), rect, #DT_CENTER) 

  rect.rect 
  With rect 
    \left = 300 
    \top = 60 
    \right = \left + 200 
    \bottom = 200 
  EndWith 
  text.s = "Hallo Welt 2" + #CRLF$ + "----------" 
  hdc = GetDC_(WindowID(#Window)) 
  DrawText_(hdc,text, Len(text), rect, #DT_CENTER) 

  DrawText(310,120,Str(hdc))
  StopDrawing() 
  
  ;-- Hauptschleife 

Code: Alles auswählen

OpenWindow(0,0,0,600,400,"untitled",#WS_OVERLAPPEDWINDOW | 1)

hdc = StartDrawing(WindowOutput(0))
SetRect_(drc.RECT,10,10,100,100)
MoveToEx_(hdc,10,10,0) ; auskommentieren um Unterschied zu sehen
DrawText_(hdc,"Leck mich fett!",-1,drc,0)
StopDrawing()
 
While WaitWindowEvent() ! 16 : Wend