PureBasic Forums - English

Code: Select all

Global SG
Global Dim x(6)
x(1) = 0
x(2) = 46
x(3) = 92
x(4) = 138

  If OpenWindow(0, 0, 0, 400, 300, "Fancy PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    PanelGadget(100, 10, 10, 380, 280)
      AddGadgetItem (100, -1, "Panel 1")
      AddGadgetItem (100, -1,"Panel 2")
        ButtonGadget(101, 10, 15, 80, 24,"Button 1")
        ButtonGadget(102, 95, 15, 80, 24,"Button 2")
      AddGadgetItem (100, -1,"Panel 3")
      AddGadgetItem (100, -1,"Panel 4")
    CloseGadgetList()
    ContainerGadget(0, 10, 6,210, 26,#PB_Container_BorderLess)
      ButtonGadget(1, 0, 5, 48, 24,"Panel 0",#BS_FLAT)
      ButtonGadget(2, 46, 5,48, 24,"Panel 1",#BS_FLAT)
      ButtonGadget(3, 92, 5, 48, 24,"Panel 2",#BS_FLAT)
      ButtonGadget(4, 138, 5, 48, 24,"Panel 3",#BS_FLAT)
    CloseGadgetList()
    BringWindowToTop_(GadgetID(0))
    
    Import "Uxtheme.lib"
        SetWindowTheme(Window.l, Body.p-unicode, Title.p-unicode)                                                  
    EndImport        
    SG = 4
    Run = 1
  Repeat
      Select WaitWindowEvent()
      
        Case #PB_Event_CloseWindow
            Quit = 1
      
        Case #PB_Event_Gadget
          Select EventGadget()
                     
          EndSelect
          
        Case #WM_MOUSEMOVE         
          GetCursorPos_ (@p.POINT) 
          ScreenToClient_ (WindowID(0), @p)            
          Select ChildWindowFromPoint_ (GadgetID(0), p\y<< 32+p\x)
              Case GadgetID(1)
                If SG <> 1            
                  ResizeGadget(SG,x(SG),5 ,48 ,24)
                  SetWindowTheme(GadgetID(SG),"", "BUTTON")
                  ResizeGadget(1,0,0 ,48 ,28)
                  SetWindowTheme(GadgetID(1),"", "WINDOW")
                  SetGadgetState(100,0)
                EndIf 
                  SG = 1                                    
              Case GadgetID(2)
                If SG <> 2
                  ResizeGadget(SG,x(SG),5 ,48 ,24)
                  SetWindowTheme(GadgetID(SG),"", "BUTTON")
                  ResizeGadget(2,46,0 ,48 ,28)
                  SetWindowTheme(GadgetID(2),"", "WINDOW")
                  SetGadgetState(100,1)
                EndIf 
                  SG = 2
              Case GadgetID(3)
                If SG <> 3
                  ResizeGadget(SG,x(SG),5 ,48 ,24)
                  SetWindowTheme(GadgetID(SG),"", "BUTTON")
                  ResizeGadget(3,92,0 ,48 ,28)
                  SetWindowTheme(GadgetID(3),"", "WINDOW")
                  SetGadgetState(100,2)
                EndIf 
                  SG = 3
              Case GadgetID(4)
                If SG <> 4 Or Run = 1
                  ResizeGadget(SG,x(SG),5 ,48 ,24)
                  SetWindowTheme(GadgetID(SG),"", "BUTTON")
                  ResizeGadget(4,138,0 ,48 ,28)
                  SetWindowTheme(GadgetID(4),"", "WINDOW")
                  SetGadgetState(100,3)
                  Run = 0
                EndIf 
                  SG = 4
              EndSelect

              
              
                
      EndSelect
      
  Until Quit = 1
  EndIf