; German forum: http://robsite.de/php/pureboard/viewtopic.php?p=24985#24985 ; Author: Falko ; Date: 19. December 2003 ; Set the last menu item to the top-right corner... ;Menü mit Help rechts per API-Funktion und Structure. ;Für Redraw habe ich einfach Menü aus und dann wieder eingeschaltet #MIIM_Type = 16 #MFT_RIGHTJUSTIFY = 16384 LPTSTR.s="Hilfe Rechts" Eintrag.MENUITEMINFO Eintrag\cbSize = SizeOf(MENUITEMINFO) Eintrag\fMask = #MIIM_Type Eintrag\fType = #MFT_RIGHTJUSTIFY Eintrag\dwTypeData = @LPTSTR If OpenWindow(0, 100, 150, 595, 260, #PB_Window_SystemMenu, "PureBasic - Menu") hMenu.l=CreateMenu(0, WindowID()) If hMenu MenuTitle("File") MenuItem( 1, "&Load...") MenuItem( 2, "Save") MenuItem( 3, "Save As...") MenuTitle("Bearbeiten") MenuItem(4, "Markieren") MenuTitle("Neu") MenuItem(5, "oh je, jetzt mehr") MenuTitle(""); Dummyplatzhalter eingefügt, damit SetMenuItem darauf zugreifen kann MenuItem(6,"jetzt hast du hilfe") EndIf ; MenuTitle ein Label geben und rechts ausrichten SetMenuItemInfo_(hMenu,3,1,@Eintrag) ; Menütitel ist von 0-1-2-3 gerechnet HideMenu(0, 1) HideMenu(0, 0) ; ; This is the 'event loop'. All the user actions are processed here. ; It's very easy to understand: when an action occurs, the EventID ; isn't 0 and we just have to see what have happened... ; Repeat Select WaitWindowEvent() Case #PB_EventMenu Select EventMenuID() ; To see which menu has been selected Case 11 ; About MessageRequester("About", "Cool Menu example", 0) Default MessageRequester("Info", "MenuItem: "+Str(EventMenuID()), 0) EndSelect Case #WM_CLOSE ; #PB_EventCloseWindow Quit = 1 EndSelect Until Quit = 1 EndIf FreeMenu(0) End ; ExecutableFormat=Windows ; FirstLine=1 ; EnableXP ; EOF