Forums PureBasic - Français
http://forums.purebasic.com/french/
Si tu avais la réponse alors pourquoi ce sujet "Soucis scintillement gadgets et autres" ?Shadow a écrit :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
C'est ce qui faut faire et dans ce cas on place un résolu dans le titre du sujetShadow a écrit :Oui et en même temps j'ai chercher la solution au lieu d'attendre, c'est pas ce qui faut faire ?
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
