PB 5.60(x86) under win7
Code: Select all
If OpenWindow(0, 0, 0, 150, 60, "ToolBar", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If CreateToolBar(0, WindowID(0))
ToolBarStandardButton(0, #PB_ToolBarIcon_New)
ToolBarStandardButton(1, #PB_ToolBarIcon_Open)
ToolBarStandardButton(2, #PB_ToolBarIcon_Save)
DisableToolBarButton(0, 1, 1) : Disabled = #True
ToolBarImageButton(3, LoadImage(0, #PB_Compiler_Home + "examples/sources/Data/Cdplayer.ico"))
ToolBarToolTip(0, 2, "save")
ToolBarToolTip(0, 3, "Cdplayer")
DisableToolBarButton(0,3, 1)
EndIf
ButtonGadget(0, 20, 30, 110, 20, "Enable OpenFile")
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Gadget
If EventGadget() = 0
If Disabled = #True
DisableToolBarButton(0, 1, 0)
DisableToolBarButton(0,3, 0)
SetGadgetText(0,"Disable OpenFile")
Disabled = #False
Else
DisableToolBarButton(0, 1, 1)
DisableToolBarButton(0,3, 1)
SetGadgetText(0,"Enable OpenFile")
Disabled = #True
EndIf
EndIf
EndIf
Until Event = #PB_Event_CloseWindow
EndIf