J'ai mis cela dans la fonction OB_AddGadgetItem3, comme cela :
Code : Tout sélectionner
Procedure OB_AddGadgetItem3(*gadget.PB_Gadget, Position, Texte.s , ImageID, Options)
Protected Inc_a.l
If *gadget
Protected *info.S_ROutlookBar = OUTLOOKBAR_ID(*gadget\gadget)
With *info
LockWindowUpdate_(\HwndParent)
CreateGadgetList(GadgetID(\HwndStaticBg))
If Position = -1
Position = \NbHeader
Else
For Inc_a = \NbHeader To Position+1 Step -1
\ButtonID[Inc_a]\ID = \ButtonID[Inc_a-1]\ID
\ButtonID[Inc_a]\Pos\top = \ButtonID[Inc_a-1]\Pos\top + 20
Next
EndIf
\ButtonID[Position]\ID = ButtonGadget(#PB_Any,0,\ButtonID[Position]\Pos\top,\width,20,Texte)
\NbHeader +1
If Position > -1
For Inc_a = 0 To \NbHeader-1
ResizeGadget(\ButtonID[Inc_a]\ID, 0,\ButtonID[Inc_a]\Pos\top,\width,20)
Next
EndIf
\State = Position
OB_SetGadgetState(*gadget, Position)
InvalidateRect_(*gadget\Gadget, 0, #True)
UseGadgetList(\HwndParent)
LockWindowUpdate_(#Null)
EndWith
EndIf
EndProcedure
Est ce comme cela qu'il fallait l'utiliser ?
---
J'ai mis à jour le code... tout en haut ! Donc si vous voulez bien le tester, svp !