ptits problèmes

[Le Soldat Inconnu]

en supprimant l'onglet et en le recréant ?
Il manque une fonction pour changer l'icône, idem pour les listviewgadget et autres

[Chris]

Sinon, par la méthode PureBasic, il faudrait faire un truc dans ca style, mais ça me paraît beaucoup de code pour peu de choses.

Code : Tout sélectionner

; Img1 = LoadImage(#PB_Any,"Rond.bmp")
; Img2 = LoadImage(#PB_Any,"Triangle.bmp")

Img1 = CreateImage(#PB_Any,16,16)
StartDrawing(ImageOutput())
Box(0,0,16,16,RGB($0,$FF,$0)) : Circle(8,8,8,RGB($0,$0,$FF))
StopDrawing()

Img2 = CreateImage(#PB_Any,16,16)
StartDrawing(ImageOutput())
Box(0,0,16,16,RGB($FF,$0,$0))
StopDrawing()

Procedure ChangeImage(Gadget, Onglet, Image, Titre.s)
  OpenGadgetList(Gadget, Onglet)
  RemoveGadgetItem(Gadget,Onglet)
  AddGadgetItem(Gadget,Onglet, Titre,UseImage(Image))
EndProcedure

If OpenWindow(0,0,0,322,220,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"PanelGadget") 
  If CreateGadgetList(WindowID(0)) 
    PanelGadget     (0,8,8,306,203) 
    AddGadgetItem (0,-1,"Panel 1",UseImage(Img1)) 
    AddGadgetItem (0,-1,"Panel 2",UseImage(Img2))
      ButtonGadget(2, 10, 15, 80, 24,"Button 1") 
      ButtonGadget(3, 95, 15, 80, 24,"Button 2") 
    
    AddGadgetItem (0,-1,"Panel 3",UseImage(Img1)) 
    
    CloseGadgetList()
  EndIf
  
  SetGadgetState(0,1)
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow : Quit = #True
      Case #PB_EventGadget
        Select EventGadgetID()
            
          ;- En cliquant sur les boutons, on change l'image des onglets
          Case 2
            ChangeImage(0,1,Img1,"Panel 2")
            ButtonGadget(2, 10, 15, 80, 24,"Button 1") 
            ButtonGadget(3, 95, 15, 80, 24,"Button 2") 
            CloseGadgetList()
            SetGadgetState(0,1)
            
          Case 3
            ChangeImage(0,2,Img2,"Panel 3")
            CloseGadgetList()
            SetGadgetState(0,1)
            
        EndSelect
    EndSelect
    
  Until Quit 
EndIf 
End