PureBoard

CreateImage(0, 16, 16)
If StartDrawing(ImageOutput(0))
  Box(0, 0, 16, 16, RGB(255, 0, 0)) ; red box
  StopDrawing()
EndIf

CreateImage(1, 16, 16)
If StartDrawing(ImageOutput(1))
  Box(0, 0, 16, 16, RGB(0, 255, 0)) ; green box
  StopDrawing()
EndIf

CreateImage(2, 16, 16)
If StartDrawing(ImageOutput(2))
  Box(0, 0, 16, 16, RGB(0, 0, 255)) ; blue box
  StopDrawing()
EndIf

If CreatePopupImageMenu(0)
  MenuItem(1, "Rot", ImageID(0))
  MenuItem(2, "Grün", ImageID(1))
  MenuItem(3, "Blau", ImageID(2))
EndIf

Procedure GadgetEvents()
  If EventGadget() = 0 And EventType() = #PB_EventType_RightClick
    Debug "here"
   
    DisplayPopupMenu(0, WindowID(0))
   
    ;Die Anweisungen müssen nach dem Anzeigen des Menüs erfolgen.
   
    ! $("#"+v_menue.id).css("background", "pink");
    ! $("#"+v_menue.id).css("color", "brown");
    ! $("#dijit_MenuItem_1").css("color", "green");
    ;Hier wird die Anzeige-Größe in Pixel gesetzt.
    ! $("#"+v_menue.id).css("font-size", "18px");
    ;So setzt man z.B. einzelne Menüeinträge
    ! $("#dijit_MenuItem_1").css("font-size", "32px");

  EndIf
EndProcedure

Procedure MenuEvents()
  Debug EventMenu()
EndProcedure

If OpenWindow(0, 100, 100, 300, 260, "PopupMenu example", #PB_Window_TitleBar)
 
  ListIconGadget(0, 10, 10, 280, 240, "Tools", 200)
  AddGadgetItem(0, -1, "Hammer")
  AddGadgetItem(0, -1, "Screwdriver")
 
  liste = GadgetID(0)
  ;Hier wird die interne ID ermittelt.
  menue = MenuID(0)
 
 
  ! $(v_liste.div).find(".dgrid-content.ui-widget-content").css("color", "red");
  ! $(v_liste.div).find(".dgrid-content.ui-widget-content").css("background", "yellow");
 
  !alert(v_liste.div);
  ;Ein Menü ist kein DIV-Objekt.
  !alert(v_menue.id);
 
  BindEvent(#PB_Event_Menu, @MenuEvents())
  BindEvent(#PB_Event_Gadget, @GadgetEvents())
 
EndIf