XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Menü: Dialogfenster mit Menü erstellen (ab Profan² 7.x
PRFellow-Vorlage
Autor: Thomas Hölzer - Alle Rechte vorbehalten
Dialog-Fenster mit Menü (ab Profan 7)
Def w32_CreateMenu(0) !USER32,CreateMenu
Def w32_AppendMenu(4) !USER32,AppendMenuA
Def SetMenu(2) !USER32,SetMenu
Def DrawMenuBar(1) !USER32,DrawMenuBar
Def CreatePopupMenu(0) !USER32,CreatePopupMenu
Def DestroyMenu(1) !USER32,DestroyMenu
Def LoWord(1) And(&(1),$FFFF)
Def MenuItemEx(1) If(Equ(%umessage,$0111),Equ(LoWord(&uwparam),&(1)),0)
Declare hmenu&,hmenu2&,txt$,dlg%
hmenu&=w32_CreateMenu()
hmenu2&=CreatePopupMenu()
txt$=&Beenden
w32_AppendMenu(hmenu2&,0,3000,Addr(txt$))
txt$=Test
w32_AppendMenu(hmenu&,16,hmenu2&,Addr(txt$))
Cls
WindowTitle Add$(GetText$(%hwnd), - Powered by PRFellow 2001)
dlg%=CreateDialog(%hwnd,Dialog mit Menü,0,0,200,200)
SetMenu(dlg%,hmenu&)
DrawMenuBar(dlg%)
UserMessages $0111  WM_COMMAND

While 1

    WaitInput

    If MenuItemEx(3000)

        MessageBox(Der Dialog wird geschlossen.,GetText$(%hwnd),64)
        Break

    EndIf

Wend

DestroyMenu(hmenu&)