XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Menüpunkte ausrichten (1)
DEF GetMenu(1) !USER32,GetMenu
DEF GetMenuItemID(2) !USER32,GetMenuItemID
DEF GetMenuItemCount(1) !USER32,GetMenuItemCount
DEF ModifyMenu(5) !USER32,ModifyMenuA
DEF DrawMenuBar(1) !USER32,DrawMenuBar
declare hMenu&,count&,Text$,menupunkt&
declare MF_BYPOSITION&,MF_RIGHTJUSTIFY&,MF_LEFTJUSTIFY&,MENU_Text$
let MF_BYPOSITION& = $0400
let MF_RIGHTJUSTIFY&= $4000
let MF_LEFTJUSTIFY& = $0
---Test:
Cls
PopUp Da&tei
AppendMenu 100,...
PopUp B&earbeiten
AppendMenu 200,...
PopUp &Hilfe
AppendMenu 300,...
print Bitte e drücken
Text$=B&earbeiten

while 1

    waitinput

    if @KeyIn(Ee)

        let hMenu& = GetMenu(%hwnd)
        let count& = GetMenuItemCount(hMenu&)
        ModifyMenu(hMenu&,2,MF_RIGHTJUSTIFY& | MF_BYPOSITION&,2,@ADDR(TEXT$)) String direkt funktioniert
        DrawMenuBar(%hwnd)
        cls
        print Bitte b drücken

    elseif @KeyIn(Bb)

        menupunkt&=2
        let hMenu& = GetMenu(%hwnd)
        let count& = GetMenuItemCount(hMenu&)
        ModifyMenu(hMenu&, menupunkt&,MF_LEFTJUSTIFY& | MF_BYPOSITION&,2,@ADDR(Text$)) String über Variable funktioniert nicht
        DrawMenuBar(%hwnd)
        cls
        print Bitte e drücken

    endif

wend

end