XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Menüpunkt gecheckt oder nicht gecheckt
 $H windows.ph
 $H messages.ph

Proc GetMenuCheck

    Parameters Item&

    If AND(~GetMenuState(&HMenu,Item&,~MF_BYCOMMAND),~MF_CHECKED)

        Return 1

    else

        Return 0

    endif

EndProc

Proc GetMenuEnabled

    Parameters Item&

    If AND(~GetMenuState(&HMenu,Item&,~MF_BYCOMMAND),~MF_GRAYED)

        Return 1

    else

        Return 0

    endif

EndProc

Declare Ende&
cls
PopUp &Datei
AppendMenu 100,&Laden
AppendMenu 101,&Speichern
AppendMenu 102,Speichern &als
Separator
SubPopUp Datei&typ
AppendMenu 110,Exe
AppendMenu 120,Com
EndSub
AppendMenu 103,&Ende
CheckMenu 100,1
Print GetMenuCheck(100)
Print GetMenuEnabled(100)

Whilenot ende&

    waitinput

./../../Function-References/XProfan/wend/'>Wend

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Menüpunkt gecheckt, oder nicht gecheckt?
 $H windows.ph
 $H messages.ph

Proc GetMenuCheck

    Parameters Item&

    If AND(~GetMenuState(&HMenu,Item&,~MF_BYCOMMAND),~MF_CHECKED)

        Return 1

    else

        Return 0

    endif

EndProc

Proc GetMenuEnabled

    Parameters Item&

    If AND(~GetMenuState(&HMenu,Item&,~MF_BYCOMMAND),~MF_GRAYED)

        Return 1

    else

        Return 0

    endif

EndProc

Declare Ende&
cls
PopUp &Datei
AppendMenu 100,&Laden
AppendMenu 101,&Speichern
AppendMenu 102,Speichern &als
Separator
SubPopUp Datei&typ
AppendMenu 110,Exe
AppendMenu 120,Com
EndSub
AppendMenu 103,&Ende
CheckMenu 100,1
Print GetMenuCheck(100)
Print GetMenuEnabled(100)

Whilenot ende&

    waitinput

Wend

end ############################