PureBasic Forums - English

Code: Select all

LoadFont(0,"Broadway",16)


OpenWindow(0,0,0,400,300,"", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ContainerGadget(0,10,10,300,50)
SetGadgetColor(0,#PB_Gadget_BackColor,$0000FF)
  ContainerGadget(2,2,2,296,48)
  SetGadgetColor(2,#PB_Gadget_BackColor,$C1E1E1)
    StringGadget(1,0,0,296,48,"Hello World",#ES_CENTER|#PB_String_BorderLess)
    SetGadgetFont(1,FontID(0)) 
    h = GadgetHeight(1,#PB_Gadget_RequiredSize)
    ResizeGadget(1,0,GadgetHeight(2)/2-h/2,#PB_Ignore,h)   
    SetGadgetColor(1,#PB_Gadget_BackColor,$C1E1E1)
    SetGadgetColor(1,#PB_Gadget_FrontColor,$FF0000)
  CloseGadgetList()
CloseGadgetList()
hrgn = CreateRoundRectRgn_(0,0,300,50,16,16)
SetWindowRgn_(GadgetID(0),hrgn,1)
hrgn2 = CreateRoundRectRgn_(0,0,296,46,16,16)
SetWindowRgn_(GadgetID(2),hrgn2,1)
DeleteObject_(hrgn)
DeleteObject_(hrgn2)

Repeat
  Select WaitWindowEvent()
     
      Case #PB_Event_CloseWindow
            Quit = 1
     
      Case #PB_Event_Gadget
          Select EventGadget()
           Case 1           
          EndSelect
         
  EndSelect

Until Quit = 1
End