CreateImageMenu()

Syntax

Ergebnis = CreateImageMenu(#Menue, WindowID [, Flags])

Erstellt ein neues leeres Menü auf dem angegebenen Fenster 'WindowID', mit Unterstützung für Bilder bei seinen Einträgen. Wenn #PB_Any als '#Menue' Parameter verwendet wird, dann wird die Nummer des neuen Menüs als 'Ergebnis' zurückgegeben. Konnte das Menü nicht erstellt werden, wird als 'Ergebnis' 0 zurückgegeben.

'WindowID' kann mit dem WindowID() Befehl aus der Window Library ermittelt werden. Unmittelbar nach dem Erstellen des Menüs wird dieses das aktuelle Menü zum Einfügen weiterer Einträge. Es ist nun möglich, Befehle wie MenuTitle(), MenuItem(), MenuBar(), OpenSubMenu() etc. zu benutzen.

'Flags' kann eine Kombination der folgenden Werte sein:

  #PB_Menu_ModernLook: Farbverlauf und modernes Aussehen aktivieren

Um alle Menü-Ereignisse korrekt zu handhaben, sehen Sie in die Beschreibung der folgenden Befehle:
WaitWindowEvent() (alternativ WindowEvent())
EventWindow()
EventMenu()

Beispiel:

  If LoadImage(0, OpenFileRequester("Choose an icon file", "", "", 0))
    If OpenWindow(0, 200, 200, 200, 100, "Image menu Example")
      If CreateImageMenu(0, WindowID(0))    ; menu creation starts....
        MenuTitle("Project")
          MenuItem(1, "Open"   +Chr(9)+"Ctrl+O", ImageID(0))
          MenuItem(2, "Save"   +Chr(9)+"Ctrl+S")
          MenuItem(3, "Save as"+Chr(9)+"Ctrl+A")
          MenuItem(4, "Close"  +Chr(9)+"Ctrl+C")
      EndIf
      
      Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
    EndIf
  EndIf

Unterstützte OS

Alle