Thanx.
Code: Select all
#Main = 0
#MDIChild = 1
If OpenWindow(#Main, 0, 0, 400, 300, "MDIGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget | #PB_Window_MaximizeGadget)
If CreateMenu(#Main, WindowID(#Main))
MenuTitle("Menu index 0")
MenuTitle("MDI windows menu")
MenuItem(0, "self created item")
MenuItem(1, "self created item")
EndIf
If CreateToolBar(0,WindowID(#main),#PB_ToolBar_Large)
ToolBarStandardButton(0, #PB_ToolBarIcon_New)
ToolBarStandardButton(1, #PB_ToolBarIcon_Open)
ToolBarStandardButton(2, #PB_ToolBarIcon_Save)
EndIf
;Second toolbar ===> BUG ! Comment line 18 to 25 and it works with one toolbar ;(
;==============
ContainerGadget(1,0, ToolBarHeight(0),400,32,#PB_Container_BorderLess)
CreateToolBar(1,GadgetID(1),#PB_ToolBar_Large)
SetWindowLongPtr_(ToolBarID(1),#GWL_STYLE,GetWindowLongPtr_(ToolBarID(1),#GWL_STYLE)|#TBSTYLE_WRAPABLE)
ToolBarStandardButton(1, #PB_ToolBarIcon_New)
ToolBarStandardButton(2, #PB_ToolBarIcon_Open)
ToolBarStandardButton(3, #PB_ToolBarIcon_Save)
ToolBarStandardButton(4, #PB_ToolBarIcon_Print)
ToolBarStandardButton(5, #PB_ToolBarIcon_Find)
MDIGadget(0, 0, 0, 0, 0, 1, 2);, #PB_MDI_AutoSize
AddGadgetItem(0, #MDIChild, "child window")
; add gadgets here...
UseGadgetList(WindowID(#Main)) ; go back to the main window gadgetlist
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf
M.