XProfan

Carlo
Keil

¡Hola Jac,

Yo quería ya siempre veces una RTFM loslassen.
Gracias para el gute Gelegenheit

Yo möchte aber el F necesariamente como fine gelesen wissen, porque bajo el Vielzahl de Handbüchern y Hilfen
el Yo en el Laufe derJahre lesen durfte/mußte zählen el de Profano siempre todavía a qualitativen Spitzengruppe.
So, ... genug geschwätzt. Usted wolltest sí sicher de otra manera lesen:

also ... siehe Profano8-Ayuda Kapitel 27.12 - CallBack-Características, como hay una Unterpunkt Systemmenü erweitern
(con Beispielprogramm)

HTH
Carlo

Lo va auch einfacher:
Kompilieren Marca Separación

-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

¡Hola,
Und una weiteres Codebeispiel hay auch mitgeliefert en PRFellow.

Saludo

XProfan X3, X4ß, Win 10.1

Jac
de
Lad

Gracias, pero yo habs ya 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

Tuve como veces n Ejemplo , con el Yo, el X-Button bastante oben en el Programa abfangen podría y así para Ejemplo beim Beenden todavía unos pocos DLL liberación podría. Aber el finde Yo auch no mehr. Kann me alguien weiterhelfen? Yo weiß sólo todavía, dass el irgendwie con Mensajes del usuario 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, falso Nuevo. Sollte una eigenständiger Contribución voluntad. Habs otra vez gemacht. Wenn me alguien weiterhalfen kann, Por favor, en el Contribución 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