XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Menüpunkt 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

End

'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
'Menüpunkt 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üpunkt 3 (Index 2) neu setzen
Dispose MenuItemInfo#
Dispose MenuHelp#
DrawMenuBar(%hwnd)
SetFocus(%hwnd)

Whilenot Ende&

    Waitinput

    If MenuItem(100)

        End

    Endif

EndWhile

End