XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Menüpunkt (PopUp) ganz rechts erstellen
DEF SetMenuItemInfo(4) ! User32,SetMenuItemInfoA
DEF DrawMenuBar(1) ! User32,DrawMenuBar
DEF &MIIM_TYPE $010
DEF &MFT_RIGHTJUSTIFY $04000
Declare Ende&,MenuItemInfo#,MenuHelp$,MenuHelp#
WindowStyle 27
cls
PopUp DateiIndex 0
AppendMenu 100,Ende
PopUp BearbeitenIndex 1
AppendMenu 101,hier gibt es nichts zu bearbeiten
PopUp DummyIndex 2
AppendMenu 102,Hilfe
MenuHelp$ = Hilfe
Dim MenuHelp#,Len(MenuHelp$) + 1
String MenuHelp#,0 = MenuHelp$
Dim MenuItemInfo#,44
Long MenuItemInfo#,0 = 44------------------SizeOf(..)
Long MenuItemInfo#,4 = &MIIM_TYPE----------Mask
Long MenuItemInfo#,8 = &MFT_RIGHTJUSTIFY---fType
Long MenuItemInfo#,36 = MenuHelp#----------dwTypeData
SetMenuItemInfo(&hMenu,2,1,MenuItemInfo#)Menüpun kt 3 (Index 2) neu setzen
Dispose MenuItemInfo#
Dispose MenuHelp#
DrawMenuBar(%hwnd)
SetFocus(%hwnd)

Whilenot Ende&

    Waitinput

    If MenuItem(100)

        End

    Endif

EndWhile

Fin