MDIGadget - Icons bei ChildWindow
Verfasst: 28.11.2009 22:29
Tachchen,
Was mache ich falsch ?
Außerdem verschwindet das Fenster und die ScrollLeite geht "kaputt" wenn ich das Fenster nach "außen" schiebe und dann dort hin scrolle ...
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 ...