Toolbar et toggle
Publié : jeu. 15/mai/2014 9:43
Bonjour tous le monde,
J'essaie de faire fonctionner la fonction Toggle sur un ToolBarImageButton() mais sans résultat sur Mac OS X 10.9 avec PB 64bits. Pour tester j'ai utilisé l'exemple de ToolBar livré avec les exemples de PB. Quelqu'un aurait une idée ?
Voici un exemple:
J'essaie de faire fonctionner la fonction Toggle sur un ToolBarImageButton() mais sans résultat sur Mac OS X 10.9 avec PB 64bits. Pour tester j'ai utilisé l'exemple de ToolBar livré avec les exemples de PB. Quelqu'un aurait une idée ?
Voici un exemple:
Code : Tout sélectionner
If OpenWindow(0, 0, 0, 600, 200, "ToolBar", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
StringGadget(0, 0, 0, 96, 32, "")
CreateImage(0, 32, 32)
StartDrawing(ImageOutput(0))
Box(0,0,32,32,RGB(255,255,255))
Box(4,4,24,24,RGB(255,0,0))
StopDrawing()
CreateToolBar(0, WindowID(0))
TB_ID = ToolBarID(0)
ToolBar_SetMode(TB_ID, 1, 1)
ToolBarImageButton(0, ImageID(0), #PB_ToolBar_Toggle)
Item = ToolBar_ItemAtIndex(TB_ID, 0)
ToolBar_SetItemLabel(Item, "Button")
ToolBarImageButton(1, ImageID(0))
Item = ToolBar_ItemAtIndex(TB_ID, 1)
ToolBar_SetItemLabel(Item, "String gadget")
ToolBar_SetItemGadget(Item, GadgetID(0))
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
