XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
System-Menü erweitern (1)
-Begin-----------------------------------------------------------------
-Header-Datei--------------------------------------------------------
 $H Windows.ph
-Konstantendeklaration-----------------------------------------------
Declare False&
False& = 0
Declare True&
True& = 1
-Variablendeklaration------------------------------------------------
Declare WindowName$
Declare Ok%
Declare hWin&, hSystemMenu&
Declare About#
Dim About#, 255
-Init----------------------------------------------------------------

Proc Init

    -CreateWindow------------------------------------------------------
    WindowStyle 280
    WindowTitle Menu Test
    Window 100, 100 - 200, 200
    hWin& = @FindWindow(Menu Test)
    -AddSystemMenu-----------------------------------------------------
    hSystemMenu& = ~GetSystemMenu(hWin&, False&)
    ~AppendMenu(hSystemMenu&, ~MFT_SEPARATOR, 0, 0)
    String About#, 0 = &About
    ~AppendMenu(hSystemMenu&, ~MFT_STRING, 1, About#)
    ~DrawMenuBar(hWin&)

EndProc

-Main----------------------------------------------------------------

Proc Main

    Clear Ok%

    WhileNot Ok%

        WaitInput

        If @MenuItem(-4000)

            Ok% = 1

        ElseIf @MenuItem(1)

            @MessageBox(System Menü Test, About, 64)

        EndIf

    EndWhile

EndProc

-Done----------------------------------------------------------------

Proc Done

    Dispose About#
    @DestroyWindow(hWin&)

EndProc

-Main----------------------------------------------------------------
Init
Main
Done
-End-------------------------------------------------------------------a class=s4 href='./../../function-references/XProfan/end/'>Fin