XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Menüleiste redactar
Lauffähig de Profano-Versión 5.0
-----------------------------------------------
titel:    Menüleiste
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
datum:    10.01.2001
-----------------------------------------------
Erklärung:
----------
Como se una Menü erstellt?
Como frage Yo el individual Punkte de?
---------------------------------------
Declarar ende%				Variable preparar
Ventana 10,10 - 500,300			como siempre Ventana redactar
Windowtitle Menüs redactar/auswerten	Fenstertitel
Hier se el Menüleiste erstellt:
el & bedeutet: el después de el & Signo kommende Buchstabe
se unterstrichen y kann entonces con el Buchstaben en
el Tastatur el gleiche bewirken y por ejemplo Expediente öffnen ausführen.
Popup &Expediente				bastante links Obereintrag Expediente
AppendMenu 1,&öffnen		Untereintrag (Expediente) öffnen
SEPARATOR				Un Trennlinie
AppendMenu 2,&schließen		Untereintrag (Expediente) schließen
AppendMenu 3,&Programmende		Programmende (Expediente) Programmende
Popup &Ayuda				nächster Eintrag Leiste: Ayuda
SubPopup &Infos			Untereintrag (Ayuda) Infos
AppendMenu 4,&Programa		Untereintrag para Untereintrag Infos :-) Programa
AppendMenu 5,&Autor		Untereintrag para Untereintrag Infos :-) Autor
EndSub

Sinestar encargado ende%				solange Endevariable = 0

    waitinput				Wartet en Ratón oder Taste
    Hier nun el Auswertungen el Menüpunkte (bastante simplemente)

    IF @MenuItem(254)			Excepción 254 es el (c) Signo

        se dies angeklickt kann uno una
        Infobox redactar oder así qué.
        Im Interpreter kommt aber siempre todavía
        zuerst el Referencia para Profaninterpreter
        cls				Bildschirm löschen
        PRINT Demo para Menüprogramm	Edición Texto Bildschirm

    Elseif @MenuItem (1)			Expediente öffnen gewählt

        cls
        Imprimir Jetzt sería por ejemplo el Dateiwahldialog geöffnet

    Elseif @MenuItem (2)			Expediente schließen gewählt

        cls
        Imprimir Hier podría uno el aktuelle Expediente otra vez schließen

    Elseif @MenuItem (3)			Programmende gewählt

        cls
        Imprimir Nun sería el Programa final
        Imprimir entonces debería en el Quellcode posición
        Imprimir let ende%=1
        let ende%=1			se el Hochkomma lejos
        wirklich Programmende, como Schleifen
        bedingung gegeben es ende%=1

    Elseif @MenuItem (4)			Ayuda/Infos/Programa gewählt

        cls
        Imprimir Dieses Programa es a Demo Menü pensamiento

    Elseif @MenuItem (5)			Ayuda/Infos/Autor gewählt

        cls
        Imprimir (c) by Rolf Koch - Roko-Software 2001
        ENDIF					Ende el Abfrage
        Wend					Zurück a Sinestar encargado ende% (a Programmende)