Wenn ich jetzt zB ein Schwarzes Image übergebe, passiert garnix:in der Hilfe steht hat geschrieben: Ergebnis = AddGadgetItem(#Gadget, Position, Text$ [, ImageID [, Flags]])
[...]
Die folgenden Gadgettypen werden unterstützt:
[...]
- MDIGadget() : ImageID kann ein Icon für die Titelleiste des "ChildWindow"s enthalten. 'Flags' können die neuen Window-Flags bezeichnen.
Code: Alles auswählen
Enumeration
#Window
#Gadget
#Menu
EndEnumeration
#Window_Width = 800
#Window_Height = 600
OpenWindow(#Window, 0, 0, #Window_Width, #Window_Height, "Fenster", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
CreateMenu(#Menu, WindowID(#Window))
MenuTitle("Fenster")
MDIGadget(#Gadget, 5, 5, #Window_Width-10, #Window_Height-10-MenuHeight(), 0, 0)
AddGadgetItem(#Gadget, 1, "Test", ImageID(CreateImage(#PB_Any, 16, 16)), #PB_Window_SystemMenu)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_CloseWindow
Select EventWindow()
Case #Window
End
EndSelect
EndSelect
ForEver
Außerdem verschwindet das Fenster und die ScrollLeite geht "kaputt" wenn ich das Fenster nach "außen" schiebe und dann dort hin scrolle ...