PureBasic

;{ constante
Enumeration ; window
#FenetrePrincipale
#FenetreFille
EndEnumeration
#toolbar= 0

Enumeration ; Menu
; files
#menu_New
#menu_Open
EndEnumeration

;}

If OpenWindow(#FenetrePrincipale, 0, 0, 400, 300, "MDIGadget & split", #PB_Window_SystemMenu|
#PB_Window_ScreenCentered | #PB_Window_SizeGadget | #PB_Window_MaximizeGadget|#PB_Window_Maximize)

;{ menu
If CreateMenu(#FenetrePrincipale, WindowID(#FenetrePrincipale))
MenuTitle("Files")
MenuItem(#menu_New, "New")
MenuItem(#menu_Open, "Open")
EndIf
;}
;{ toolbar
If CreateToolBar(#toolbar,WindowID(#FenetrePrincipale))
ToolBarStandardButton(0,#PB_ToolBarIcon_New)
ToolBarStandardButton(1,#PB_ToolBarIcon_Open)
ToolBarStandardButton(2,#PB_ToolBarIcon_Save)
ToolBarSeparator()
ToolBarStandardButton(3,#PB_ToolBarIcon_Cut)
ToolBarStandardButton(3,#PB_ToolBarIcon_Copy)
ToolBarStandardButton(3,#PB_ToolBarIcon_Paste)
y = ToolBarHeight(#toolbar)
EndIf
;}

h = WindowHeight(0)-MenuHeight() -y -5
w = WindowWidth(#FenetrePrincipale)

;{ gadget
panel = TreeGadget(#PB_Any,0,0,150,h)
AddGadgetItem(panel,0,"Truc")
scroll = ContainerGadget(#PB_Any,155,0,w-155, WindowHeight(0)-MenuHeight())
CloseGadgetList()

split = SplitterGadget(#PB_Any,0,y,w,h,panel, scroll,#PB_Splitter_Vertical )
SetGadgetState(split, 160)
;}

;{ on crée la fenêtre fille
OpenGadgetList(scroll)
MDIGadget(0, 0, 0, 0,0, 1, 2, #PB_MDI_AutoSize )
AddGadgetItem(0, #FenetreFille, "Fenêtre Fille")
TextGadget(#PB_Any,10,10,40,20,"Name : ")
ResizeWindow(#FenetreFille,#PB_Ignore, #PB_Ignore,530,315)
;}

UseGadgetList(WindowID(#FenetrePrincipale)) ; retourne à la liste de gadgets de la fenêtre principale
CloseGadgetList()

Repeat
event = WaitWindowEvent()
EventWindow = EventWindow()

Select event

Case #PB_Event_CloseWindow

Select EventWindow
Case #FenetrePrincipale
quit = 1

Default
CloseWindow(EventWindow)
EndSelect

Case #PB_Event_SizeWindow

Select EventWindow

Case #FenetreFille

EndSelect

EndSelect

Until quit = 1
EndIf

"Remarques

A cause de la connexion avec les menus, il ne peut y avoir qu'un seul gadget MDI par fenêtre, cependant vous pouvez utiliser plusieurs fenêtres contenant un gadget MDI chacune. Ce gadget ne peut être créé que dans une fenêtre principale donc pas dans un ContainerGadget(), SplitterGadget() ou PanelGadget()). "

Mesa a écrit :D'après la doc sur le mdigadget, on ne peut pas utiliser un container ni un splitter ni un panel avec un mdi. Le mdi doit être dans la fenetre principale.

"Remarques

A cause de la connexion avec les menus, il ne peut y avoir qu'un seul gadget MDI par fenêtre, cependant vous pouvez utiliser plusieurs fenêtres contenant un gadget MDI chacune. Ce gadget ne peut être créé que dans une fenêtre principale donc pas dans un ContainerGadget(), SplitterGadget() ou PanelGadget()). "

C'est dommage.