[RESOLU] Soucis scintillement gadgets et autres

[Shadow]

Oui Ar'S parce que je le vaut bien

Il ne scintille pas car c'est un panel perso que j'ai fais pour moi !
Si ça peut servir à d'autres

[falsam]

Oui Ar'S parce que je le vaut bien

Il ne scintille pas car c'est un panel perso que j'ai fais pour moi !
Si ça peut servir à d'autres

Si tu avais la réponse alors pourquoi ce sujet "Soucis scintillement gadgets et autres" ?
J'avais l'impression que c'était un souci que tu rencontrais !!

[Shadow]

Oui et en même temps j'ai chercher la solution au lieu d'attendre, c'est pas ce qui faut faire ?

[falsam]

Oui et en même temps j'ai chercher la solution au lieu d'attendre, c'est pas ce qui faut faire ?

C'est ce qui faut faire et dans ce cas on place un résolu dans le titre du sujet

[falsam]

Le sujet est résolu mais je te montre quand même une solution sans API sur la base de TabBarGadget.pbi. Il me semble qu'il est utilisé par l'ide de Purebasic.

Code : Tout sélectionner

XIncludeFile "TabBarGadget.pbi"

Enumeration Window
  #mf  
EndEnumeration

Enumeration Gadget
  #mfContainer
  #mfTabBar  
  #mfEditCmd
  #mfEditVar  
  #mfSplitter
  #mfEditor
EndEnumeration

Declare Start()
Declare SelectTab()
Declare Resize()
Declare Exit()

Start()

Procedure Start()
  If OpenWindow(#mf, 0, 0, 800, 600, "SplitterGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered |#PB_Window_SizeGadget)
    TabBarGadget(#mfTabBar, 2, 16, 400, 24, #TabBarGadget_NoTabMoving, #mf)
    AddTabBarGadgetItem(#mfTabBar, #PB_Default, "Fonctions")
    AddTabBarGadgetItem(#mfTabBar, #PB_Default, "Variables")
    SetTabBarGadgetState(#mfTabBar, 0) ;¨1er onglet actif
    
    CanvasGadget(#mfContainer, 0, 0, 0, 0, #PB_Canvas_Container)
    TreeGadget(#mfEditCmd, 0, 0, 0, 0, #PB_Tree_AlwaysShowSelection)
      AddGadgetItem(#mfEditCmd, -1, "F1")
      AddGadgetItem(#mfEditCmd, -1, "F2")
      AddGadgetItem(#mfEditCmd, -1, "F3")
      
    TreeGadget(#mfEditVar, 0, 0, 0, 0, #PB_Tree_AlwaysShowSelection)
      AddGadgetItem(#mfEditVar, -1, "V1")
      AddGadgetItem(#mfEditVar, -1, "V2")
      AddGadgetItem(#mfEditVar, -1, "V3")
    HideGadget(#mfEditVar, #True)
    CloseGadgetList()   
    
    EditorGadget(#mfEditor, 0, 0, 0, 0)
    SplitterGadget(#mfSplitter, 5, 41, 0, 0, #mfContainer, #mfEditor, #PB_Splitter_Vertical)
    SetGadgetAttribute(#mfSplitter, #PB_Splitter_FirstMinimumSize, 140)
    WindowBounds(#mf, 200, 200, #PB_Ignore, #PB_Ignore)
        
    BindEvent(#PB_Event_SizeWindow, @Resize())
    BindEvent(#PB_Event_CloseWindow, @Exit())
    BindGadgetEvent(#mfSplitter, @Resize())
    BindGadgetEvent(#mfTabBar, @SelectTab())
    
    Resize()
    
    Repeat : WaitWindowEvent(5) : ForEver 
  EndIf
EndProcedure

Procedure SelectTab()
  Select EventType()
    Case #TabBarGadget_EventType_Change 
      Select GetTabBarGadgetState(#mfTabBar)
        Case 0
          HideGadget(#mfEditCmd, #False)
          HideGadget(#mfEditVar, #True)
          
        Case 1
          HideGadget(#mfEditCmd, #True)
          HideGadget(#mfEditVar, #False)
          
      EndSelect                
  EndSelect
EndProcedure

Procedure Resize()
  ResizeGadget(#mfSplitter, #PB_Ignore, #PB_Ignore, WindowWidth(#mf)-10, WindowHeight(#mf) - 45) 
  ResizeGadget(#mfEditCmd, #PB_Ignore, #PB_Ignore, GadgetWidth(#mfContainer), GadgetHeight(#mfContainer))
  ResizeGadget(#mfEditVar, #PB_Ignore, #PB_Ignore, GadgetWidth(#mfContainer), GadgetHeight(#mfContainer))
EndProcedure

Procedure Exit()
  End
EndProcedure

Récupère l'include sur ce lien. http://www.unionbytes.de/downloads/TabB ... 1-5-B2.zip

l'aide des fonctions : http://help.unionbytes.de/tbg/TabBarGadget/

Topic : http://www.purebasic.fr/english/viewtop ... 12&t=47588

[Shadow]

La vache il est dément se truc
merci !

Trop cool, qui a fait se superbe gadget !
Je suis sur le cul

Si ta d'autre super code comme ça.

[Shadow]

Y à t-il une aide Or ligne svp ?
J'aimerais bien avoir l'aide traduite en FR si ça existe