XProfan

Carlo
Keil

Hallo Jac,

ich wollte schon immer mal ein RTFM loslassen.
Danke per die gute Gelegenheit

Ich möchte aber das F unbedingt als fine gelesen wissen, denn unter der Vielzahl von Handbüchern und Hilfen
die ich im Laufe derJahre lesen durfte/mußte zählen die von Profan immer noch zur qualitativen Spitzengruppe.
So, ... genug geschwätzt. Du wolltest ja sicher etwas anderes lesen:

also ... siehe Profan8-Aiuto Kapitel 27.12 - CallBack-Funktionen, da gibt es einen Unterpunkt Systemmenü erweitern
(mit Beispielprogramm)

HTH
Carlo

Es geht auch einfacher:
Kompilieren Markieren Separieren

-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='./../../funktionsreferenzen/xprofan/end/'>End

Salve, iF.

Peter
Max
Müller

Ciao,
Und ein weiteres Codebeispiel gibt es auch mitgeliefert bei PRFellow.

Saluto

XProfan X3, X4ß, Win 10.1

Jac
de
Lad

Danke, aber ich habs schon gefunden!

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

Ich hatte da mal n Beispiel , mit dem Io l' X-Button recht oben im Programm abfangen konnte und so zum Beispiel beim Beenden noch ein paar DLL freigeben konnte. Aber das finde ich auch nicht mehr. Kann mir jemand weiterhelfen? Ich weiß nur noch, dass das irgendwie mit UserMessages ging...

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, falsch gepostet. Sollte ein eigenständiger Beitrag werden. Habs nochmal gemacht. Wenn mir jemand weiterhalfen kann, bitte auf den Beitrag Programmende abfangen antworten!

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