XProfan

Carlo
Keil

Hello Jac,

I wished always time one RTFM release.
thanks for good opportunity

i want but the F absolutely as fine red know, because under the Vielzahl of Handbüchern and Aids
The I in running derJahre reading durfte/had to count The of Profan still to qualitativen Spitzengruppe.
so, ... enough geschwätzt. You wanted Yes sure something other reading:

means ... see Profan8-Help chapter 27.12 - CallBack-functions, there there a Unterpunkt System Menu strain
(with Beispielprogramm)

HTH
Carlo

It's all right too plainer:
Compile Mark Separation

-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-------------------------------------------------------------------class=s4 href='./../../Function-References/XProfan/end/'>End

salvo, iF.

Peter
Max
Müller

Hi,
and a further Codebeispiel there too included with PRFellow.

Greeting

XProfan X3, X4ß, Win 10.1

Jac
de
Lad

thanks, but I habs already found!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Jac
de
Lad

I had there time n example , with the I the X-Button right supra in the program intercepting could and so to that example at terminate another couple DLLs enable could. but the find so did i not any more. can someone help on? i know only yet, that the somehow with User Messages went...

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Jac
de
Lad

Shit, wrong posted. ought to one eigenständiger Posting go. Habs again made. If someone weiterhalfen can, Please on the Posting End of program intercepting Answer!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP