PureBasic Forums - English

Code: Select all

Enumeration
  #main_window 
  #button1
  #fontdefault
  #wrapper
EndEnumeration

LoadFont(#fontdefault,"Trebuchet MS",12,#PB_Font_Bold | #PB_Font_HighQuality)

Procedure mybutton(obj,b) 
  y = 3
  If b
    x = 16
  Else
    x = 15
  EndIf
  StartDrawing(CanvasOutput(obj))
  DrawingMode(#PB_2DDrawing_Transparent)
  Box(0,0,100,30,$33ccff)
  DrawingFont(FontID(#fontdefault))
  DrawText(x,y,"Button",$000000)
  StopDrawing()  
EndProcedure

If OpenWindow(#main_window,0,0,400,200,"TEST",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
 ; background
  CanvasGadget(#wrapper,0,0,400,200)
  StartDrawing(CanvasOutput(#wrapper))
  Box(0,0,400,200,$1C614D)
  StopDrawing()
  
  CanvasGadget(#button1,10,10,85,30)
  mybutton(#button1,0)  

EndIf

Repeat
  Delay(1)
  Event = WaitWindowEvent()
  Select Event
    Case #PB_Event_Gadget
      Select EventType()
        Case #PB_EventType_LeftButtonDown
          Select EventGadget()
            Case #button1
              Debug "Clicked"
              mybutton(#button1,1)
          EndSelect
        Case #PB_EventType_LeftButtonUp
          Select EventGadget()
            Case #button1
              mybutton(#button1,0)
          EndSelect          
      EndSelect      
  EndSelect
Until Event = #PB_Event_CloseWindow