Je viens de remarquer que si on utilise un MDIgadget (windows only) sur un containergadget et un splittergadget, lorsque l'on maximize la fenêtre fille, les boutons n'apparaissent plus en haut à droite.
Savez-vous comment on peut récupérer ces boutons ?
Une autre remarque :;{ 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
- si je remplace le containtergadget par un scrollareagadget, lorsque je maximise, j'ai une IMA.
est-ce un bug ?
Merci bien
