
Code: Alles auswählen
LoadImage(1,"Bitmap.bmp",0)
If OpenWindow(0, 0, 0, 250, 250,"Menü",#PB_Window_SystemMenu)
If CreateMenu(0, WindowID(0))
MenuTitle("Datei")
MenuItem(1,"Laden")
OpenSubMenu("Speichern")
MenuItem(2, "Speichern unter")
CloseSubMenu()
MenuItem(3, "Beenden")
EndIf
SetMenuItemBitmaps_(MenuID(0),1,#MF_BYPOSITION,ImageID(1),ImageID(1))
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf