PureBoard

Code: Alles auswählen

; #BS_LEFT         =    $00000100 
; #BS_RIGHT        =    $00000200 
; #BS_TOP          =    $00000400 
; #BS_CENTER       =    $00000300 
; #BS_BOTTOM       =    $00000800
Testbutton.s

Testbutton = ""
Testbutton = Testbutton + "Das ist ein" + #CRLF$
Testbutton = Testbutton + "Ellenlanger Text" + #CRLF$
Testbutton = Testbutton + "zum testen der Ausrichtfunktion" + #CRLF$
Testbutton = Testbutton + "des" + #CRLF$
Testbutton = Testbutton + "Buttons."


If OpenWindow(0, 100, 100, 640,480, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered)
  l=100:h=40
  x=WindowWidth(0)/2-(l/2):y=WindowHeight(0)/2-(h/2)
  ButtonGadget(0,x,y,l,h,"NORMAL")
  ButtonGadget(1,x-l-20,y,l,h,"LEFT",#BS_LEFT)
  ButtonGadget(2,x+l+20,y,l,h,"RIGHT",#BS_RIGHT)
  ButtonGadget(3,x,y-h-20,l,h,"TOP",#BS_TOP)
  ButtonGadget(4,x,y+h+20,l,h,"BOTTOM",#BS_BOTTOM)
  ButtonGadget(5,x-l-20,y-h-20,l,h,"TOP LEFT",#BS_LEFT|#BS_TOP)
  ButtonGadget(6,x+l+20,y-h-20,l,h,"TOP RIGHT",#BS_RIGHT|#BS_TOP)
  ButtonGadget(7,x-l-20,y+h+20,l,h,"BOTTOM LEFT",#BS_BOTTOM|#BS_LEFT)
;  ButtonGadget(8,x+l+20,y+h+20,l,h,"BOTTOM RIGHT",#BS_BOTTOM|#BS_RIGHT)
  ButtonGadget(8,x+l+20,y+h+20,l,h, Testbutton,#PB_Button_MultiLine|#BS_CENTER)
  
  Repeat 
    EventID = WaitWindowEvent(100) 
    Select EventID
      Case  #PB_Event_CloseWindow 
        Quit = 1 
    EndSelect 
  Until Quit = 1 
EndIf

End 

Code: Alles auswählen

ButtonGadget(9,x - 120, y+120, l + 240, h + 40, Testbutton,#PB_Button_MultiLine)